用VBA帮我写一段自动对照列表并检查错误的代码
时间: 2024-05-04 17:16:21 浏览: 9
好的,我可以帮您编写这段代码。以下是示例代码以参考:
```
Sub CheckList()
Dim lookupRange As Range, compareRange As Range, errorRange As Range
Set lookupRange = Sheets("Sheet1").Range("A1:A10") ' 范围1,查找值
Set compareRange = Sheets("Sheet1").Range("B1:B10") ' 范围2,比较值
Set errorRange = Sheets("Sheet1").Range("C1:C10") ' 范围3,错误标记
Dim lookupValue As Variant, compareValue As Variant
For i = 1 To lookupRange.Cells.Count
lookupValue = lookupRange.Cells(i, 1).Value
compareValue = compareRange.Cells(i, 1).Value
If lookupValue <> compareValue Then
errorRange.Cells(i, 1).Value = "X"
End If
Next i
End Sub
```
您可以将上面的代码复制到您的 VBA 编辑器中,然后使用正确的工作表名称和范围名称来运行此代码。注意:此示例代码仅检查两个列中的值是否相等,您可以根据自己的需求对其进行修改。