khanhnguyen113
Thành viên mới
- Tham gia
- 25/6/19
- Bài viết
- 18
- Được thích
- 4
Dạ! Chuyện là hôm trước mình có đọc được 1 bài trên trang của mình thì thấy file này. Cảm ơn tác giả đã làm ra file này rất là hữu ích. Tuy nhiên dữ liệu hoàn chỉnh ở cột E và F chỉ hiển thị được 304 dòng; Nếu dữ liễu mình vài nghìn dòng thì code hiện tại mình sử như thế nào ạ. Bạn nào biết giúp mình với; Dạ! Mình cảm ơn!
Code đây ạ:
Sub NhatKyThiCong()
Dim Nguon, Dong
Dim Max_, Min_
Dim Kq
Dim i, k
With Sheet1
i = .Range("A5").End(xlDown).Row
Nguon = Sheet1.Range("A5", "D" & i)
End With
Dong = UBound(Nguon)
Max_ = CLng(Nguon(Dong, 1))
Min_ = CLng(Nguon(2, 1))
ReDim Kq(Min_ To Max_, 1 To 2)
For i = 2 To Dong
If Nguon(i, 4) <> "" Then
k = CLng(Nguon(i, 1))
If Kq(k, 1) = "" Then
Kq(k, 1) = Nguon(i, 1)
Kq(k, 2) = Nguon(i, 4)
Else
Kq(k, 2) = Kq(k, 2) & Chr(10) & Nguon(i, 4)
End If
End If
Next i
With Sheet1
.Range("E6").Resize(Max_ - Min_ + 1, 2) = Kq
.Range("E6").Resize(Max_ - Min_ + 1, 2).WrapText = 1
.Range("E6").Resize(Max_ - Min_ + 1, 2).Rows.AutoFit
End With
End Sub
Code đây ạ:
Sub NhatKyThiCong()
Dim Nguon, Dong
Dim Max_, Min_
Dim Kq
Dim i, k
With Sheet1
i = .Range("A5").End(xlDown).Row
Nguon = Sheet1.Range("A5", "D" & i)
End With
Dong = UBound(Nguon)
Max_ = CLng(Nguon(Dong, 1))
Min_ = CLng(Nguon(2, 1))
ReDim Kq(Min_ To Max_, 1 To 2)
For i = 2 To Dong
If Nguon(i, 4) <> "" Then
k = CLng(Nguon(i, 1))
If Kq(k, 1) = "" Then
Kq(k, 1) = Nguon(i, 1)
Kq(k, 2) = Nguon(i, 4)
Else
Kq(k, 2) = Kq(k, 2) & Chr(10) & Nguon(i, 4)
End If
End If
Next i
With Sheet1
.Range("E6").Resize(Max_ - Min_ + 1, 2) = Kq
.Range("E6").Resize(Max_ - Min_ + 1, 2).WrapText = 1
.Range("E6").Resize(Max_ - Min_ + 1, 2).Rows.AutoFit
End With
End Sub
