VBA进行两个excel中的指定不同位置的数据对比并标记红色
时间: 2023-09-20 08:08:14 浏览: 92
同样可以使用VBA中的循环语句和条件语句来实现对比并标记红色,只需要在循环语句中指定要对比的单元格即可。以下是一个简单的示例代码,可以作为参考:
```
Sub CompareAndMarkRed()
Dim wb1 As Workbook, wb2 As Workbook
Dim ws1 As Worksheet, ws2 As Worksheet
Dim i As Long
'打开要对比的两个Excel表格
Set wb1 = Workbooks.Open("path\to\excel1.xlsx")
Set wb2 = Workbooks.Open("path\to\excel2.xlsx")
'指定要对比的两个工作表
Set ws1 = wb1.Worksheets("Sheet1")
Set ws2 = wb2.Worksheets("Sheet1")
'循环遍历指定的单元格
If ws1.Range("A1") <> ws2.Range("B2") Then
'将第一个表格中的单元格标记为红色
ws1.Range("A1").Interior.Color = vbRed
End If
If ws1.Range("C3") <> ws2.Range("D4") Then
'将第一个表格中的单元格标记为红色
ws1.Range("C3").Interior.Color = vbRed
End If
'关闭工作簿
wb1.Close SaveChanges:=True
wb2.Close SaveChanges:=True
End Sub
```
注意,此代码仅用于参考目的,实际使用时需要根据实际情况进行修改和优化。
相关推荐
![xlsm](https://img-home.csdnimg.cn/images/20210720083646.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)