如何从多工作表相同位置合并区域提取文本并实现批量循环处理

你当前的代码仅能处理单个工作表，且依赖Select操作导致稳定性差，下面是优化后的批量处理代码，可自动遍历所有工作表并提取指定区域内容到combined表：

Sub BatchExtractMergedText()
    Dim ws As Worksheet
    Dim targetWs As Worksheet
    Dim startRow As Long
    
    ' 关闭屏幕更新，提升运行速度
    Application.ScreenUpdating = False
    
    ' 确保目标工作表"combined"存在，不存在则新建
    On Error Resume Next
    Set targetWs = ThisWorkbook.Worksheets("combined")
    On Error GoTo 0
    If targetWs Is Nothing Then
        Set targetWs = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))
        targetWs.Name = "combined"
    End If
    
    ' 初始化目标表的起始行
    startRow = 1
    
    ' 遍历工作簿中所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 跳过目标工作表本身
        If ws.Name <> "combined" Then
            ' 复制当前状况区域(F32:G44)到目标表
            ws.Range("F32:G44").Copy
            targetWs.Cells(startRow, "B").PasteSpecial Paste:=xlPasteFormulasAndNumberFormats
            startRow = startRow + ws.Range("F32:G44").Rows.Count ' 更新起始行
            
            ' 复制原因区域(F45:G55)到目标表
            ws.Range("F45:G55").Copy
            targetWs.Cells(startRow, "B").PasteSpecial Paste:=xlPasteFormulasAndNumberFormats
            startRow = startRow + ws.Range("F45:G55").Rows.Count ' 更新起始行
            
            ' 复制解决方案区域(F56:G64)到目标表
            ws.Range("F56:G64").Copy
            targetWs.Cells(startRow, "B").PasteSpecial Paste:=xlPasteFormulasAndNumberFormats
            startRow = startRow + ws.Range("F56:G64").Rows.Count ' 更新起始行
            
            ' 可选：在每个工作表内容之间添加空行分隔
            startRow = startRow + 1
        End If
    Next ws
    
    ' 清除剪贴板内容，取消选中状态
    Application.CutCopyMode = False
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
    
    MsgBox "批量提取完成！", vbInformation
End Sub

关键改进说明 #

• 摒弃Select操作：直接通过工作表对象和单元格范围引用，代码更稳定、执行效率更高
• 自动创建目标表：如果combined表不存在，会自动新建，避免因表不存在报错
• 遍历所有工作表：通过For Each循环自动处理71个工作表，无需手动指定
• 动态定位粘贴位置：每次复制区域后，根据区域行数更新目标表起始行，确保内容不重叠
• 保留原格式/公式：沿用你原代码的xlPasteFormulasAndNumberFormats参数，确保提取内容与原表一致；若仅需合并区域文本，可改为xlPasteValuesAndNumberFormats

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