Sao bài này mình thấy gởi nhờ giúp rất nhiều lần, mả hình như mỗi lần khác đi một tí
Theo mình lờ mờ hiểu thì:
Bạn chép lại code này nhé:
Private Sub CommandButton1_Click()
Dim Ws2, Ws3, Mahang, I, MH, Cll
Range("a3:e30000").Clear
Set Ws2 = Sheets("sheet2")
Set Ws3 = Sheets("sheet3")
Set MH = Ws2.Range(Ws2.[b3], Ws2.[b30000].End(xlUp))
Set Mahang = Ws3.Range(Ws3.[a3], Ws3.[a30000].End(xlUp))
For I = 1 To MH.Rows.Count
With [b30000].End(xlUp).Offset(1, -1)
.Value = MH(I)
End With
For Each Cll In Mahang
If Cll = MH(I) Then [b30000].End(xlUp).Offset(1, 0).Resize(, 5).Value = Cll.Offset(0, 1).Resize(, 5).Value
Next
Next
End Sub
thuc ra excel chạy nhanh trong khoảng 2000 row trở lại thôi còn muốn nhanh còn phụ thuộc vào nhiều yếu tố khác như máy của bạn, bang tính có nhiều logic ..vv
thực ra tôi không biết nhiều về code nhưng nếu bạn xóa đi 1 đoạn code mà tôi đánh dấu chắc chắn sẽ chạy ngon lành đấy
Right Click sheet1 ==> view code: chép code này vào:
Private Sub Worksheet_Activate()
Range("a3:g30000").ClearContents
Dim Ws2, Ws3, Mahang, I, MH, Cll
Set Ws2 = Sheets("sheet2")
Set Ws3 = Sheets("sheet3")
Set MH = Ws2.Range(Ws2.[b3], Ws2.[b10000].End(xlUp))
Set Mahang = Ws3.Range(Ws3.[a3], Ws3.[a10000].End(xlUp))
For I = 1 To MH.Rows.Count
With [D10000].End(xlUp).Offset(1, -2)
.Value = MH(I)
.Offset(0, -1) = MH(I).Offset(0, -1)
.Offset(0, 1) = MH(I).Offset(0, 1)
End With
For Each Cll In Mahang
If Cll = MH(I) Then [D10000].End(xlUp).Offset(1, 0).Resize(, 5).Value = Cll.Offset(0, 1).Resize(, 5).Value
Next
Next
End Sub
