作者：乔山办公网日期：
返回目录：excel表格制作
VBA中代码度注释的功能啊。。
就是在任意代码后面增加一个单引号'，在同行单引号后面的所有内容即被视为注释。
给你一段代码看问看：
Sub Macro1()
'VBA替换日期型数据
Dim cz As String, th As String
cz = "????-*-*" '查找内容
th = 41118 '替换内容
Dim c As Range '循环变量，代表选中区域答内的每个单元格
'注意专，先选择替换的区域，注意不要选择错了地方，再执行宏属，否则后果比较严重
'下面的selection即表示被选择的区域
For Each c In Selection '循环选中区域的每一个单元格
If c.Text Like cz Then '如果单元格的显示形式和????-*-*格式一样
c.Value = th '替换
End If
Next
End Sub
你的问题根本不百需要用VBA，用sumifs函数写度公式就可以了知sheet2的D2覆盖数道=SUMIFS(Sheet1!$D:$D,Sheet1!$B:$B,$B2,Sheet1!$C:$C,$C$1)sheet2的E2审核金额==SUMIFS(Sheet1!$G:$G,Sheet1!$B:$B,$B2,Sheet1!$C:$C,$C$1) 然后下拉专复制公式属即可。
Excel的强项在于办公领域。
所以日常工作的改善，都能用zhidaoVBA来实现。
小到自动算数，做表。版
大到办公平台。
以下用VBA做过的工具可以供你参考。
1.数据自动录入客户系统
2.系统网页数据抓取
3.任务自动分配
4.状态跟踪管理
5.邮件自动批量发送
6.报告自动做成
7.问卷调查（配合Outlook）权
8.项目管理（配合Access数据库）
9.能力测试系统
10.知识库
11.问询管理系统
12.员工报销管理系统