这是我用这段代码做的一些实验(它还没有编译和运行)

我想写这个来显示一个方法，可以用来提高速度，并指出varSheetA和varSheetB变量不引用工作表上的单元格，但实际上存储了工作表中单元格的值的副本内存中的数组变量 .

我添加了一个名为varNewValues的新数组，我用它来操作要在新工作表上向用户显示的新值 . 使用数组比处理单元格更快，因此代码不再设置循环中单个单元格的值 .

我在新线附近添加了#HARVEY

让我知道你的想法 .

Private Sub CommandButton1_Click()

' #HARVEY

Dim varNewValues as variant

Dim Destination As Range

' Note that these are used as arrays that store the sheet's cells in memory

Dim varSheetA As Variant

Dim varSheetB As Variant

Dim strRangeToCheck As String

Dim iRow As Long

Dim iCol As Long

Set wbkA = Workbooks.Open(Filename:="C:\macrotest\201566-15-00-DSEM-002-APP01.xlsm")

Set wbkB = Workbooks.Open(Filename:="C:\macrotest\testxl.xlsm")

For Each wshA In wbkA.Worksheets

Set varSheetB = wbkB.Worksheets(wshA.Name)

Set wshC = wbkB.Worksheets.Add()

wshC.Name = wshA.Name

strRangeToCheck = "A1:DZ200"

Debug.Print Now

varSheetA = wbkA.Range(strRangeToCheck)

varSheetB = wbkA.Range(strRangeToCheck)

' #HARVEY

varNewValues = varSheetA

Debug.Print Now

For iRow = LBound(varSheetA, 1) To UBound(varSheetA, 1)

For iCol = LBound(varSheetA, 2) To UBound(varSheetA, 2)

If varSheetA(iRow, iCol) = varSheetB(iRow, iCol) Then

' #HARVEY

' Do nothing as the value from wbkA is already the varNewValues array

Else

' #HARVEY

' Add both cell values to the new sheet's array

varNewValues(iRow, iCol) = varSheetA(iRow, iCol) & ":" & varSheetB(iRow, iCol)

wshC.Cells(iRow, iCol).Interior.Color = RGB(255, 0, 0)

End If

Next

Next

Next

' #HARVEY

' Copy the array value to the wshC range

Set Destination = wshC.Range("A1")

Destination.Resize(UBound(varNewValues, 1), UBound(varNewValues, 2)).Value = varNewValues

End Sub