Question

我有以下vba：数据是所有文本，每个工作表上的列标题的行A - J是相同的数据是所有“前1000名”的SQL查询 4张（sheet1，sheet2，sheet3，Master）

表1：100行表2：34行表3：900行主人：合并三张数据

问题：Sheet3仅复制84行，但是向其他工作表添加更多行将复制到Master。只有sheet3不会复制超过84行。

'步骤1：更新前清除主服务器 '第2步：遍历区域表

Sub Consolidate（）

Dim cell            As Range
Dim wks             As Worksheet

Sheets("Master").Range("A2:Z65536").ClearContents

For Each wks In ThisWorkbook.Worksheets
    If wks.Name <> "Master" And wks.Range("A2") <> "" Then

        For Each cell In wks.Range(wks.Range("A2"), wks.Range("A2").End(xlDown))
             cell.EntireRow.Copy Destination:=Worksheets("Master").Range("A65536").End(xlUp).Offset(1, 0)
        Next cell
    End If
Next wks

End Sub

由于

Answer 1

始终填充Range(A2)的数据？

wks.Range(wks.Range("A2"), wks.Range("A2").End(xlDown))中的For Each单元格将从A2开始，然后转到空白/空单元格之前的最后一个填充单元格。

Excel VBA将多个工作表复制到一个工作表中不起作用

1 个答案: