遍历Excel A列按单元格值复制数据到D、E两列的实现方案咨询

方案选择建议 #

两种方案均可以实现需求，适用场景不同：

• 数据量小、不需要重复操作、不想启用宏的场景，优先用内置公式
• 数据量过万、需要反复操作、后续可能调整逻辑的场景，VBA方案更便捷，也能避免公式误改导致的计算错误

内置公式实现方案 #

假设你的数据从第2行开始（第1行是表头，A列存国家、B列存Entity值），按以下步骤操作：

1. D2单元格输入公式：
   =IF(A2<>A1,B2,"")
   该公式判断当前行是否为对应国家的第一条记录，是则填入对应B列的值，否则留空
2. E2单元格输入公式：
   =IFERROR(IF(AND(A2=A3,A2<>A1),B3,""),"")
   该公式判断当前国家是否存在第二条记录，是则将下一行的Entity值填入当前行E列，否则留空，外层IFERROR用于避免最后一行数据引用空单元格报错
3. 选中D2、E2单元格，下拉公式到所有数据行即可生效

VBA实现方案 #

实现代码 #

按Alt+F11打开VBA编辑器，右键当前工作簿选择「插入-模块」，粘贴以下代码后运行即可：

Sub 填充国家对应Entity值()
    Dim lastRow As Long, i As Long
    '获取A列最后一行行号
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    '清空原有D、E列数据，避免旧数据干扰
    Range("D2:E" & lastRow).ClearContents
    
    For i = 2 To lastRow
        '判断是否为当前国家的第一条记录
        If Cells(i, "A").Value <> Cells(i - 1, "A").Value Then
            Cells(i, "D").Value = Cells(i, "B").Value
            '判断是否存在第二条同国家记录
            If i + 1 <= lastRow And Cells(i, "A").Value = Cells(i + 1, "A").Value Then
                Cells(i, "E").Value = Cells(i + 1, "B").Value
            End If
        End If
    Next i
End Sub

注意事项 #

• 代码默认数据从第2行开始，表头位于第1行，若你的数据起始行不同，修改For i = 2 To lastRow中的起始数值即可
• 若单个国家存在超过2条记录，可自行拓展逻辑，将后续Entity值依次填入F、G等列
• 运行代码前请先备份原数据，避免误操作导致内容丢失

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