正在学VBA字典嵌套，请问如何取出数据

his803

正在学VBA字典嵌套，请问下图如何取出1月份数据


Sub test()
Dim i, j, arr, nj
Set d = CreateObject("scripting.dictionary")
arr = Range("a1:l4").CurrentRegion
For i = 2 To UBound(arr)
  For j = 2 To UBound(arr, 2)
      If Not d.exists(arr(i, 1)) Then
      Set d(arr(i, 1)) = CreateObject("scripting.dictionary")
      If Not d(arr(i, 1)).exists(arr(1, j)) Then
      d(arr(i, 1))(arr(1, j)) = arr(i, j)
      End If
    End If
  Next
Next



End Sub

ykcbf1100

上传一个附件吧。

his803

ykcbf1100 发表于 2022-12-1 08:38
上传一个附件吧。

好的，附件已上传！

陆离Lowry

1. brr=[A8].CURRENTREGION
   
2. for i= 2 TO ubound(brr)
   
3.         brr(i,3)=d(brr(i, 1))(brr(i, 2))
   
4. next
   
5. [a8].resize(ubound(brr),3)=brr

复制代码

ω逆鳞々

[c2]=d([a9].value)([b9].value)

his803

ω逆鳞々 发表于 2022-12-1 08:56
[c2]=d([a9].value)(.value)

谢谢大神

his803

ω逆鳞々 发表于 2022-12-1 08:56
[c2]=d([a9].value)(.value)

Range("c9") = d(Range("a9"))(Range("b9"))
这是我开始写的，原来没有加后缀。

ykcbf1100

his803 发表于 2022-12-1 08:42
好的，附件已上传！

那就这样吧。

his803

ykcbf1100 发表于 2022-12-1 09:15
那就这样吧。

谢谢老师！