将多个 Sheet 复制并粘贴到一个 Sheet

Question

我有多个工作sheet（在本例中为 Sheet1、Sheet2、Sheet3），列数相同，但行数不同（不断变化）。
我想将所有这些整合到一个 sheet.

合并 sheet 的标题是 pre-set，所以我开始粘贴到 sheet 的第 2 行。

Sheet1 = 5000 行（包括 header 行）- 底部没有空行

Sheet2 = 300 行（包括 header 行）- 同上

Sheet3 = 1200 行（包括 header 行）- 同上

合并 = 1 行（仅 header 行）- 同上

当我将 Sheet1（第一个 sheet）粘贴到 Consolidation 时，它确实从第 2 行开始，但它也粘贴空白行以填充整个工作sheet 到 1,048,576 行（限制 sheet).

如何找到第一个空白行，然后将 Sheet2 数据（来自第 2 行）粘贴到底部，然后继续类似的下一个 sheet。

Sheets("Sheet1").Range("A2:CF" & Rows.Count).Copy
Sheets("Consolidate").Activate
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Answer 1

您没有指定最后一行来进行复制粘贴。尝试类似的东西，并尽量避免使用 select.

Sub CheckDuplicateAcrossWorkbook()
Dim pullWs As Worksheet, dropWS As Worksheet, lastRow As Long

Set pullWs = Sheets("Sheet1")
Set dropWS = Sheets("Consolidate")

'make sure no rows are hidden)
lastRow = pullWs.Cells(Rows.Count, 1).End(xlUp).Row

pullWs.Range("A2:CF" & lastRow).Copy
dropWS.Range("A2").Paste
Application.CutCopyMode = False


End Sub

将多个 Sheet 复制并粘贴到一个 Sheet

Copy and Paste Multiple Sheets to One Sheet

excel

vba

count

copy-paste