Chọn range có điều kiện.

[bluecat]

Các bạn cho mình hỏi làm sao chọn được 3 range màu tím cùng một như hình trên (dùng VBA, thực tế nhiều hơn 3 range). Mình đã nghĩ đến dùng SpecialCell, nhưng thú thật áp dụng hoài chưa được.

 

[SA_DQ]

Bạn thử với macro này xem sao

Option Explicit
Const MyColor As Byte = 30
Sub UsedRange()
 Dim Rng As Range, Cls As Range, cRng As Range
  
 Set Rng = Worksheets("S1").UsedRange
 For Each Cls In Rng
    If Cls.Interior.ColorIndex > MyColor Then
        If cRng Is Nothing Then
            Set cRng = Cls
        Else
            Set cRng = Union(cRng, Cls)
        End If
    End If
 Next Cls
 If Not cRng Is Nothing Then MsgBox cRng.Address
End Sub

 

[bluecat]

Cảm ơn bác, code của bác chạy tốt!
Cho mình hỏi thêm trong trường hợp này mình có thể sử dụng phương thức SpecialCell?