|
Sheets(Array("表1", "表2", "表3","表4")).Select
Sheets("表1").Activate
Cells.Select
Sheets("出库单列表").Select
Cells.Select
Selection.Copy
Sheets(Array("表1", "表2", "表3")).Select
Sheets("表1").Activate
Cells.Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
我有以上一段代码,当表1 ,表2.表3,表4等不存在或表名称不同时(或者表的数量不止4张), 如何修改 以上代码, 代码运行才 不会出错,请高手们帮帮忙了,谢谢
lbhlbh 发表于 2014-4-10 19:45
主要是根据“出库单列表”C列和E列的部门和类别名称生成 的,谢谢了
请试试看吧,不知道是不是你想要的效果,
(, 下载次数: 2)
|
|