當前位置:編程學習大全網 - 編程軟體 - excel 表格中的編程語句,請高手幫我解釋壹下下列語句的含義,謝謝

excel 表格中的編程語句,請高手幫我解釋壹下下列語句的含義,謝謝

這程序是將表1的內容逐行復制到表2 對應的單元格中,並獨立打印出來。

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

  • 上一篇:python可以做什麽工作
  • 下一篇:世界公認第壹臺電子計算機誕生年代是
  • copyright 2024編程學習大全網