對應(yīng)的宏代碼：

Public Sub test() Dim Arr1, Arr2, Arr3 Dim Arr4() Dim Dic As Object Dim MyRng As Range Dim i As LongSet MyRng = Sheet1.UsedRange Set MyRng = MyRng.Offset(1).Resize(MyRng.Rows.Count - 1, 3) Arr1 = MyRng.ValueSet MyRng = Sheet2.UsedRange Set MyRng = MyRng.Offset(1).Resize(MyRng.Rows.Count - 1, 3) Arr2 = MyRng.ValueSet MyRng = Sheet3.UsedRange Set MyRng = MyRng.Offset(1).Resize(MyRng.Rows.Count - 1, 1) Arr3 = MyRng.ValueSet Dic = CreateObject("scripting.dictionary")For i = 1 To UBound(Arr3) Dic.Add Arr3(i, 1), i Next i ReDim Arr4(1 To UBound(Arr3), 1 To 4)For i = 1 To UBound(Arr1) If Dic.exists(Arr1(i, 1)) Then Arr4(Dic.Item(Arr1(i, 1)), 1) = Arr1(i, 2) Arr4(Dic.Item(Arr1(i, 1)), 2) = Arr1(i, 3)End If Next iFor i = 1 To UBound(Arr2) If Dic.exists(Arr2(i, 1)) Then Arr4(Dic.Item(Arr2(i, 1)), 3) = Arr2(i, 2) Arr4(Dic.Item(Arr2(i, 1)), 4) = Arr2(i, 3)End If Next iRange("B2").Resize(Dic.Count, 4) = Arr4 End Sub

總結(jié)

以上是生活随笔為你收集整理的excel使用数据字典显示数据——宏的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。