宏：excel表一中同一人员有多笔支出，在表二中自动求和单人多笔支出

ruowuzhi · 发表于 2015-10-2 16:46

truewin 发表于 2015-10-2 15:26
先谢谢啦！
明细表里，人员重复的需要逐个合计吗？

可以先去重呀——在数据菜单里

truewin · 发表于 2015-10-2 16:46

yeminqiang 发表于 2015-10-2 11:33
良辰大佬，好歹发个附件上来。

宏有效时间放在2010年就可以了，请看下，因为这个加密了，我不知道怎么设置，需要知道原理和具体设置方法

truewin · 发表于 2015-10-2 16:48

ruowuzhi 发表于 2015-10-2 16:46
可以先去重呀——在数据菜单里

那个还是不能全部解决我的问题，特别是用户名的设置，您看下，附件，附件有宏，有效时间是2010年，挑时间就可以了

ruowuzhi · 发表于 2015-10-2 17:23

truewin 发表于 2015-10-2 16:48
那个还是不能全部解决我的问题，特别是用户名的设置，您看下，附件，附件有宏，有效时间是2010年，挑时间 ...

自己看看代码吧！

truewin · 发表于 2015-10-3 09:53

ruowuzhi 发表于 2015-10-2 17:23
自己看看代码吧！

谢谢了！

truewin · 发表于 2015-10-3 09:55

本帖最后由 truewin 于 2015-10-3 10:00 编辑

ruowuzhi 发表于 2015-10-2 17:23
自己看看代码吧！

万分感谢！

truewin · 发表于 2015-10-6 07:00

本帖最后由 truewin 于 2015-10-6 07:01 编辑

ruowuzhi 发表于 2015-10-2 17:23
自己看看代码吧！

201401.rar (665.86 KB, 下载次数: 2)

老师，请过目，我想删除图中所示几项内容，通过筛选查找关键字“承兑”，删除有承兑字样的所有行，为了便于以后操作，录制了宏，但是宏执行时，实际没能删除上述信息，求解，代码如下：

无标题.png

宏代码如下：
Sub 宏1()
'
' 宏1 宏
'

'
ActiveSheet.Range("$A$1:$T$3783").AutoFilter Field:=7, Criteria1:=Array( _
"?对公—银行承兑汇票", "?对公—银行承兑汇票（全额保证金）", "?对公—银行承兑汇票贴现"), Operator:=xlFilterValues
Rows("114:114").Select
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 165
ActiveWindow.ScrollRow = 306
ActiveWindow.ScrollRow = 1097
ActiveWindow.ScrollRow = 1410
ActiveWindow.ScrollRow = 1996
ActiveWindow.ScrollRow = 2705
ActiveWindow.SmallScroll Down:=18
Rows("114:2901").Select
ActiveWindow.SmallScroll Down:=7306
Rows("114:11091").Select
Selection.Delete Shift:=xlUp
ActiveSheet.Range("$A$1:$T$2409").AutoFilter Field:=7
End Sub

		自动登录	找回密码
密码			免费注册