如果2列相同,则查找并替换

时间:2017-03-24 15:26:51

标签: excel excel-vba vba

所以我有这个表,如果P列中的单元格与V列中的单元格匹配,则将Q单元替换为W列中的值。

enter image description here

我找到了这个vba脚本,但没有做我真正需要的东西,我无法弄清楚如何编辑它。

https://www.extendoffice.com/documents/excel/1873-excel-find-and-replace-multiple-values-at-once.html

你能帮助我吗?

1 个答案:

答案 0 :(得分:1)

考虑:

Sub Substi_toot()
    Dim i As Long, N As Long

    N = Cells(Rows.Count, "P").End(xlUp).Row
    For i = 1 To N
        If Cells(i, "P") = Cells(i, "V") Then Cells(i, "Q") = Cells(i, "W")
    Next i
End Sub