代码整理如下:
Sheets("Sheet1").Range("C5:C15").Copy Sheets("Sheet2").Range("D3")
Sheets("Sheet1").Range("F5:F15").Copy Sheets("Sheet2").Range("D14")
Sheets("Sheet1").Range("I5:I15").Copy Sheets("Sheet2").Range("D25")
Sheets("Sheet1").Range("L5:L15").Copy Sheets("Sheet2").Range("D36")
Sheets("Sheet1").Range("O5:O15").Copy Sheets("Sheet2").Range("D47")
Sheets("Sheet2").Range("D:D").Insert
Sheets("Sheet1").Range("C5:C15,F5:F15,I5:I15,L5:L15,O5:O15").ClearContents
还可以使用FOR循环进一步优化如下:
For Each t In Array(Array("C5","D3"), Array("F5","D14"), Array("I5","D25"), Array("L5","D36"), Array("O5","D47"))
Sheets("Sheet1").Range(t(0)).ReSize(11,1).Copy Sheets("Sheet2").Range(t(1))
Sheets("Sheet1").Range(t(0)).ReSize(11,1).ClearContents
Next t
Sheets("Sheet2").Range("D:D").Insert