有没有办法加快VBScript中的excel比较？

Question

我首先制作了一个VBA脚本来比较两个excel文件。然后使用Variant对其进行优化，如this问题中所述。但后来我把它改成了VBScript。这里说的方法似乎不起作用。 还有其他更好的方法可以加快这个过程吗？特别是对于大文件。

我的核心代码如下： -

For Each cell In objxlWorksheet1.UsedRange
 If cell.Value <> objxlWorksheet2.Range(cell.Address).Value Then
  'fill the color in the cell if there is a mismatch and Increment the counter
  objxlWorksheet2.Range(cell.Address).Interior.ColorIndex = 3
  counter=counter+1
 End If
Next

Answer 1

这取决于你比较的是什么。如果您有两张具有类似数据表的表，则使用公式而不是VBA代码会更容易。只需创建一个新工作表并输入如下公式：=Sheet1!A1=Sheet2!A1然后您可以使用Ctrl-Find搜索False

或者，如果您可以将数据并排复制在一张纸上，则可以使用条件格式设置来突出显示不同的值。