比较两个单独的文档VBA

Question

因此，我想要做的是在工作簿A中有一个打开工作簿B和C的宏。之后它会经过工作簿B和C的A列，并且两个值相等的地方需要并将其粘贴到工作簿A的列A中。

我已经编写了下面的代码，但是您认为使用另一种方式更容易，请随时编写自己的代码。谢谢你，请帮我:)

Sub ReportCompareAlta() 
' 
' ReportCompareAlta Macro 
' Adds instances where column D is "ALTA" 

    Dim varSheetA As Variant 
    Dim varSheetB As Variant 
    Dim varSheetC As Variant 
    Dim StrValue As Variant 
    Dim strRangeToCheck As String 
    Dim iRow As Long 
    Dim iCol As Long 
    Dim WbkA As Workbook 
    Dim WbkB As Workbook 
    Dim WbkC As Workbook 
    Dim counter As Long 

    Set WbkA = Workbooks.Open(Filename:="G:\Reporting\AH_MISSE_FEB2013.xls") 
    Set WbkB = Workbooks.Open(Filename:="G:\Reporting\AH_MISSE_MAR2013.xls") 
    Set WbkC = Workbooks.Open(Filename:="G:\Reporting\ReportCompare.xls") 
    Set varSheetA = WbkA.Worksheets("LocalesMallContratos") 
    Set varSheetB = WbkB.Worksheets("LocalesMallContratos") 
    Set varSheetC = WbkC.Worksheets("Sheet1") 


    strRangeToCheck = "A1:IV65536" 

    Debug.Print Now 
    varSheetA = WbkC.Worksheets("Sheet2").Range(strRangeToCheck) 'may be confusing code here 
    varSheetB = WbkC.Worksheets("Sheet3").Range(strRangeToCheck) 'may be confusing code here 
    Debug.Print Now 

    counter = 0 

    For iRow = LBound(varSheetA, 1) To UBound(varSheetA, 1)   
      If varSheetB(iRow, "B") = varSheetA(iRow, "B") & varSheetB(iRow, "B") <> "GERENCIA" & varSheetB(iRow, "B").Value <> "" & varSheetB(iRow, "D") = "ALTA" Then 
       StrValue = "" 
       varSheetB.Range("iRow:B").Select 
       Selection = StrValue 
       ActiveSheet = varSheetC 
       Range("A1").Select 
       Selection.Offset(counter, 0).Value = StrValue 
       counter = counter - 1 

      Else 
       MsgBox ("Done") 
      End If   
    Next iRow 

End Sub 

Answer 1

我看到一些明显的错误，垫理查德森指出，使用&不是为AND操作等同的简写，它是一个连接符，这是不太可能你想要的东西时，你说：

If varSheetB(iRow, "B") = varSheetA(iRow, "B") & varSheetB(iRow, "B") <> "GERENCIA" & varSheetB(iRow, "B").Value <> "" & varSheetB(iRow, "D") = "ALTA" Then

这给我带来了另一个错误：

varSheetB（以及A和C就此而言）是Variant/Array变量。您无法使用iRow, "B"索引这些索引，因为您无法使用非数字索引。也许你的意思是（iRow, 2）。

在相关说明：varSheetB.Range("iRow:B").Select这也将失败，因为你不能.Select一个变种。这是而不是一个Range变量。此外，iRow:B对于Variant数组或Range变量的或不正确。此外，在这一点上，varSheetB不再是Worksheet对象变量。

这使我想到可能是最大的错误：您正在使用的变量varSheetA，varSheetB，并且varSheetC代表（在不同的时间在这个代码）兼具Worksheet Object和值的Variant数组。这是令人困惑的，并可能导致您上述的错误。一个变量不能同时出现这两种情况，所以你需要将变体看作变体时的变体，并且当工作表是工作表时，或者更好一些时，需要将变体看作变体：将工作表变量用于数组的工作表和变体，不要将多个用途的变量用于同一个变量。

Sub ReportCompareAlta() 
' 
' ReportCompareAlta Macro 

Dim varSheetA As Worksheet 
Dim varSheetB As Worksheet 
Dim varSheetC As Worksheet 
Dim RangeToCheck As Range 
Dim cl as Range 
Dim iRow As Long 
Dim iCol As Long 
Dim WbkA As Workbook 
Dim WbkB As Workbook 
Dim WbkC As Workbook 
Dim counter As Long 

Set WbkA = Workbooks.Open(Filename:="G:\Reporting\AH_MISSE_FEB2013.xls") 
Set WbkB = Workbooks.Open(Filename:="G:\Reporting\AH_MISSE_MAR2013.xls") 
Set WbkC = Workbooks.Open(Filename:="G:\Reporting\ReportCompare.xls") 
Set varSheetA = WbkA.Worksheets("LocalesMallContratos") 
Set varSheetB = WbkB.Worksheets("LocalesMallContratos") 
Set varSheetC = WbkC.Worksheets("Sheet1") 


Set RangeToCheck = varSheetA.Range("A1:A65536") '## I change this because you only indicate you want to compare column A ##' 

counter = 0 

'## just loop over the cells in the range. ##' 
'## This is not the most efficient, but it is the easiest ##' 
For each cl in RangeToCheck 

    '## Do your comparison here, e.g: ##' 
    '## Ignore cells where .Offset(0,3).Value = "ALTA" Or cl.Value = "" ##' 
    If not cl.Offset(0,3).Value = "ALTA" Or Not cl.Value = vbNullString Then 
     If Not cl.Value = varSheetB.Range(cl.Address).Value Then 
      '## The values are not equal, so do something: 
       varSheetC.Range(cl.Address) = "not equal" 
      counter = counter+1 
     Else: 
      '## The values are equal, so do something else: 
      varSheetC.Range(cl.Address) = "equal" 
     End If 
    End If 
Next 


MsgBox "Done! There were " & counter & " mismatch values", vbInformation 
End Sub 

Answer 2

您需要使用单词“AND”，而不是在你的代码中的“&”的象征。使用'&'只是连接这些值，这会导致if语句失败。