Question

我需要根据单元格内容用另一张表（在另一张纸上）的数据替换整列中的数据。

我正在根据我办公室系统上最近十年的条目来构建数据库，并且表格的第一列是条目的ID。在另一张纸上，我创建了一个表，引用了每个ID的乘积（ColA = ID，ColB =产品）。我需要创建一个vba代码，用我的第一个表中的每个ID替换另一个表中ColB中的产品名称，因为ID太多，并且它们可能重复很多次。

我不太习惯VBA，所以我不知道从哪里开始。

-编辑- 在一些尝试中，我尝试使用For Each函数。我的想法是为第一个表中的Col1创建某种数组，并读取每个单元格，并将其与Table2的Col1进行比较；如果相等，则替换为Table2的相邻单元格

Private Sub massive_update()

Dim code1 As Range
Dim code2 As Range
Dim prod As Range
code1 = "E3:E122"
code2 = "A2:A37"
prod = "B2:B37"
    For Each Item In code1
        If code1 = code2 Then
            Columns("E").Replace what:=code1, replacement:=code2, lookat:=xlPart, MatchCase:=False
        End If
End Sub

Answer 1

很抱歉收到如此延迟的反馈。碰巧一个简单的VLOOKUP解决了这个问题，不需要VBA，没有压力。

如何用另一张纸上的值替换整列的单元格值

1 个答案: