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

Question

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

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

会报错，不知道哪里错

Answer 1

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