VB程序运行过程，想优化

朱文明611

Sub 核对()
  Cells.Interior.ColorIndex = 0
Dim r, r1, k, k1 As Long
Dim s, s1 As String
r = Range("a1048576").End(xlUp).Row
r1 = Range("h1048576").End(xlUp).Row   
    For k1 = 1 To r1
         For c1 = 8 To 9
                For k = 1 To r                    
                          For c = 1 To 2                           
                              If Val(Mid(Cells(k, c), 2, 3)) = Val(Cells(k1, c1)) Then                              
                                  Cells(k, c).Interior.ColorIndex = 3
                              End If
                          Next c
                    Next k
           Next c1
     Next k1
End Sub
上述程序是有两列数据与另外两列数据中的中间三位做核对，如果相同，单元格显示红色，但是数据比较多，运行起来时间较长，请高手帮我优化一下，非常感谢

不知道为什么

楼主，你循环中不停操作单元格，那速度一定慢。建议用数组试试

liulang0808

建议改成数组进行遍历，并一次性修改单元格底色

wolfmare

这个功能，直接excel里面设置条件格式就可以了吧？

朱文明611

wolfmare 发表于 2018-6-27 08:54
这个功能，直接excel里面设置条件格式就可以了吧？

数据量大，光靠本身条件去处理，直接卡死

朱文明611

不知道为什么 发表于 2018-6-27 04:01
楼主，你循环中不停操作单元格，那速度一定慢。建议用数组试试

是个新手，弄这个程序也折腾半天，数组更没有使用过

excelvlookup

数组只是一个用来吓人的名字，其实就是一个装在心里面的表，和电子表没区别。cells(i,j)电子表的第 i 行，第 j 列。arr(i,j)心里那个表的第 i 行，第 j 列。

zopey

现代码 循环次数= r1*2*r*2 ，
用字典判断重复值 循环次数 = r1*2+ r *2 。

朱文明611

zopey 发表于 2018-6-29 15:49
现代码 循环次数= r1*2*r*2 ，
用字典判断重复值 循环次数 = r1*2+ r *2 。

怎么字典判断啊，谢谢啊

jiminyanyan

上个附件，说一下你想做什么吧。。。。