vba比较两列不同，并标记出来。

如题，需要写详细一些，我用
If Range("A" & i) <> Range("B" & i) Then '如果A不等于B的值那么

        With Range("C" & i) '设置C列单元格
            .Value = "不一样" '单元格值

会报错，不知道哪里错

if和with语句少了end结束语句，有帮助麻烦点个采纳【本回答右上角】，谢谢~~

Sub setCellBValue()
   rownum = ThisWorkbook.Sheets(1).Range("A65536").End(xlUp).row
   For i = 1 To rownum
      If Range("A" & i) <> Range("B" & i) Then      
        With Range("C" & i)
           .Value = "不一样"
        End With    '少了这里===============       
      End If      '少了这里===============
   Next
 
End Sub

你把报错贴出来，更容易看些！

Sub find()
'
'find Macro
'
Dim num As Integer
num = 1
Do
If Range("A" & num) = "" And Range("B" & num) = "" Then
Exit Do
End If
With Range("C" & num)
If Range("A" & num) <> Range("B" & num) Then
.Value = "不一样"
End If
End With
num = num + 1
Loop
MsgBox "End"
End Sub