精益求精 求大神帮忙

imbtvn96066

xiaocake 发表于 2018-1-26 12:13
大量数据的时候，用Union会很慢，所以不用

大神  基本要求对了  但是 有个小小的 问题     我当时没说明白    b列是关键字    a列 数据不是=b列  而是包含关键字是不是下面代码需要改？  请赐教
For i = 1 To UBound(arr)        If dic.exists(Trim(arr(i, 1))) Then
            dic1(Trim(arr(i, 1))) = dic1(Trim(arr(i, 1))) + 1                              
            Asht.Cells(i + StartRow - 1, DataCol).Interior.ColorIndex = dic(Trim(arr(i, 1)))
        End If
    Next

xiaocake

imbtvn96066 发表于 2018-1-26 13:03
大神  基本要求对了  但是 有个小小的 问题     我当时没说明白    b列是关键字    a列 数据不是=b列  而 ...

    For i = 1 To UBound(arr)
        For Each ky In dic.keys
            If InStr(Trim(arr(i, 1)), ky) <> 0 Then
                dic1(ky) = dic1(ky) + 1   '计数
                Asht.Cells(i + StartRow - 1, DataCol).Interior.ColorIndex = dic(ky) '表格涂色
            End If
        Next
    Next

xiaocake

imbtvn96066 发表于 2018-1-26 13:03
大神  基本要求对了  但是 有个小小的 问题     我当时没说明白    b列是关键字    a列 数据不是=b列  而 ...

1.     For i = 1 To UBound(arr)
   
2.         For Each ky In dic.keys
   
3.             If InStr(Trim(arr(i, 1)), ky) <> 0 Then
   
4.                 dic1(ky) = dic1(ky) + 1   '计数
   
5.                 Asht.Cells(i + StartRow - 1, DataCol).Interior.ColorIndex = dic(ky) '表格涂色
   
6.             End If
   
7.         Next
   
8.     Next

复制代码

imbtvn96066

xiaocake 发表于 2018-1-26 14:09

谢谢大神  能用了   但是我没能理解  If InStr(Trim(arr(i, 1)), ky) <> 0 Then

                dic1(ky) = dic1(ky) + 1   '计数

############
If dic.exists(Trim(arr(i, 1))) Then
            dic1(Trim(arr(i, 1))) = dic1(Trim(arr(i, 1))) + 1
这两个命令   怎么理解     
还有就是想请教下  想我这样的小白  怎么学习VBA   能快点     现在搞这样一个代码 要好多天 基本是拼接而成~！

xiaocake

你不懂的就是字典的用法吧，论坛有老师写了很详细的用法了，搜搜，很好找的。想学得深入点就多看多试验，不懂就查，多上网搜索，不要啥都不看就只是自己瞎琢磨，实现一个功能尝试用多种方法实现，就像你帖子说的精益求精。现在大都有电脑了，编程门槛低很多很多了，要的就是学习能力。

imbtvn96066

xiaocake 发表于 2018-1-26 23:00
你不懂的就是字典的用法吧，论坛有老师写了很详细的用法了，搜搜，很好找的。想学得深入点就多看多试验，不 ...

大神  发现个问题  代码有失误   放入实际数据 A列5万行   B列600行   在发现涂色有重复的  怎么解决？
颜色的数量要和B列行数一样 不知道颜色种类有数量限制没？  涂色为了把用关键找到内容区分开  这个能破吗？

xiaocake

这里用的颜色索引值，最大只56个，再加上随机可能也有重复，那么多数据当然更会有重复的了。不知道你这里具体涂色有什么用，那么多数据有人会一个个看么？

imbtvn96066

xiaocake 发表于 2018-1-27 13:23
这里用的颜色索引值，最大只56个，再加上随机可能也有重复，那么多数据当然更会有重复的了。不知道你这里具 ...

恩 昨天看了看 找到颜色上限的限制了。   涂色是为了好把  A列找到的明细 摘出来   比如零时要A列含张三的明细  表上色  就能  筛了  昨天研究了个 在其它表格做个 查找明细功能没成功......没成.....会东西有限思路收到限制   大神有什么高招  指点一二~！

imbtvn96066

xiaocake 发表于 2018-1-27 13:23
这里用的颜色索引值，最大只56个，再加上随机可能也有重复，那么多数据当然更会有重复的了。不知道你这里具 ...

想了想  感觉应该 在原有代码上做下改动  把搜索到内容涂色  改成搜索到内容 复制到指定单元格  完了 把B列做个联动下拉菜单    但是不知道怎么实现

xiaocake

imbtvn96066 发表于 2018-1-27 14:59
想了想  感觉应该 在原有代码上做下改动  把搜索到内容涂色  改成搜索到内容 复制到指定单元格  完了 把B ...

你的需求是什么先明确一下。
你要从一列数据中找到想要的数据并统计出现次数，然后还要做什么吗？