嘿，我来帮你搞定这个Excel自动化的需求，分两部分给你详细说明：

要把每个新导入工作表的B3:O3区域内容合并后放到汇总表的对应单元格，用VBA来实现是最灵活的方案。下面是具体的代码和步骤：

首先，打开你的Excel工作簿，按下Alt + F11打开VBA编辑器，插入一个新模块（右键点击工作簿名称→插入→模块），然后粘贴以下代码：

Sub CopySheetDataToSummary()
    Dim wsSummary As Worksheet
    Dim wsNew As Worksheet
    Dim colIndex As Integer
    Dim mergedText As String
    
    ' 定位到汇总表，注意名称要和你的实际表名一致
    Set wsSummary = ThisWorkbook.Worksheets("Summary Sheet")
    colIndex = 1 ' 从汇总表的A列开始填充
    
    ' 遍历所有非汇总表的工作表
    For Each wsNew In ThisWorkbook.Worksheets
        If wsNew.Name <> wsSummary.Name Then
            ' 合并B3:O3区域的内容，用逗号分隔（可自行修改分隔符）
            ' 新版Excel支持TEXTJOIN，旧版可以用下面的替代代码
            mergedText = WorksheetFunction.TextJoin(", ", True, wsNew.Range("B3:O3"))
            
            ' 👇 旧版Excel（无TEXTJOIN）的替代写法：
            ' mergedText = ""
            ' For Each cell In wsNew.Range("B3:O3")
            '     If cell.Value <> "" Then
            '         If mergedText <> "" Then mergedText = mergedText & ", "
            '         mergedText = mergedText & cell.Value
            '     End If
            ' Next cell
            
            ' 将合并后的内容写入汇总表第2行的对应列
            wsSummary.Cells(2, colIndex).Value = mergedText
            colIndex = colIndex + 1 ' 切换到下一列
        End If
    Next wsNew
    
    MsgBox "数据复制完成！", vbInformation
End Sub

代码说明： #

• TEXTJOIN(", ", True, ...)：第一个参数是分隔符（比如改成" | "），True表示忽略空单元格，自动把B3:O3的内容拼接成一个字符串
• 遍历逻辑会自动跳过汇总表，只处理新导入的工作表，每个工作表对应汇总表的一列（第一个新表→A2，第二个→B2，以此类推）

要实现“导入新工作表后自动执行数据复制”，我们可以把导入工作表和数据复制的逻辑整合到同一个VBA宏里，这样点击一次就能完成所有操作。

同样在VBA模块里添加下面的代码：

Sub ImportSheetsAndCopyData()
    Dim importPath As String
    Dim wbSource As Workbook
    Dim wsSource As Worksheet
    
    ' 弹出文件选择框，让用户选择要导入的Excel文件
    importPath = Application.GetOpenFilename( _
        FileFilter:="Excel文件 (*.xlsx;*.xls), *.xlsx;*.xls", _
        Title:="选择要导入的工作簿")
    If importPath = "False" Then Exit Sub ' 用户取消选择时退出
    
    ' 后台打开源工作簿（不显示窗口）
    Set wbSource = Workbooks.Open(FileName:=importPath, ReadOnly:=True)
    
    ' 复制源工作簿的所有工作表到当前工作簿（你可以加筛选条件）
    For Each wsSource In wbSource.Worksheets
        ' 👇 如果只需要导入特定名称的工作表，比如包含"Sheet"的，可以加这个判断
        ' If InStr(wsSource.Name, "Sheet") > 0 Then
            wsSource.Copy After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
        ' End If
    Next wsSource
    
    ' 关闭源工作簿，不保存任何修改
    wbSource.Close SaveChanges:=False
    
    ' 自动调用数据复制的子过程
    Call CopySheetDataToSummary
End Sub

如何方便使用这个宏？ #

你可以把它添加到Excel的快速访问工具栏：

1. 右键点击顶部的快速访问工具栏，选择「自定义快速访问工具栏」
2. 在「选择命令」下拉框里选「宏」，找到ImportSheetsAndCopyData
3. 点击「添加」，还可以点击「修改」给它设置一个图标，之后点击图标就能一键执行导入+复制操作了

注意事项： #

• 确保汇总表的名称是Summary Sheet，如果你的表名不一样，记得修改代码里的对应部分
• 如果导入的工作表有重名，Excel会自动加(2)这类后缀，代码依然能正常处理
• 如果需要复制B3:O3的格式而不只是文本，可以把赋值语句改成wsNew.Range("B3:O3").Copy wsSummary.Cells(2, colIndex)，不过这样会覆盖单元格格式，按需选择

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