choinodiba
Thành viên mới
- Tham gia
- 12/10/19
- Bài viết
- 17
- Được thích
- 6
Mình bị kẹt lâu quá về cách tìm dòng cuối ae chỉ giúp mình vì đâu mình sai để mình hiểu đc bản chất của vấn đề. lúc redim nó nhận hết cả mảng mặc dù mảng chỉ có 1 dòng.
Mã:
Sub voisheet1()
Dim lr As Long
Dim arr()
lr = Sheet1.Range("BK").End(xlDown).Row
arr = Sheet1.Range("B2:D" & lr).Value
MsgBox lr
' tai sao dong cuoi cua bang tinh la la dong cuoi cung cua Excel
End Sub
Sub voisheet2()
Dim lr2 As Long
Dim arr2()
lr2 = Sheet2.Range("BangKe").End(xlDown).Row
arr2 = Sheet2.Range("A2:E" & lr2).Value
MsgBox lr2
'dong cuoi lai là 6 ma ko phai là 2
End Sub
