精益求精 求大神帮忙

imbtvn96066

xiaocake 发表于 2018-1-24 15:09
好吧，给你改好了。
多看，多学，加油！

十分感谢  但是运行速度 依旧很慢  不知道是数据量太大 还是 我这个思路就不对   我在想想别的办法啊

imbtvn96066

xiaocake 发表于 2018-1-24 15:09
好吧，给你改好了。
多看，多学，加油！

十分感谢  但是填入实际数据  还是很慢 不知道是数据大 还是我这个思路不对  

xiaocake

imbtvn96066 发表于 2018-1-24 23:32
十分感谢  但是填入实际数据  还是很慢 不知道是数据大 还是我这个思路不对

试试用筛选的方法，选出要留下的数据再创建新表或许会快点，对表格对象的读写操作尽量少就会快很多。
可以的话，你把足够多的样例数据一起发我，我帮你想办法实现，我也是学习，帮了你也锻炼了我自己。

imbtvn96066

xiaocake 发表于 2018-1-25 09:28
试试用筛选的方法，选出要留下的数据再创建新表或许会快点，对表格对象的读写操作尽量少就会快很多。
可 ...

谢谢  帮忙看看有解没

xiaocake

imbtvn96066 发表于 2018-1-25 14:14
谢谢  帮忙看看有解没

改了，快多了，试试看。

imbtvn96066

xiaocake 发表于 2018-1-25 15:26
改了，快多了，试试看。

谢谢 大神  快多 了    但是后面加了排序 不知道行的信息会不会 错行 这个 我的慢慢验证  数据太多
代码还得慢慢消化  有些代码 还是不能彻底理解  不多这里小白  再次感谢
   这次 有上传了个新代码  之前用的  现在也想优化下 不知大神可否帮忙？

xiaocake

imbtvn96066 发表于 2018-1-26 01:29
谢谢 大神  快多 了    但是后面加了排序 不知道行的信息会不会 错行 这个 我的慢慢验证  数据太多
代 ...

大量数据的时候，用Union会很慢，所以不用

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

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