基于State列匹配两表格，用VBA添加表2无匹配行至主表

以下是针对需求的VBA解决方案，完全基于表头定位列，适配动态CSV数据拉取场景，无需固定单元格范围：

Sub MergeNewStatesToMainTable()
    Dim mainWs As Worksheet, sourceWs As Worksheet
    Dim mainStateCol As Integer, sourceStateCol As Integer
    Dim lastRowMain As Long, lastRowSource As Long
    Dim stateDict As Object
    Dim i As Long, nextRowMain As Long
    
    ' 定义工作表，根据实际表名修改
    Set mainWs = ThisWorkbook.Worksheets("主表")
    Set sourceWs = ThisWorkbook.Worksheets("表2")
    Set stateDict = CreateObject("Scripting.Dictionary")
    
    ' 定位主表的State列（通过表头查找）
    On Error Resume Next
    mainStateCol = mainWs.Rows(1).Find(What:="State", LookIn:=xlValues, LookAt:=xlWhole).Column
    sourceStateCol = sourceWs.Rows(1).Find(What:="State", LookIn:=xlValues, LookAt:=xlWhole).Column
    On Error GoTo 0
    
    ' 检查是否找到State列
    If mainStateCol = 0 Or sourceStateCol = 0 Then
        MsgBox "未找到State表头，请检查表格", vbExclamation
        Exit Sub
    End If
    
    ' 获取主表所有已存在的State值，存入字典（快速去重查找）
    lastRowMain = mainWs.Cells(mainWs.Rows.Count, mainStateCol).End(xlUp).Row
    For i = 2 To lastRowMain
        Dim mainState As String
        mainState = Trim(mainWs.Cells(i, mainStateCol).Value)
        If mainState <> "" And Not stateDict.Exists(mainState) Then
            stateDict.Add mainState, True
        End If
    Next i
    
    ' 遍历表2，将主表没有的行复制到主表
    lastRowSource = sourceWs.Cells(sourceWs.Rows.Count, sourceStateCol).End(xlUp).Row
    nextRowMain = lastRowMain + 1
    
    For i = 2 To lastRowSource
        Dim sourceState As String
        sourceState = Trim(sourceWs.Cells(i, sourceStateCol).Value)
        If sourceState <> "" And Not stateDict.Exists(sourceState) Then
            ' 复制整行数据到主表
            sourceWs.Rows(i).Copy Destination:=mainWs.Rows(nextRowMain)
            ' 将新State加入字典，避免重复复制
            stateDict.Add sourceState, True
            nextRowMain = nextRowMain + 1
        End If
    Next i
    
    MsgBox "合并完成，共新增 " & nextRowMain - lastRowMain - 1 & " 行数据", vbInformation
End Sub

代码说明 #

• 动态范围适配：通过End(xlUp)自动识别数据最后一行，无需固定单元格地址，适配CSV动态更新场景。
• 表头定位：用Find方法查找"State"表头，不管列位置如何变化都能准确定位。
• 高效查找：使用字典存储主表已有的State值，查找效率远高于COUNTIF/VLOOKUP，适合大数据量场景。
• 去重保障：每复制一行就将对应State加入字典，避免同一State被重复复制。

使用步骤 #

1. 打开Excel，按Alt + F11打开VBA编辑器。
2. 右键点击当前工作簿，选择「插入」→「模块」。
3. 将上述代码粘贴到模块中，根据实际表名修改mainWs和sourceWs的工作表名称。
4. 按F5运行代码，或回到Excel界面，通过「开发工具」→「宏」选择对应宏执行。

注意事项 #

• 确保主表和表2的表头完全一致，否则复制的列会错位。
• 如果CSV拉取后表2的表头会变化，需确认"State"表头的拼写一致（代码中用LookAt:=xlWhole匹配完整表头，大小写不影响）。

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