Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

6352 / 76807

←次へ　｜　前へ→


	【76057】値が不一致の場合のみ、特定の列の最下行の値を削除したい

ヤマダ - 14/9/4(木) 18:53 -


	引用なし

	パスワード

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列の最下行の値を削除する為には
どうすれば良いでしょうか？
ご教授下さい　　　

5 hits

▼

【76057】値が不一致の場合のみ、特定の列の最下行の値を削除したい ヤマダ 14/9/4(木) 18:53

≪