微信公众号搜"智元新知"关注
微信扫一扫可直接关注哦!

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

如何解决比较第二个工作簿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","*.*"
      If .Show = True Then
        txtFileName = .SelectedItems(1)
      End If
      Workbooks.Open Filename:=txtFileName
      Set maswb = ActiveWorkbook
   End With
End Sub

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

解决方法

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

您可以在Microsoft Support

上找到更多信息。

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。