常见字典用法集锦及代码详解

wudiyihao90 · 发表于 2017-9-12 11:02

蓝神，我拜读了您的帖子下的附件，在读到实例6-多条件复杂汇总这一块，如果是工作表格可以用sumif函数，不知在VBA中是否可以使用worksheetsfunction.sumif函数把多条件按照&进行合并。不知是否可行。

让生命充满爱 · 发表于 2017-9-13 11:43

看到版主年纪这么大了还这么认真我年纪青青怎么可以这么堕落

ebom · 发表于 2017-9-13 13:49

学习中，非常感谢啊

wufeng7612 · 发表于 2017-9-14 14:02

努力学习中

guofengkai · 发表于 2017-9-17 10:34

本帖最后由 guofengkai 于 2017-9-17 10:35 编辑

“蓝桥玄霜”老师，您好！我有两个问题：一、关键字key、项目item都必须是加双引号的字符型数据吗？您所举出的例子都是字符型的。二、既然key和item是一一对应的，那么如果我知道的是某个item值，可以反查出它对应的key吗？比如：您所举出例子中由“Baltimore”反查出“B"，可以实现吗？敬请回答，非常感谢！

055678 · 发表于 2017-9-17 12:51

求教老师，
使用VBA将表格中的数据sheet2的行数据比对sheet1中数据，输出不在sheet1中的数据到...
http://club.excelhome.net/thread-1369447-1-1.html
(出处: ExcelHome技术论坛)
我自己写的代码不知道哪里有问题，请教！
Sub test()

Dim arr, arr1, drow, d As Object, i%, j%, k%

arr = Sheet1.[a1].CurrentRegion
arr1 = Sheet2.[a1].CurrentRegion

Set d = CreateObject("scripting.dictionary")

For k = 2 To UBound(arr)

      d(arr(k, 1)) = ""
Next
      For i = 2 To UBound(arr1, 1)
         For j = 2 To UBound(arr1, 2)
            If d.exists(arr1(i, j)) Then
                  d.Remove (arr1(i, j))
                  Else

         d(arr1(i, j)) = ""
            'Exit For

            End If
         Next
      Next
      drow = Sheet2.[a65536].End(xlUp).Row
      Sheet3.Range("B2").Resize(drow-1, d.Count) = d.keys
End Sub

1024VIP用户 · 发表于 2017-9-19 10:33

学习了
打开了我的思路
谢谢老师

灯火阑珊551 · 发表于 2017-9-20 20:44

谢谢蓝老师~~~~

329425720 · 发表于 2017-9-20 22:09

拜读，很有用，谢谢老师！

774062980 · 发表于 2017-9-29 11:12

让生命充满爱发表于 2017-9-13 11:43
看到版主年纪这么大了还这么认真我年纪青青怎么可以这么堕落

说的相当有道理！！！

		自动登录	找回密码
密码			免费注册

[原创] 常见字典用法集锦及代码详解