条件付き書式で指定行とdiff

diff.vb

Sub 条件付き書式で指定行とdiff()

    Dim rowNum As Integer
    
    rowNum = InputBox("比較対象は何行上？", "", "")

    setFormatConditions rowNum

End Sub

Function setFormatConditions(rowNum As Integer)
    
    Selection.FormatConditions.Delete
    
    char = Split(Selection(1).Address, "$")(1)
    
    Dim self, target As String
    self = char & Selection(1).Row
    target = char & Selection(1).Row - rowNum
    frmla = "=" & target & "<>" & self

    Selection.FormatConditions.Add Type:=xlExpression, Formula1:=frmla
    SelectionFormatConditions(1).Interior.ColorIndex = 26
    
End Function