对比数据来自不同单元格,不是两个表格相同单元格
时间: 2024-04-12 07:28:18 浏览: 30
如果您想要对比来自不同单元格的数据,您可以使用VBA编写Excel代码来实现。以下是一个示例代码,用于对比两个不同单元格的数据,并将差异标记为红色:
```vba
Sub CompareData()
Dim ws As Worksheet
Dim cell1 As Range, cell2 As Range
'设置要对比的工作表
Set ws = ThisWorkbook.Sheets("Sheet1")
'设置要对比的两个单元格
Set cell1 = ws.Range("A1")
Set cell2 = ws.Range("B1")
'比较两个单元格的值
If cell1.Value <> cell2.Value Then
'将不同的单元格标记为红色
cell1.Interior.Color = RGB(255, 0, 0)
cell2.Interior.Color = RGB(255, 0, 0)
End If
MsgBox "对比完成!"
End Sub
```
在代码中,您需要将 "Sheet1" 替换为包含要对比数据的工作表的名称。然后,通过设置 `cell1` 和 `cell2` 变量为不同的单元格范围来指定要对比的两个单元格。
执行该代码后,它将比较 `cell1` 和 `cell2` 的值。如果两个单元格的值不同,它将把这两个单元格标记为红色。
请注意,此代码只会对比两个单元格的值是否相同,如果需要进行更复杂的对比,可以根据具体需求进行修改。
相关推荐
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![](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)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)