作者:乔山办公网日期:
返回目录:office365
1、第一步,新建一个TEST的excel文件百,并将你需要实现的功能函数度写完整,这里的函数名称为sobua,然后保存代码。
2、在写完函数后,将excel保存为加载项格式的文件。特别注意,是将excel文件保存为加载项的文件类型,不是专将代码文件保存为加载项文件类型。
3、随便给保存的文件给个名字,这里还是使用的test作为文件名。
4、在excel的选项中,打开加载项选项卡;
5、在最下边的管理中,选择excel加载项,选中属后,再点击转到;
6、这时候可以看到刚才保存的test已经在加载项中了,但是未勾选,你需要做的,就是勾选上即可。
7、这个时候再回到excel文件中(随便一个excel文件都可以),使用你刚刚创建的函数sobua,看看是不是已经可以用了
任意单元格,那只百能用宏了,做一度个自定义函数。
如果固定的在知B列,计算A列算式,就没必要了,可以用宏表函数。道
cal自定义函数的代码如下
Function cal(单元回格答 As Range)
Application.Volatile
Dim temp As String, adds As String
adds = 单元格.Address(0, 0)
If Left(单元格(1).Text, 1) = "{" And Right(单元格(1).Text, 1) = "}" Then
temp = VBA.Replace(VBA.Replace(单元格(1).Text, "{", ""), "}", "")
Else
temp = 单元格(1).Text
End If
temp = VBA.Replace(Replace(temp, "row()", "row(" + adds + ")"), "column()", "column(" + adds + ")")
cal = Application.Evaluate(temp)
End Function
如果表头一样的话:
可以用百宏整个RANG=RANG就可以了
使用两个数据透视表
使用函数公式度
如果表头不一样的话:
1.使用VBA for each每个表,取表头填内入汇总表。
个人建议使用数据透视表。
建议关注微信EXCEL公众号容:BUTF_LOVE,每天学习一些EXCEL知识。