Cả nhà cho em hỏi, cũng file như trên, nhưng sao khi thay số dòng là 65000 dòng như bên dưới, thì code chỉ chạy được đến T04, từ T05 không ra dữ liệu ạ. Em cảm ơn cả nhà
Sub zaq()
Dim Rng As Range, I As Long
On Error Resume Next
Application.ScreenUpdating = False
Set Rng = Sheet1.UsedRange
If Rng.Rows.Count <= 65000 Then Exit Sub
Do
I = I + 1
If Sheets("T" & Format(I, "00")) Is Nothing Then
With Sheets.Add(After:=Sheets(Sheets.Count))
.Name = "T" & Format(I, "00")
.Range("A1:B65000").Value = Rng.Offset((I - 1) * 65000).Resize(65000).Value
End With
End If
Loop Until I * 65000 >= Rng.Rows.Count
Sheets("Sheet1").Activate
Application.ScreenUpdating = True
End Sub