编写宏从多工作表提取数据至OVERVIEW表，解决仅复制首个表问题

我懂你的痛点——现在的宏只能处理第一个工作表，想要让它自动遍历所有工作表，把每个表的数据按行提取，直到遇到空单元格才停止，对吧？下面我给你调整代码，实现这个逻辑：

核心思路 #

• 遍历工作簿中除了OVERVIEW之外的所有工作表
• 对每个工作表，找到数据区域的最后一行（从指定列向上定位空单元格的前一行）
• 将该工作表的数据复制到OVERVIEW表的下一个空行位置

完整VBA代码示例 #

Sub ExtractDataToOverview()
    Dim ws As Worksheet
    Dim overviewWs As Worksheet
    Dim lastRow As Long
    Dim overviewLastRow As Long
    
    ' 指定目标OVERVIEW工作表
    Set overviewWs = ThisWorkbook.Worksheets("OVERVIEW")
    
    ' 遍历工作簿中的每个工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 跳过OVERVIEW本身，避免重复处理
        If ws.Name <> "OVERVIEW" Then
            ' 找到当前工作表A列最后一个有数据的行（可改成你需要判断的列）
            lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
            
            ' 仅当当前工作表有数据时执行复制
            If lastRow >= 1 Then
                ' 找到OVERVIEW表A列的最后空行位置
                overviewLastRow = overviewWs.Cells(overviewWs.Rows.Count, "A").End(xlUp).Row
                
                ' 处理OVERVIEW表为空的情况
                If overviewLastRow = 1 And overviewWs.Cells(1, "A").Value = "" Then
                    overviewLastRow = 1
                Else
                    overviewLastRow = overviewLastRow + 1
                End If
                
                ' 复制当前工作表的全部数据区域（从A1到最后一行最后一列）
                ws.Range("A1:" & ws.Cells(lastRow, ws.Columns.Count).End(xlToLeft).Address).Copy
                ' 粘贴值和格式到OVERVIEW表
                overviewWs.Cells(overviewLastRow, "A").PasteSpecial xlPasteValuesAndNumberFormats
                
                ' 清除剪贴板，避免弹窗干扰
                Application.CutCopyMode = False
            End If
        End If
    Next ws
    
    MsgBox "数据提取完成！", vbInformation
End Sub

关键细节说明 #

• 精准定位最后一行：用ws.Cells(ws.Rows.Count, "A").End(xlUp).Row可以准确找到A列最后一个非空单元格的行号，如果你需要根据其他列判断，把"A"改成对应的列字母即可。
• 跳过目标表：通过If ws.Name <> "OVERVIEW" Then避免处理目标表本身，防止数据混乱。
• 粘贴方式可选：代码里用xlPasteValuesAndNumberFormats只粘贴值和格式，如果你需要保留公式或全部格式，可以改成xlPasteAll。

特殊情况处理 #

如果你的数据中间存在空行，但需要提取到真正的数据末尾，可以把找最后一行的逻辑替换成：

' 定位整个工作表最后一个有数据的单元格行号
lastRow = ws.UsedRange.Rows(ws.UsedRange.Rows.Count).Row

不过这种方式会包含所有用过的单元格（哪怕只有格式无数据），按需选择即可。

内容的提问来源于stack exchange，提问作者user1669649