巨集寫法

挑選Excel行列，巨集寫法：
startx = 3
page = 30
padding = 7
For i = 1 To 2
Sheet1.Activate
Cells.Rows((1 + startx + (i - 1) * page) + (i - 1) * padding & ":" & (1 + startx + (i - 1) * page) + (i - 1) * padding + page - 1).Select
Selection.Copy
Sheet2.Activate
Cells(1 + (i - 1) * page, 1).Select
ActiveSheet.Paste
Next

--好康廣告--