求助代码所代表的意思

一切随心走

求助如下代码所代表的意思

Sub yy()
Dim d, arr, brr, i&, j&, s$, js
Set d = CreateObject("Scripting.Dictionary")
arr = Sheets("工作表2").[a1].CurrentRegion.Value
brr = Sheets("工作表1").[a1].CurrentRegion.Value
ReDim crr(1 To UBound(brr) - 1, 1 To UBound(brr, 2) - 1)
For i = 2 To UBound(arr)
  For j = 2 To UBound(arr, 2)
    s = arr(i, 1) & arr(1, j)
    d(s) = arr(i, j)
  Next
Next
For i = 2 To UBound(brr)
  For j = 3 To UBound(brr, 2)
    s = brr(i, 2) & brr(1, j)
    brr(i, j) = d(s)
  Next
Next
Sheets("工作表1").[a1].Resize(UBound(brr), UBound(brr, 2)) = brr
Set d = Nothing
End Sub

smhf_6

表1 与 表2的结构是基本相同的，或者说表1的结构是表2的一部分，但不一定是全部，位置、顺序也不一定相同。
现通过字典，以行标题+列标题为键，引入数据，赋值到表1有相应的行标题+列标题对应的位置

字典的好处是： 只要键值一致可以了，与位置、顺序无关，所以使用起来是非常方便的。
如果2表结构完全一致。则没必要用宏了，直接复制--粘贴可以了

E-知道

1、开始程序，，程序名称
2、定义变量
3、建立字典
4、给字典1赋值
5、给字典2赋值
6、建立循环长度
7、建立循环i
8、建立循环j
9、给变量s赋值
10、给字典赋值
11、开始循环i
12、开始循环j
13、将字典中的数据转至到工作表1的A1列中
14、清空字典数据
15、结束程序