VBA进行两个excel中的指定不同位置的数据对比并标记红色

同样可以使用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

注意，此代码仅用于参考目的，实际使用时需要根据实际情况进行修改和优化。