Ghép số liệu bị lỗi vòng lặp

[Yeuvoyeucon]

Kính gửi anh chị,
Em làm code để ghép số liệu thì code chạy rồi. Nhưng khi em xóa toàn bộ dữ liệu đi và chỉ để lại tiêu đề thì nó báo lỗi vòng lặp Next i là vì sao ạ.

 

[VetMini]

tieu de cua bai nay bi loi pham quy dien dan:
1. tieu de viet hoa ca cum
2. tieu de dung tieng Viet khong co dau
Can chinh tieu de truoc khi bai duoc vao sot rac.

 

[Yeuvoyeucon]

tieu de cua bai nay bi loi pham quy dien dan:
1. tieu de viet hoa ca cum
2. tieu de dung tieng Viet khong co dau
Can chinh tieu de truoc khi bai duoc vao sot rac.

Em đã sửa rồi ạ !

 

[Phuocam]

Bạn thêm dòng "MsgBox lastrow" sẽ biết lỗi.

Sub ghep()

Sheet1.Select

   lastrow = Sheet1.Cells(1, "B").End(xlDown).Row
   MsgBox lastrow

   For i = 2 To lastrow
       If Cells(i, "B") <> "" Then
Luu = "MA KH - " & Cells(i, "C").Value & vbLf & "DIEN GIAI - " & Cells(i, "D").Value _
& vbLf & "DIA CHI - " & Cells(i, "E").Value
Else
Luu = ""            
End If
      Cells(i, "F").Value = Luu        
Next i   
End Sub

 

[VetMini]

Em đã sửa rồi ạ !

Ở dòng này:
lastrow = Sheet1.Cells(1, "B").End(xlDown).Row

Khi xóa số liệu, lastrow sẽ là 1048576.

Sửa lại:
lastrow = Sheet1.Cells(1, "B").End(xlUp).Row

 

[Yeuvoyeucon]

Ở dòng này:
lastrow = Sheet1.Cells(1, "B").End(xlDown).Row

Khi xóa số liệu, lastrow sẽ là 1048576.

Sửa lại:
lastrow = Sheet1.Cells(1, "B").End(xlUp).Row

Em cảm ơn các anh ạ !

 

[Phuocam]

Thử sửa lại:

LastRow = Sheet1.Cells(Rows.Count, "B").End(xlUp).Row

 

[HUONGHCKT]

Sửa lại lastrow = Sheet1.Cells(1, "B").End(xlDown).Row thành
lastrow = Sheet1.Cells(Rows.Count, 2).End(xlUp).Row
và chạy thử.

 

[befaint]

Sửa
LastRow = Sheet1.Range("B" & Sheet1.Rows.Count).End(xlUp).Row

và thử chạy.