逐单元格比较两个工作簿的差异，并在第二个工作簿VBA中对差异进行着色

Question

我试图比较我在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中的工作簿逐个单元格并将第二个工作簿中的每个不同单元格涂成红色来编写循环。

Answer 1

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

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