将录制宏代码，精简成VBA代码

qwe1452

将工资表Sheets("012 (2)").Select的数据同时录制到 Sheets(Array("011", "012", "013", "014", "015", "016", "017", "018", "019", "020")).Select，对应的位置。循环70次.

Sub 宏19()

Sheets("012 (2)").Select
ActiveWindow.SmallScroll Down:=-108
Range("C3:DP3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets(Array("011", "012", "013", "014", "015", "016", "017", "018", "019", "020")). _
Select
Sheets("011").Activate
ActiveWindow.SmallScroll Down:=-15
Range("C4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("012 (2)").Select
Range("C6:DP6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets(Array("011", "012", "013", "014", "015", "016", "017", "018", "019", "020")). _
Select
Sheets("011").Activate
Range("C7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("012 (2)").Select
Range("C9:DP9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets(Array("011", "012", "013", "014", "015", "016", "017", "018", "019", "020")). _
Select
Sheets("011").Activate
Range("C10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("012 (2)").Select
Range("C12:DP12").Select
Application.CutCopyMode = False
Selection.Copy
Sheets(Array("011", "012", "013", "014", "015", "016", "017", "018", "019", "020")). _
Select
Sheets("011").Activate
Range("C13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("012 (2)").Select
Range("C15:DP15").Select
Application.CutCopyMode = False
Selection.Copy
Sheets(Array("011", "012", "013", "014", "015", "016", "017", "018", "019", "020")). _
Select
Sheets("011").Activate
Range("C16").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("012 (2)").Select
End Sub

半百

是不是这样？

q490525427

这一简化看着真顺畅，和运行时间差别不大吧

qwe1452

半百 发表于 2024-2-19 15:52
是不是这样？

你好
     不是这样的。
    在表Sheets("012 (2)").中，将  (C3,DP3),(C6,DP6) 。。。行的数据分别复制到 Sheets(Array("011", "012", "013", "014", "015", "016", "017", "018", "019", "020")). 中C4,  C7 行对应的位置。向下延伸70行。
  谢谢！！！！

qwe1452

q490525427 发表于 2024-2-19 16:24
这一简化看着真顺畅，和运行时间差别不大吧

要循环70次，有点长。

qwe1452

你好
    是这样的
    在表Sheets("012 (2)").中， 将（ C3,DP6),(C6,DP6)..... 行的数据分别复制到 Sheets(Array("011", "012", "013", "014", "015", "016", "017", "018", "019", "020"))中的C4行  .C7行 ...对应的位置。向下延伸70行。

       谢谢了  
     祝新年快乐！！！