请教老师们：如何根据单元格内容精确匹配数据？

学电子表格

这种问题工作中用的比较多，但是编程我还不熟悉怎么弄，请教哈老师们：如何根据单元格内容精确匹配数据？具体见描述及和附件。
请教：
    老师们，我有这样一个问题，我有两张表，顺序是打乱的，sheet1 中的这个假设是源表，本工作簿中还有一张表：目标表。
   现在我要做的工作是：根据目标表中科目名称去sheet1这张表中找到对应的科目，然后将该科目对应的资金粘贴到目标表中对应科目右边。
  这个仅仅是我处理表格中的一个环节（原表）设置有不少公式，我就想在电子表格里面循环处理这些基础数据，代码怎么写？
  用for循环怎么写？用for each又如何写代码？谢谢

LIUZHU

一般就用Vlookup

gwjkkkkk

二楼公式最简单，代码的话字典，数组，find方法均可。

gwjkkkkk

Option Explicit
Sub TEST6()
    Dim ar, i&, dic As Object
   
    Application.ScreenUpdating = False
    Set dic = CreateObject("Scripting.Dictionary")
   
    ar = Sheets(1).[A1].CurrentRegion.Value
    For i = 2 To UBound(ar)
        dic(ar(i, 1)) = ar(i, 2)
    Next i
   
    With [A1].CurrentRegion
        ar = .Value
        For i = 2 To UBound(ar)
            ar(i, 2) = dic(ar(i, 1))
        Next i
        .Value = ar
    End With
    Set dic = Nothing
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

请参考。。。

学电子表格

gwjkkkkk 发表于 2024-3-27 19:15
请参考。。。

谢谢老师，我学习哈 。