hoangdung2906
Thành viên mới
- Tham gia
- 22/1/16
- Bài viết
- 21
- Được thích
- 0
Em viết code nhưng nó k tự động thay đổi khi dữ liệu thay đổi bác nào giúp em vs ạ!!!
Code đây ạ em gửi cả file đính kèm:
Function dongcuoi() As Integer
Dim rng, j As Integer
Set rng = Sheet1.UsedRange
j = Cells.Find("*", rng(1, 1), , , xlByRows, xlPrevious).Row
dongcuoi = j
MsgBox (j)
End Function
Code đây ạ em gửi cả file đính kèm:
Function dongcuoi() As Integer
Dim rng, j As Integer
Set rng = Sheet1.UsedRange
j = Cells.Find("*", rng(1, 1), , , xlByRows, xlPrevious).Row
dongcuoi = j
MsgBox (j)
End Function
