Sub xx()
Dim lastrow As Long ‘定義變類型
lastrow = Range("B65536").End(xlUp).Row() '讀Sheet1有內容最後的行號
Sheets("Sheet2").Select ‘選擇Sheet2
For i = 2 To lastrow '取Sheet1從第2行到最後壹行 的內容
For j = 2 To 8 '取某行從2到8列的內容
Cells(j + 3, 3) = Sheet1.Cells(i, j) '放第3列的第5-11行
next j
For j = 9 To 13 '從9到13列的內容
Cells(j - 4, 6) = Sheet1.Cells(i, j) '放第6列的第5-9行
next j
Cells(14, 6) = Sheet1.Cells(i, 14) '取13到14列的內容
Cells(13, 6) = Sheet1.Cells(i, 15) ‘放6列的第14、13行
ActiveWindow.SelectedSheets.PrintOut Copies:=1 '打印工作表內容
next i ‘下壹行內容
End Sub