我正在嘗試撰寫一個腳本來獲取所有行（在標題行之后），并將它們按順序復制到第一個選項卡中。我也有 10 個標簽，我希望它這樣做，然后將它們依次粘貼到第一個標簽中（基本上從其他作業表中提取所有內容，然后將其放入第一張作業表中，就像大主表或報告一樣）
我試過這個，但它不起作用
Sub Report()
page = 2
row = 1
Dim lastRow As Integer
Dim pae As Integer
Dim rw As Integer
Dim WSheet(1 To 12) As Worksheet
lastRow = Worksheets(page).Cells(Rows.Count, "A").End(xlUp).rw
While (pge <= 12)
While (rw <= lastRow)
rw = rw 1
ws1.Rows(row).EntireRow.Copy WSheet(pge).Range("A" & lastRow)
Wend
pge = pge 1
Wend
End Sub
我試圖讓它計算有多少行有資料，然后將所有這些行復制到第一張紙，然后再轉到下一張紙，
它似乎跳過了我宣告變數的位置，然后在 lastrow 分配中出錯
任何幫助將不勝感激
uj5u.com熱心網友回復：
請嘗試下一個代碼：
Sub ReportMaster()
Dim ws1 As Worksheet, ws As Worksheet, lastRow As Long, lastER As Long, lastCol As Long
Set ws1 = Worksheets(1)
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> ws1.Name Then
lastRow = ws.Range("A" & ws.rows.count).End(xlUp).row
lastCol = ws.cells(1, ws.Columns.count).End(xlToLeft).Column
lastER = ws1.Range("A" & ws.rows.count).End(xlUp).row 1 'last empty row
ws.Range(ws.Range("B1"), ws.cells(lastRow, lastCol)).Copy ws1.Range("A" & lastER)
End If
Next ws
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/334645.html
上一篇：如何創建Excel層次結構
下一篇：我如何實作像圓一樣的導航？