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

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

打開(kāi)Excel并準(zhǔn)備工作

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

插入宏代碼

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

```vba

Sub 選相隔顏色單元格計(jì)個(gè)數(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("顏色單元格地址", "相隔顏色單元格個(gè)數(shù)")

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

End Sub

```

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

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

如果這篇文章對(duì)您有所幫助，請(qǐng)不要忘記點(diǎn)擊下方的“投票點(diǎn)贊”或者“收藏”來(lái)支持我們！如果還有任何疑問(wèn)，請(qǐng)點(diǎn)擊下方的“我有疑問(wèn)”，我們將竭誠(chéng)為您解答。感謝閱讀！