二、根据批注提取数据
Public Function pizhu(i As Range)
Application.Volatile True
pizhu = i.Cells.Comment.Text
End Function
这个代码的作用是自定义一个名称为【pizhu】的函数，我们需要再点击鼠标右键，插入【模块】，将代码粘贴到模块中，它可以帮助我们快速的将批注中的数据提取出来
语法：=pizhu(需要提取的单元格)
需要注意的是，如果单元格没有批注的话，函数就会返回#VALUE!这个错误值，所以我们还需要使用IFERROR函数来屏蔽一下错误值。
三、根据颜色求和
Function SumColor(i As Range, ary1 As Range)
Dim icell As Range
Application.Volatile
For Each icell In ary1
If icell.Interior.ColorIndex = i.Interior.ColorIndex Then
SumColor = Application.Sum(icell) + SumColor
End If
Next icell
End Function
这个代码的作用是根据颜色求和，定义方法与提取批注是一模一样的，函数的名字为SumColor
语法：= SumColor（想要求和的颜色，求和的数据区域）
第一参数：直接在单元格中选取对应的颜色即可。
第二参数：选择需要求和的数据区即可四、根据颜色计数
Function CountColor(x As Range, ary2 As Range)
Application.Volatile
For Each i In ary2
If i.Interior.ColorIndex = x.Interior.ColorIndex Then
CountColor = CountColor + 1
End If
Next
End Function
它的用法跟SumColor一样，作用是根据颜色来进行计数。
语法：= CountColor（想要计数的颜色，计数的数据区域）
第一参数：直接在单元格中选取对应的颜色即可。
第二参数：选择需要计数的数据区即可
以上就是今天分享的4组VBA代码，都是一些工作中比较常见的例子，大家直接粘贴使用即可，有一点需要注意的是：如果你想要保存这些VBA代码，就需要将文件的格式另存为【XLSM】，这个格式是可以保存宏代码的。
以上就是今天分享的全部内容，怎么样，你学会了吗？
我是Excel从零到一，关注我，持续分享更多Excel技巧
如果你想要学习Excel，这里↓↓↓↓