修法布施得聰明智慧，多分享讓生活更美好。上次分享了《Excel怎樣計算填充色個數(shù)》，介紹了計算填充色個數(shù)自定義函數(shù)處理方法，下面分享怎樣批量統(tǒng)計相隔顏色的單元格間的單元格個數(shù)處理方法。 打開Excel

修法布施得聰明智慧，多分享讓生活更美好。上次分享了《Excel怎樣計算填充色個數(shù)》，介紹了計算填充色個數(shù)自定義函數(shù)處理方法，下面分享怎樣批量統(tǒng)計相隔顏色的單元格間的單元格個數(shù)處理方法。

打開Excel并準備工作

首先打開Microsoft Office Excel 2007，新建文檔并保存文件名為《Excel怎樣提取兩組數(shù)據(jù)的交集 .xlsm》。接著按下快捷鍵ALT F11打開VBE（宏）編輯界面，在菜單欄【插入】下拉列表中選擇【模塊（M）】。

插入宏代碼

在VBE編輯界面中插入一個模塊，在代碼框中復(fù)制粘貼如下代碼：

```vba

Sub 選相隔顏色單元格計個數(shù)()

Dim myr As Range, myrs As Range, mb(), i As Long, cr As Long, k

Set myrs Selection

i 0

ReDim mb(1 To , 1 To 3)

For Each myr In myrs

i i 1

If i 1 Then

k k 1

cr

mb(k, 1) (RowAbsolute:False, ColumnAbsolute:False)

mb(k, 3)

Else

If cr Then

k k 1

mb(k, 1) (RowAbsolute:False, ColumnAbsolute:False)

mb(k, 3)

mb(k - 1, 2) mb(k, 3) - mb(k - 1, 3) - 1

End If

End If

Next myr

Set myr (prompt:"選擇一單元格輸出數(shù)據(jù)", Type:8)

(1, 2) Array("顏色單元格地址", "相隔顏色單元格個數(shù)")

(1, 0).Resize(k, 2) mb

End Sub

```

運行宏并查看結(jié)果

回到工作表窗口，選擇相隔顏色的單元格區(qū)域，然后運行【選相隔顏色單元格計個數(shù)】宏。在菜單欄中點擊【視圖】，選擇【宏】，找到并執(zhí)行該宏。接著會提示“選擇一單元格輸出數(shù)據(jù)”，選擇合適的單元格后，即可查看輸出結(jié)果。

如果這篇文章對您有所幫助，請不要忘記點擊下方的“投票點贊”或者“收藏”來支持我們！如果還有任何疑問，請點擊下方的“我有疑問”，我們將竭誠為您解答。感謝閱讀！