时间戳

首页 > 解决方案 > 在第二个工作簿 VBA 中逐个单元格比较两个工作簿的差异和着色差异

excel - 在第二个工作簿 VBA 中逐个单元格比较两个工作簿的差异和着色差异

问题描述

我试图比较两个工作簿，我在 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", "*.xlsx"
      .Filters.Add "All Files", "*.*"
      If .Show = True Then
        txtFileName = .SelectedItems(1)
      End If
      Workbooks.Open Filename:=txtFileName
      Set maswb = ActiveWorkbook
   End With
End Sub

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

标签： excelvbacolorscompare

解决方案

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

您可以在Microsoft 支持上找到更多信息

推荐阅读