菜鸟也懂VBA-excle2007VBA入门教程(18)

[B1].Resize(dic.Count, 1) = Application.WorksheetFunction.Transpose(dic.Keys) '

'因为dic.keys和dic.items得到都是一维数组，且下标从0开始的，所以要用转置函数 End Sub

Sub test1() '用防错语句

Dim dic As Object '定义变量

On Error Resume Next '屏蔽添加重复的报错

Set dic = CreateObject(\引用字典

Maxrow = Cells(Rows.Count, 1).End(xlUp).Row '取得A列最后一个有数据单元格的行号 arr = Range(\把单元格区域数据装入二组数组arr里

For i = 1 To UBound(arr) '遍因数据arr的一维，相当于遍历单元格区域的行

dic.Add arr(i, 1), \把数组成员一一加入字典里，Item没有我们就把它等于空，也就是只装了字典的Key

'这种表达方，如果有重复就会会报错，就要在前面加一句On error resume next Next i

[B1].Resize(dic.Count, 1) = Application.WorksheetFunction.Transpose(dic.Keys) '

'因为dic.keys和dic.items得到都是一维数组，且下标从0开始的，所以要用转置函数 End Sub

备注：直接读取用了dic.Keys和dic.Items，如果要循环，那么就要倒传一下，绕过圈，先把dic.Keys和dic.Items赋给数组，也就是装进数组，然后循环数组，因为不能这样引用dic.Keys（0）

六. 修改字典里的数据 可以直接用dic(\关键字\“某一个值”，这“某一个值”就是条目对了

Sub test() '修改字典里的数据

Dim dic As Object, arr, arr1, arr2, Maxrow As Long, i As Long, x As Long '定义相关的变量 Set dic = CreateObject(\

Maxrow = Cells(Rows.Count, 1).End(xlUp).Row '取得A列最后有数据的单元格的行号 arr = Range(\把区域转为二维数组 For i = 1 To UBound(arr, 1) '遍历数组arr里一维

dic.Add arr(i, 1), arr(i, 2) '把数组arr里的成员装入字典 Next i

'dic(\小老鼠\然后我们又把这一句前面加一个逗号去掉让运行看看，发现前面一次1000，去掉逗号之后是999，可以直接用dic(\关键字\“某一个值”，这“某一个值”就是条目对了 arr1 = dic.Keys '因为Keys和Items是方法，所以不能写成Keys(1),因此这里要倒一下，绕过圈，dic.Keys先装入数组，然后数组就可以引用了 arr2 = dic.Items '

For x = 1 To dic.Count - 1 '本来是从0开始的，因为dic.Keys和dic.Items得到的数组都是下标从0开始的一维数组，且第一行是表头

MsgBox arr1(x) & \的底薪是\通过循环依次显示结果

第 47 页 共 52 页