如何判断一行四个单元格内任意的两个值是否相等

hooperic

如附件图片所示，如果A2=B2，则C2和D2为他们的相反数 A1=B1,则C1=D1 以次类推 小白求教，请各位大佬帮忙看一下

jinlei2006

Sub 相反数()
Dim a As Integer '
Dim n As Integer
    n = ActiveSheet.Range("a1").End(xlDown).Row '获取最后一行行号
    For a = 1 To n
        If Range("a" & a) <> "" Then '判断单元格是否为空
            Range("c" & a) = Range("a" & a) - 2 * Range("a" & a)
        End If
         If Range("b" & a) <> "" Then
            Range("d" & a) = Range("b" & a) - 2 * Range("b" & a)
          End If
     Next a
End Sub