如何从多个工作表复制指定单元格数据至主工作表（跳过主表）

原示例代码仅能完成单个单元格的复制粘贴，无法批量处理多工作表的需求。以下是更高效、更贴合需求的优化方案：

方案一：仅复制数据（推荐，性能最优） #

如果只需要提取A1单元格的文本/数值，直接赋值比复制粘贴更高效，还能避免剪贴板占用：

Sub CopyAllSheetA1ToMain()
    Dim mainSheet As Worksheet
    Dim ws As Worksheet
    Dim targetRow As Long
    
    ' 替换成你的主工作表名称
    Set mainSheet = ThisWorkbook.Worksheets("主表")
    targetRow = 2 ' 从第2行开始粘贴，可根据需求调整起始位置
    
    ' 遍历工作簿中所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 跳过主工作表
        If ws.Name <> mainSheet.Name Then
            ' 直接将目标单元格的值赋值到主表
            mainSheet.Cells(targetRow, "A").Value = ws.Range("A1").Value
            targetRow = targetRow + 1
        End If
    Next ws
End Sub

方案二：复制数据+格式 #

如果需要保留A1单元格的格式（如字体、颜色、单元格样式），可以用带粘贴选项的复制：

Sub CopyAllSheetA1WithFormatToMain()
    Dim mainSheet As Worksheet
    Dim ws As Worksheet
    Dim targetRow As Long
    
    Set mainSheet = ThisWorkbook.Worksheets("主表")
    targetRow = 2
    
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> mainSheet.Name Then
            ' 复制单元格内容及格式
            ws.Range("A1").Copy
            mainSheet.Cells(targetRow, "A").PasteSpecial xlPasteAll
            targetRow = targetRow + 1
        End If
    Next ws
    
    ' 清除剪贴板状态，避免后续操作干扰
    Application.CutCopyMode = False
End Sub

优化点说明 #

• 批量遍历逻辑：自动处理所有工作表，无需逐个指定Sheet2、Sheet3，新增工作表时无需修改代码
• 性能差异：直接赋值的方式比复制粘贴快3-5倍，尤其在工作表数量较多时优势明显
• 灵活性：可以轻松修改目标列（比如把"A"改成"B"）或起始行，适配不同排版需求

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