字典填数

Lareina_wol

如何用字典，将sheet2的数据相应填入sheet1 , sheet1中其他列已经有的数据不能改动。
（现实中，sheet1和sheet2都会涉及很多列，数据量比较大，只需要对其中某几列进行索引）

microyip

我觉得，你首先去学习一下什么叫字典，然后再理顺一下你的需求是什么，最后再用字典解决你的问题吧

网海遨游

Sub test()
  Set sht = Sheets("sheet2")
  arr = sht.[a1].CurrentRegion
  Set d = CreateObject("scripting.dictionary")
  For i = 2 To UBound(arr)
    For j = 2 To UBound(arr, 2)
      If arr(1, j) Like "*备注*" Then
        If arr(i, j) <> "" Then
          s = arr(i, 1) & arr(1, j)
          d(s) = arr(i, j)
        End If
      End If
    Next j
  Next i
  Set sh = Sheets("sheet1")
  brr = sh.[a1].CurrentRegion
  For x = 2 To UBound(brr)
    For y = 2 To UBound(brr, 2)
      If brr(x, y) = "" Then
        s1 = brr(x, 1) & brr(1, y)
        brr(x, y) = d(s1)
      End If
    Next
  Next x
  sh.[a1].CurrentRegion = brr
End Sub

hahahaha0001

也想学习一下，先搜一下学习学习再说。