如何批量统计Excel中相隔颜色的单元格间的数量
修法布施得聪明智慧,多分享让生活更美好。上次分享了《Excel怎样计算填充色个数》,介绍了计算填充色个数自定义函数处理方法,下面分享怎样批量统计相隔颜色的单元格间的单元格个数处理方法。
打开Excel并准备工作
首先打开Microsoft Office Excel 2007,新建文档并保存文件名为《Excel怎样提取两组数据的交集 .xlsm》。接着按下快捷键ALT F11打开VBE(宏)编辑界面,在菜单栏【插入】下拉列表中选择【模块(M)】。
插入宏代码
在VBE编辑界面中插入一个模块,在代码框中复制粘贴如下代码:
```vba
Sub 选相隔颜色单元格计个数()
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:"选择一单元格输出数据", Type:8)
(1, 2) Array("颜色单元格地址", "相隔颜色单元格个数")
(1, 0).Resize(k, 2) mb
End Sub
```
运行宏并查看结果
回到工作表窗口,选择相隔颜色的单元格区域,然后运行【选相隔颜色单元格计个数】宏。在菜单栏中点击【视图】,选择【宏】,找到并执行该宏。接着会提示“选择一单元格输出数据”,选择合适的单元格后,即可查看输出结果。
如果这篇文章对您有所帮助,请不要忘记点击下方的“投票点赞”或者“收藏”来支持我们!如果还有任何疑问,请点击下方的“我有疑问”,我们将竭诚为您解答。感谢阅读!
版权声明:本文内容由互联网用户自发贡献,本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。