合并Excel工作表时如何返回工作表/标签页名称

以下是修改后的宏代码，会在合并结果中新增一列“州名”，自动填充对应工作表的名称（即州名），同时保留所有原有数据：

Sub CombineWithStateName()
    Dim wsCombined As Worksheet
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim dataRange As Range
    
    ' 创建合并工作表（如果已存在则直接使用）
    On Error Resume Next
    Set wsCombined = ThisWorkbook.Worksheets("Combined")
    On Error GoTo 0
    If wsCombined Is Nothing Then
        Set wsCombined = ThisWorkbook.Worksheets.Add(Before:=ThisWorkbook.Worksheets(1))
        wsCombined.Name = "Combined"
    End If
    
    ' 复制表头并新增“州名”列
    ThisWorkbook.Worksheets(2).Range("A1").EntireRow.Copy Destination:=wsCombined.Range("A1")
    wsCombined.Cells(1, wsCombined.UsedRange.Columns.Count + 1).Value = "州名"
    
    ' 循环处理每个工作表（跳过合并表）
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "Combined" Then
            ' 获取当前工作表的数据区域（跳过表头）
            Set dataRange = ws.Range("A1").CurrentRegion.Offset(1, 0).Resize(ws.Range("A1").CurrentRegion.Rows.Count - 1)
            If dataRange.Rows.Count > 0 Then
                ' 找到合并表的最后一行
                lastRow = wsCombined.Cells(wsCombined.Rows.Count, "A").End(xlUp).Row + 1
                ' 复制数据到合并表
                dataRange.Copy Destination:=wsCombined.Cells(lastRow, "A")
                ' 填充州名（工作表名称）到对应列
                wsCombined.Range(wsCombined.Cells(lastRow, wsCombined.UsedRange.Columns.Count), _
                                wsCombined.Cells(lastRow + dataRange.Rows.Count - 1, wsCombined.UsedRange.Columns.Count)).Value = ws.Name
            End If
        End If
    Next ws
    
    ' 自动调整列宽
    wsCombined.UsedRange.Columns.AutoFit
End Sub

关键改动说明 #

• 新增**“州名”列**：在复制原有表头后，自动在最后一列添加“州名”标题
• 填充州名：每次复制完某个工作表的数据后，将该工作表的名称批量填充到对应行的“州名”列
• 优化代码逻辑：去掉原宏中冗余的Select/Activate操作，改用对象引用，提升代码运行效率和稳定性
• 容错处理：如果“Combined”工作表已存在，直接复用而非重复创建

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