Trang web hiển thị tốt nhất trên các trình duyệt mới và được bật Javascript.

Sub test_namesheet() Sub test_namesheet() Dim i As Integer For i = 1 To

TrinhXuanTuyen

Sub test_namesheet()
Dim i As Integer
For i = 1 To Sheets(Sheets.Count)
ThisWorkbook.Sheets(i).Activate
ActiveSheet.Name = "sheet" & i
Next i
End Sub

mình làm code thây đổi tên sheet mà sao k được ạ

TrinhXuanTuyen

Son Nhat Doan help với

SonDoan

Sub test()
For i = 1 To Worksheets.Count
Sheets(i).Name = "sheet" & i
Next i
End Sub

SonDoan

Lỗi nặng ở For i = 1 to Sheets ..... I là Integer, còn Sheets là Application.Workbook.Worksheet mà