关于连续填充区域的判断

准提部林

兩個同樣帖子//也給同樣答
Sub TEST_A1()
Dim B As Range, A As Range, CC, CK, n&
For Each B In Intersect(ActiveSheet.UsedRange, Range("b:b"))
    CC = B.Interior.ColorIndex
    If CC <> CK Then CK = CC: Set A = B
    If B(2).Interior.ColorIndex <> CK And CK <> -4142 Then
       n = n + 1
       Cells(n, "e") = Range(A, B).Address(0, 0)
    End If
b01: Next
End Sub

hcm19522

顏色代號 :奌選C2-->CTR+F3-->定義名稱QQ(隨意 非指令均可 如 QQ ,AA…)-->參照到公式=GET.CELL(63,B2)-->確定-->C2輸入公式=QQ-->下拉-->顏色改變或儲存後下載 重新RUN與下拉一次

E2{=IFERROR(SMALL(IF((C$1:C$15<>C$2:C$16)*(C$2:C$16>0),ROW($2:$16)),ROW(A1))&" - "&SMALL(IF((C$2:C$16<>C$3:C$17)*(C$2:C$16>0),ROW($2:$16)),ROW(A1)),"")