最快的方法来比较多个表格中的单元格

我有10张纸和1张“基本”纸。 我想比较“基本”表中的Range("A1").value与其他10张（基底相同单元格）的值。 什么是最快和最有效的方法来做到这一点？ 谢谢，

Answer 1

试试这个简短的子程序。

 Sub base_test() Dim w As Long For w = 1 To Sheets.Count If LCase(Sheets(w).Name) <> "base" Then If Sheets(w).Range("A1") = Sheets("Base").Range("A1") Then 'do something End If End If Next w End Sub 

我更喜欢这种方法，因为它不依赖On Error Resume Next 。