用vba查找相同数据并统计个数
如何统计excel表格中的有颜色的个数？
如何统计excel表格中的有颜色的个数？
方法如下：
1.统计A列中各种颜色单元格的个数：
怎么写vba抓取excel里的数据？
VBA在excel就是抓数据、计算数据的，要看你具体怎么抓。比如抓取特定字段数据，应该用到三个字符串函数：LEFT、RIGHT、MID
1、LEFT函数：
用法：LEFT（要提取字符所在单元格,从左侧开始提取的个数)
例如：LEFT(A1,2) 意思是从A1单元格提取前两个字符。
2、RIGHT函数：
用法：RIGHT(要提取字符所在单元格,从右侧开始提取的个数）
例如：RIGHT(A1,2) 意思是从A1单元格提取最后两个字符。
3、MID函数：
用法：MID(要提取字符所在单元格,开始位置，提取个数）
例如：MID(A1,2,2) 意思是从A1单元格提的第二个单元格开始，提取两个字符，也就提取A1单元格第2个和第3个字符。
注：用MID函数，也可以替代前两个函数，比如：MID(A1,1,2)与LEFT(A1,2)的结果是一样的，再比如：MID(A1,LEN(A1)-2 1,2)与RIGHT(A1,2)的结果是一样的只是这里用到LEN函数，其作用是取得单元格字符串的长度。
4、提取后的字符合并：
字符合并要用到连接符号：amp
比如：LEFT(A1,2)ampRIGHT(A1,2) 意思是把A1单元格的前两个和最后两个字符，提取出来组成一个新的字符。
excel填充颜色统计公式？
一、查找法
首先我们要选择想要统计的数据区域，然后按Ctrl F调出查找的窗口，然后点击选项，点击格式选择从单元格选取格式，鼠标就会变成一个小吸管的样子，我们直接吸取想要统计颜色的单元格，然后点击全部查找，紧接着按Ctrl a选择查找到的全部数据，在工作表右下角的状态栏就会显示该颜色的个数及求和
二、宏表函数法
有可能会问到宏表函数是什么，宏表函数可以说是vba的前身，但是随着vba的出现，宏表函数已经被逐渐的取代，但是现在仍然可以使用，只不过只能通过定义名称来使用
在这里我们需要用到的宏表函数是GET.CELL，他的参数一共有两个
第一参数：type_num，单元格中的信息，会根据输入的代码返回不同的单元的信息
第二参数： Reference，单元格范围
我们想要获取单元格的单色信息，就需要将GET.CELL函数的第一参数设置为63.因为代码63返回的是单元色的颜色信息
宏表函数的使用必须先对其定义名称，首选我们点击公式，点击定义名称，将名称设置为颜色，然后输入公式GET.CELL(63,Sheet1!B2)，在这里Sheet1是表格的名称，B2是统计区域的第一个单元格，设置完后点击确定
然后我们直接输入等于颜色，然后向下填充数据，就会根据不同的颜色返回不同的结果，黄色的结果为6.绿色的结果为10
最后我们使用sumif函数和countif函数进行求与计数即可
求和公式：SUMIF(C2:C18,6,B2:B18)
计数公式：COUNTIF(C2:C18,6)
三、使用vba自定义函数
1.根据颜色求和代码
Function SumColor(col As Range, sumrange As Range) As Long
Dim icell As Range
Application.Volatile
For Each icell In sumrange
If Then
SumColor (icell) SumColor
End If
Next icell
End Function
2.根据颜色计数代码
Function CountColor(ary1 As Range, ary2 As Range)
Application.Volatile
For Each i In ary2
If Then
CountColor CountColor 1
End If
Next
End Function
想要使用这两个代码，我们就必须先将其粘贴进vba中，首先我们点击开发工具，选择visual basic，进入vba的编辑界面，然后点击插入，选择模块，将代码粘贴进去即可
在这里我们自定了了两个函数,根据颜色求和的函数名称是SumColor，根据颜色计数的函数名称是CountColor
这两个函数的参数都是一样的
第一参数：统计颜色的单元格
第二参数：要统计的数据区域
使用方法如下动图