Excel中重复值的文本输入自动化实现方法咨询

方法1：用XLOOKUP快速实现（Excel 365/2021可用） #

在D2单元格输入以下公式，然后下拉覆盖所有数据行：

=XLOOKUP(A2,$A$2:$A$100,$D$2:$D$100,"",0,1)

• 逻辑：当你给某个ID的D列填入值后，其他同ID的行会自动定位到该ID对应的第一个已填值并同步。注意把公式里的$A$2:$A$100和$D$2:$D$100替换成你实际的数据范围。

方法2：旧版Excel用INDEX+MATCH组合 #

如果你的Excel版本不支持XLOOKUP，用这个兼容型公式组合：

=INDEX($D$2:$D$100,MATCH(A2,$A$2:$A$100,0))

• 用法和上面一致，下拉填充后，只要同一个ID的任意一行D列有值，其他同ID行都会自动引用这个值。

方法3：VBA宏实现实时同步（输入即生效） #

想要输入值的瞬间就同步所有同ID行？用VBA更高效：

1. 右键点击工作表标签，选择「查看代码」
2. 在弹出的VBA编辑器中粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range, cell As Range
    Dim idValue As Variant, fillValue As Variant
    
    ' 只响应D列的修改操作
    If Not Intersect(Target, Me.Columns("D")) Is Nothing Then
        idValue = Me.Cells(Target.Row, "A").Value
        fillValue = Target.Value
        
        ' 遍历A列所有数据行，匹配ID后填充D列
        Set rng = Me.Range("A2:A" & Me.Cells(Me.Rows.Count, "A").End(xlUp).Row)
        For Each cell In rng
            If cell.Value = idValue Then
                Me.Cells(cell.Row, "D").Value = fillValue
            End If
        Next cell
    End If
End Sub

3. 保存文件时选择「.xlsm」格式（需启用宏），之后在D列输入值，所有同ID的D列单元格会立刻同步内容。

注意事项 #

• 公式方法需要先给所有D列空白行填充公式，后续输入值会自动覆盖空白显示对应内容；若先填部分值再拉公式，也能正常引用已填内容。
• VBA方法需确保宏处于启用状态，否则代码无法生效。

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