计算机代码字典,常见字典用法集锦及代码详解

感谢

楼主

对网友

热情细心指导

现

本菜

珍藏了

狼版多年前的字典+数组代码

由于

基础差

直至今日

还是

如法弄懂(不太明白的代码部份是： Else  后面的循环语句)

故

请指点一下

Sub AAA()

Dim n As Long

Dim A As Long

Dim i As Long

Dim j As Long

Dim k As Long

Dim arr

Dim arr2()

Dim s

Dim temp As String

Dim d As Object

Application.ScreenUpdating = False

n = Sheet1.[a65536].End(xlUp).Row - 1 '原始数据行数

arr = Sheet1.[A2].Resize(n, 27) '赋值给数组arr

ReDim arr2(1 To n, 1 To 27)

s = Array(18, 19, 20, 21, 22, 23, 27) '汇总字段

Set d = CreateObject("scripting.dictionary") '创建字典

For i = 1 To n

temp = arr(i, 9) & vbTab & arr(i, 10) & vbTab & arr(i, 15) & vbTab & arr(i, 17) &