比较第二个工作簿VBA中两个工作簿的不同单元格和着色差异的差异

编程问答 2022-07-26

问题描述

我试图比较两个工作簿，这些工作簿在excel中带有两个不同的按钮，然后使用第三个按钮比较并将第二个工作簿中的所有差异涂成红色。我是一个新手，但是我需要我的工作，目前我已经完成了将两个具有相似代码的文件添加到两个按钮中的操作：

Sub openDialogTemplate()
    Dim ofd As Office.FileDialog
    Dim temwb As Workbook
    Set ofd = Application.FileDialog(msoFileDialogFilePicker)

   With ofd

      .AllowMultiSelect = False
      .Title = "Please select the Template file."
      .Filters.Clear
      .Filters.Add "Excel 2003","*.xlsx"
      .Filters.Add "All Files","*.*"
      If .Show = True Then
        textFileName = .SelectedItems(1)
      End If
      Workbooks.Open Filename:=textFileName
      Set temwb = ActiveWorkbook
   End With
End Sub

和

Sub openDialogMaster()
    Dim fd As Office.FileDialog
    Dim maswb As Workbook
        
    Set fd = Application.FileDialog(msoFileDialogFilePicker)

   With fd

      .AllowMultiSelect = False
      .Title = "Please select the Master file."
      .Filters.Clear
      .Filters.Add "Excel 2003","*.*"
      If .Show = True Then
        txtFileName = .SelectedItems(1)
      End If
      Workbooks.Open Filename:=txtFileName
      Set maswb = ActiveWorkbook
   End With
End Sub

我不知道如何使用temwb和maswb中的工作簿正确地编写循环，以逐个单元格地将第二个工作簿中每个不同的单元格涂成红色。

解决方法

我不确定这是否是正确的方法。当第一个工作簿中的单元格与第二个工作簿中的单元格不同时，我最好使用条件格式来突出显示单元格。

您可以在Microsoft Support

上找到更多信息。
colorscolorscomparecompareexcelexcelvba