两列数据相同时，用sheet2C列数据替换sheet1B列数据

fcjys

如果sheet1中某行的A、B两列数据与sheet2中某行的A、B相同，将sheet2中C列的数据替换掉sheet1中B列数据

hfwufanhf2006

代码放在sheet1中：
Dim arr
arr = Worksheets("sheet2").Range("a2:c6")
For i = 2 To [a1000].End(3).Row
    For k = 1 To UBound(arr)
        If (Cells(i, 1) = arr(k, 1)) And (Cells(i, 2) = arr(k, 2)) Then
            Cells(i, "h") = arr(k, 3)
            Exit For
        End If
    Next k
Next i

我并没有把B列直接替换掉，而是把查询结果放在了后面空白的H列。我倾向于认为需要在B列的后面增加一列来存放查询结果，这样新旧数据就能对照保存下来可能比较好。如果你还是坚持原来的要求，把
Cells(i, "h") = arr(k, 3) 改成
Cells(i, "b") = arr(k, 3)，这里的"b"代表b列

fcjys

hfwufanhf2006 发表于 2019-5-29 09:09
代码放在sheet1中：
Dim arr
arr = Worksheets("sheet2").Range("a2:c6")

谢谢