Question

我设计了一个VB脚本，用于检查特定列的65536行的数据。我得到的结果却很慢。它花费超过4分钟来产生结果，甚至有时也会例外。

这是代码

Sub CheckAlltheRow()
  Dim rCount As Long
  Dim count As Long
  count= 1
    For rCount = 1 To 65536
       If (Worksheets("Sheet1").Cells(rCount, 1).Value = "Product") Then
        count = count + 1
       End If
    Next
End Sub

我在这里检查65536行与值＆＃39;产品＆＃39;但这太慢了。如何管理这个！

Answer 1

直接在工作表上输入的=COUNTIF(A:A, "Product")计算＆＃34;产品＆＃34;的实例数量。在A栏中。

这将比VBA中的解决方案更快。

如果必须在VBA中执行此操作，请将COUNTIF与Application.WorksheetFunction

合并

Answer 2

在您的VBA代码中尝试此操作：

count = WorksheetFunction.CountIf(Worksheets("Sheet1").Columns(1), "Product")

如何使用VB脚本中的条件在Microsoft Excel中更快地获得结果？

2 个答案: