将宏代码，精简成VBA代码

qwe1452

将表Sheets("012 (2)").中的（C3,DP3) , (C6,DP6)....的数据分别复制到 Sheets(Array("011", "012", "013", "014", "015", "016", "017", "018", "019", "020")).中的C4行  C7行.....，对应的位置。向下延伸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

taller