替换

ddz79101

老师！元旦快乐！有2张票，希望第2张表中金额根据，第1张表中的第1列金额替换为第2列金额。

q490525427

嘿嘿
Sub 替换()
    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("Sheet2")
    Set dict = CreateObject("Scripting.Dictionary")
    lastRowWs1 = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row
    For i = 2 To lastRowWs1
        dict(ws1.Cells(i, "A").Value) = ws1.Cells(i, "B").Value
    Next i
    lastRowWs2 = ws2.Cells(ws2.Rows.Count, "D").End(xlUp).Row
    lastColWs2 = ws2.Cells(2, ws2.Columns.Count).End(xlToLeft).Column
    Data = ws2.Range(ws2.Cells(2, 4), ws2.Cells(lastRowWs2, lastColWs2)).Value
    For i = 1 To UBound(Data, 1)
        For j = 1 To UBound(Data, 2)
            If dict.exists(Data(i, j)) Then
                Data(i, j) = dict(Data(i, j))
            End If
        Next j
    Next i
    ws2.Range(ws2.Cells(2, 4), ws2.Cells(lastRowWs2, lastColWs2)).Value = Data
    MsgBox "替换完成！"
End Sub

q490525427

参考的附件

ddz79101

q490525427 发表于 2025-1-1 12:50
参考的附件

谢谢老师！元旦快乐！运行成功

西瓜籽

学习一下,供参考...

ddz79101

西瓜籽 发表于 2025-1-1 14:52
学习一下,供参考...

谢谢老师！元旦快乐！运行成功

cnmlgb9998

PQ 方案，是这个效果吗？？？？？？？？？

土豆0202

一个函数解决
=IFNA(VLOOKUP(D2,Sheet1!$A$2:$B$13,2,FALSE),"")

gwjkkkkk

gwjkkkkk

请参考。。。