大家好，我们今天继续讲解VBA数组与字典解决方案，今日的内容是第41讲，在利用字典时，精准控制字典键值回填的方法。通过我前几讲的讲解，大家发现了字典利用的妙处，这种妙处往往是不可说的，给我们的工作带来了极大的便利，让我们的工作可以瞬间完成。做到秒杀。但问题来了，如果我想精确的控制键值的回填，该如何做到呢？之前的讲解中，我总是在利用数组的转置，一次完成，现在我需要的是精准的控制，是否可以做到呢？答案是肯定的。
我们看下面的数据，我们要实现按A列汇总后，将数据回填到E、 F列时要一个一个的填入，以利于我们在某些程序中能对数据有针对性的处理。
这里我们要利用到count属性了，下面我们看我给出的代码：
Sub mynzsz_41() ‘第41讲 在利用字典时，精准控制字典键值回填的方案
Dim mydic, myarr
Sheets(“41”).Select
Set mydic = CreateObject(“scripting.dictionary”)
myarr = Sheets(“41”).UsedRange
For i = 2 To UBound(myarr)
‘当mydic(arr(i,1))没有值时，默认是0，通过下面进行累加。
mydic(myarr(i, 1)) = mydic(myarr(i, 1)) + myarr(i, 2)
Next
‘为字典键值的回填做区域准备
Range(“e:f”).ClearContents
‘将表头A1,B1复制到e1，f1单元格
Sheets(“41”).Range(“a1:b1”).Copy Sheets(“41”).Range(“e1”)
‘将键去重，纵向写入到单元格
Sheets(“41”).Cells(2, “e”).Resize(mydic.Count, 1) = Application.Transpose(mydic.Keys)
For i = 2 To mydic.Count + 1
‘循环输入字典键对应的值到f列,逐一找到键的对应键值
Sheets(“41”).Cells(i, “f”).Value2 = mydic(Sheets(“41”).Cells(i, “e”).Value)
Next
‘释放内存
Set mydic = Nothing
End Sub
代码截图：
代码讲解：
1 上述代码实现了将字典数据回填时精准控制每个键值的目的，这个过程中主要利用了mydic.Count 的属性。
2 myarr = Sheets(“41”).UsedRange
此语句将数据填入数组。注意此语句的写法，不能用Sheets(“41”).[a1].UsedRange,大家要注意，如果用[A1],那么写法是 Sheets(“41”).[a1]. CurrentRegion。
3 For i = 2 To UBound(myarr)
‘当mydic(arr(i,1))没有值时，默认是0，通过下面进行累加。
mydic(myarr(i, 1)) = mydic(myarr(i, 1)) + myarr(i, 2)
Next
上述语句中实现了，按字典键的汇总，此处有多种写法，大家要灵活运用。
4 Sheets(“41”).Cells(2, “e”).Resize(mydic.Count, 1) = Application.Transpose(mydic.Keys)
上述代码先将键回填到工作表中。以便利用键来找键值
5 For i = 2 To mydic.Count + 1
‘循环输入字典键对应的值到f列,逐一找到键的对应键值
Sheets(“41”).Cells(i, “f”).Value2 = mydic(Sheets(“41”).Cells(i, “e”).Value)
Next
上述循环语句利用了键来找键值，然后回填工作表。由于键的数量是mydic.Count ，所以可以直接用一个FOR NEXT循环。
6 如果我们在在实际工作中需要针对每一个键值有精确处理的话，就可以在上述语句中实现了。
下面看代码的运行：
今日内容回向：
1 如何实现数据回填的精准控制？
2 这种方法和利用数组转置回填有何不同？