請給我一些幫助，多張表格需要復制在一張表格名稱報告中。我正在使用下面的代碼，但它不是副本。我的 excel 檔案包含作業表 1，直到作業表 8，A 列和 B 列行始終更改資料。
Sub Consolidate()
Dim i As Integer
For i = 1 to Worksheets.Count = 1
Worksheets(1).Select
Range("A1").Select
Range(Selection, Selection.End(x1Down)).Select
Range(Selection, Selection.End(x1TopRight)).Select
Selection.Copy
Worksheets("Report").Select
Range("A1048576").Select
Selection.End(x1Up).Select
ActiveCell.Offset(1,0).Select
ActiveSheet.Paste
Next i
End sub
請檢查附件。
請填寫報告
uj5u.com熱心網友回復：
以下是處理您正在嘗試執行的操作的一種方法：
Sub Consolidate()
Dim i%, inTgtCol%, lgLR&
''' Init target colomn as -1 (so 1st paste below will be to column 1)
inTgtCol = -1
For i = 1 To Worksheets.Count: With Worksheets(i)
''' Process all sheets except Report
If .Name <> "Report" Then
''' Get last non-empty cell in column A
''' Copy from A1 to corresponding last row in column B
lgLR = .Range("A" & .Rows.Count).End(xlUp).Row
.Range("A1", "B" & lgLR).Copy
''' Increment target column and Paste to Report
''' (column 1, column 3, etc., for each sheet copied)
inTgtCol = inTgtCol 2
Worksheets("Report").Cells(1, inTgtCol).PasteSpecial Paste:=xlAll
End If
End With: Next i
End Sub
如果源作業表的資料不止一列，則可以編輯上述內容以解決該問題。如果您需要這方面的幫助，請說明有多少列，或者在這種情況下說“它是可變的”。
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/348749.html
上一篇：將字串傳遞給用戶表單
下一篇：我試圖找到給定范圍之間的所有數字