Nhờ giúp đỡ về lấy số dòng(Row) của vùng dữ liệu không liên tục sử dụng vba

[Huỳnh Chí]

chào anh chị trong diễn đàn GPE e có một rắc rối nhỏ nhở a chị giúp đỡ
VD: e có câu lệnh như này range("A1,A3,A5").select trong vba vậy làm thế nào để lấy được số dòng của tưng ô này ạ, ý là sử dụng code gì để lấy được row của cái range này ạ (Kq: là 1,3,5)! e cảm ơn a chị

 

[bebo021999]

test cái này:
lấy kết quả qua message box hay dán vô 1 ô cụ thể:

Range("A1,A3,A5,A10:A20").Select
With Selection
    MsgBox .Address
    Range("C1").Value = .Address
End With

Bài đã được tự động gộp: 8/12/23

Code trên là lấy địa chỉ ô. Nếu bạn muốn lấy số dòng thì dùng cái này:

Dim ce As Range, st As String
Range("A1,A3,A5,A10:A20").Select
For Each ce In Selection
    st = IIf(st = "", "", st & ", ") & ce.Row
    Range("C1").Value = st
Next

 

[Huỳnh Chí]

test cái này:
lấy kết quả qua message box hay dán vô 1 ô cụ thể:

Range("A1,A3,A5,A10:A20").Select
With Selection
    MsgBox .Address
    Range("C1").Value = .Address
End With

Bài đã được tự động gộp: 8/12/23

Code trên là lấy địa chỉ ô. Nếu bạn muốn lấy số dòng thì dùng cái này:

Dim ce As Range, st As String
Range("A1,A3,A5,A10:A20").Select
For Each ce In Selection
    st = IIf(st = "", "", st & ", ") & ce.Row
    Range("C1").Value = st
Next

cảm ơn bạn mình làm được rồi tks!!