For 三重循环很慢,求快一点的方法

taotu

Function mil(col)

   With ActiveSheet
     l_r = .[b65536].End(xlUp).Row
     l_c1 = .[a2].End(xlToRight).Column
     changdu = (.[a2].End(xlToRight).Column - col + 1) / 2
     For j1 = col To (col + changdu - 1)
       For j2 = (col + changdu) To l_c1
          l_c = .[a2].End(xlToRight).Column
          .Cells.Replace what:="已使用", replacement:=""
          shou = 1
          ci_shu = 0
         .Cells(2, l_c + 1) = .Cells(2, j1) & "第一" & .Cells(2, j2) & "第二"
         For k = 3 To l_r
           If .Cells(k, j1) <> "" And InStr(.Cells(.Cells(k, j2).End(xlDown).Row, j2), "已使用") = 0 And .Cells(.Cells(k, j2).End(xlDown).Row, j2) <> "" Then
               shou= shou * .Cells(.Cells(k, j2).End(xlDown).Row, 5) / .Cells(k, 5)
               ci_shu = ci_shu + 1
              .Cells(.Cells(k, j2).End(xlDown).Row, j2) = .Cells(.Cells(k, j2).End(xlDown).Row, j2) & "已使用"
              '.Cells(k, l_c + 1) = .Cells(.Cells(k, j2).End(xlDown).Row, 5) / .Cells(k, 5)
           End If
         Next
          .Cells(3, l_c + 1) = shou
          .Cells(4, l_c + 1) = ci_shu
         
       Next
     Next
     
End With
           


End Function

cui26896

请把单元格改成数组，就会快很多很多！

taotu

cui26896 发表于 2020-1-28 21:17
请把单元格改成数组，就会快很多很多！

数组能用end(xlup)吗

cui26896

你上个附件，要做什么才明白，啥没有，弄不明白，谁知道能不能用？

网海遨游

给数组赋值后，对数组进行循环与运算。
对于数据量大，循环多时，读取单元格，慢的让等到花儿也谢了。

microyip

1、屏蔽屏幕刷新
2、先将数据读入数组，再进行比较处理，最后将数组写回单元格

chis3

字典+數組