gặp khó khăn khi dùng Split kết hợp Union

[khaivinh]

Mình có đoạn code sau , để tìm tất cả các cell theo màu, bên dưới có sử dụng hàm Union để lấy address của các cell , rồi sau đó mình dùng hàm Split để tạo mãng cho chúng, nhưng gặp phải tình huống khó xử khi các ô màu nằm gần với nhau (Vd:các ô liên tục $A$1,$A$2,$A$3,$A$4,$A$5 thì được Union cho thành $A$1:$A$5) , cho nên dùng Split vô hiệu vì không cho ra 5 phần tử , ở đây mình muốn hỏi làm cách nào để tránh được vấn đề này ,làm thế nào để được kết quả rngPicked.Address=$A$1,$A$2,$A$3,$A$4,$A$5 ?
Thanks!

 With Application.FindFormat.Interior
        .Color = RGB(0, 204, 102)
        End With
 
  Set rngLook = selection
     With rngLook
       Set rngFind = .Find("", SearchFormat:=True)
        If Not rngFind Is Nothing Then
            strFirstAddress = rngFind.Address
            Set rngPicked = rngFind
 
            Do
               Set rngPicked = Union(rngPicked, rngFind)
               Set rngFind = .Find("", rngFind, SearchFormat:=True)
            Loop While Not rngFind Is Nothing And rngFind.Address <> strFirstAddress
       End If
    End With
 
    If Not rngPicked Is Nothing Then
SPL = Split(rngPicked.Address, ",") 
    End If

 

[khaivinh]

Mình đã dùng phương thức ghép chuỗi để ghép các cell trong vùng được chọn rồi sau đó dùng split ok rồi ,tks mọi người vì đã quan tâm vấn đề của mình