|
Excel2010を使っております
If Range("W" & rNum1 + 1).Formula = Range("U" & rNum + 1).Formula Then
MsgBox "一致"
Else
MsgBox "不一致"
For i = 5 To Cells(Rows.Count, 21).End(xlUp).Row
Range("V" & i).Formula = "=T" & i & "-" & "U" & i
Next
Dim LastRow As Long
LastRow = Cells(Rows.Count, 22).End(xlUp).Row
Cells(LastRow, 22).ClearContents
End If
U列とW列の合計が一致していたらメッセージを出して終了
U列とW列の合計が一致していなければメッセージを出す+
T列からU列を引いてV列に結果を表示させる
表示させるまでは出来まして、V列の最下行の値を削除いたしたく思います。
その為に下記コードを使っていますが、
Dim LastRow As Long
LastRow = Cells(Rows.Count, 22).End(xlUp).Row
Cells(LastRow, 22).ClearContents
End If
V列の値が、全て削除されてしまいます
一致していなかった場合だけ、V列の最下行の値を削除する為には
どうすれば良いでしょうか?
ご教授下さい
|
|