Excel VBA質問箱 IV

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

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


6279 / 76734 ←次へ | 前へ→

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

【76057】値が不一致の場合のみ、特定の列の最下行の値を削除したい ヤマダ 14/9/4(木) 18:53 質問
【76058】Re:値が不一致の場合のみ、特定の列の最下... kanabun 14/9/4(木) 19:18 発言
【76059】Re:値が不一致の場合のみ、特定の列の最下... ヤマダ 14/9/4(木) 19:29 発言
【76060】Re:値が不一致の場合のみ、特定の列の最下... kanabun 14/9/4(木) 19:50 発言
【76061】Re:値が不一致の場合のみ、特定の列の最下... ヤマダ 14/9/5(金) 15:40 お礼

6279 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free