我首先制作了一个 VBA 脚本来比较两个 excel 文件。然后使用变体对其进行优化,如 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
最佳答案
这取决于您要比较的是什么。如果您有两张具有相似数据表的工作表,则使用公式而不是 VBA 代码会更容易。只需创建一个新工作表并输入如下公式:=Sheet1!A1=Sheet2!A1
然后可以使用 Ctrl-Find 搜索 False
或者,如果您可以并排复制一张工作表上的数据,您可以使用条件格式来突出显示不同的值。
关于excel - 有什么方法可以加快 VBScript 中的 excel 比较速度?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/19581822/