Excel多工作表关联设置：按子表B值更新父表唯一ID列值

嘿，这个需求我之前帮朋友处理过，其实用Excel自带的工具就能轻松搞定，给你分享几个实用的方法，按需选就行：

这是最直接的方法，不用复杂操作，直接写公式就行：
假设工作表1的cid列在A列，「A or B?」列在B列，工作表2的cid列在A列，text value列在B列，那在工作表1的B2单元格输入：

=IF(COUNTIFS(Sheet2!$A:$A, Sheet1!$A2, Sheet2!$B:$B, "B")>0, "B", "A")

然后下拉填充整个「A or B?」列就搞定了。

原理说明：COUNTIFS会统计工作表2里同时满足两个条件的记录数——cid等于当前行的A2值，且text value是"B"。只要统计数大于0，说明存在至少一条B记录，就返回"B"；否则返回"A"。
小提示：如果你的列位置不一样，记得把公式里的Sheet2!$A:$A、Sheet2!$B:$B改成你实际的列范围就行。

如果你的数据行数特别多，公式下拉可能有点卡，用Power Query更高效：

1. 选中工作表2的数据区域，点击「数据」选项卡→「从表格/区域」（如果弹出对话框，勾选「我的表格有标题」），进入Power Query编辑器
2. 在编辑器里，点击text value列的筛选器，只保留"B"的记录；然后点击cid列→「移除重复项」（因为只要有一个B就够了，不需要重复的cid）
3. 保存这个查询，命名为「B_CID_List」
4. 回到工作表1，同样把数据导入Power Query编辑器，点击「合并查询」→「合并为新查询」，选择刚才的「B_CID_List」，匹配列选cid，连接类型选「左外部」
5. 添加一个自定义列，输入公式：=if [B_CID_List.cid] <> null then "B" else "A"
6. 删除多余的合并列，点击「关闭并上载」，就能得到处理好的结果了

如果这个操作你需要频繁执行，可以写个简单的VBA脚本一键搞定：
按Alt+F11打开VBA编辑器，插入一个新模块，粘贴下面的代码：

Sub SetAorBStatus()
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim targetCIDRange As Range, cidCell As Range
    Dim currentCID As String, hasBRecord As Boolean
    
    ' 定义工作表，根据你的实际表名修改
    Set wsSource = ThisWorkbook.Sheets("Sheet2") ' 存储A/B记录的表
    Set wsTarget = ThisWorkbook.Sheets("Sheet1") ' 需要设置A/B的表
    
    ' 获取工作表1中cid列的有效数据范围（假设cid在A列，从第2行开始）
    Set targetCIDRange = wsTarget.Range("A2:A" & wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row)
    
    ' 遍历每个cid
    For Each cidCell In targetCIDRange
        currentCID = cidCell.Value
        hasBRecord = False
        
        ' 在工作表2中查找对应cid且text value为B的记录
        On Error Resume Next
        hasBRecord = Not wsSource.Range("B:B").Find(What:="B", LookIn:=xlValues, LookAt:=xlWhole) Is Nothing And _
                     wsSource.Range("A:A").Find(What:=currentCID, LookIn:=xlValues, LookAt:=xlWhole).Row = _
                     wsSource.Range("B:B").Find(What:="B", LookIn:=xlValues, LookAt:=xlWhole).Row
        On Error GoTo 0
        
        ' 设置「A or B?」列的值（假设在B列）
        If hasBRecord Then
            cidCell.Offset(0, 1).Value = "B"
        Else
            cidCell.Offset(0, 1).Value = "A"
        End If
    Next cidCell
    
    MsgBox "处理完成！"
End Sub

修改代码里的工作表名和列位置（如果你的cid或text value不在A/B列），然后按F5运行，就能自动完成所有设置了。

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