Excel VBA質問箱 IV

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

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


19695 / 76732 ←次へ | 前へ→

【62465】Re:セル範囲を指定して削除するには?
発言  かみちゃん  - 09/7/22(水) 23:46 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>ただし、このようにしなくても、
>
>> Range("O2").Select
>> ActiveCell.FormulaR1C1 = "=IF(RC[-2]=RC[-1],""○"",""×"")"
>> Selection.AutoFill Destination:=Range("O2:O555")
>
>これらのマクロをA列の値が入っている最終行までにすればいいのではないでしょうか?

これについては、以下のようにするとできると思います。
(提示されたコードの整理もしています)
このようにすると、そもそもの質問にある行削除は必要なくなると思います。

Sub Sample()
 Range("O2:P" & Rows.Count).Clear
 Range("O2").FormulaR1C1 = "=IF(RC[-2]=RC[-1],""○"",""×"")"
 Range("P2").FormulaR1C1 = "=IF(RC[-1]=""○"",""試済"",""未"")"
 Range("O2:P2").Copy Range("O2:O" & Range("A" & Rows.Count).End(xlUp).Row)
End Sub

182 hits

【62453】セル範囲を指定して削除するには? AT 09/7/22(水) 19:13 質問
【62454】Re:セル範囲を指定して削除するには? かみちゃん 09/7/22(水) 19:21 発言
【62459】Re:セル範囲を指定して削除するには? AT 09/7/22(水) 22:34 お礼
【62461】Re:セル範囲を指定して削除するには? かみちゃん 09/7/22(水) 23:27 発言
【62465】Re:セル範囲を指定して削除するには? かみちゃん 09/7/22(水) 23:46 発言
【62479】Re:セル範囲を指定して削除するには? AT 09/7/24(金) 1:30 お礼
【62480】Re:セル範囲を指定して削除するには? かみちゃん 09/7/24(金) 6:22 発言
【62490】Re:セル範囲を指定して削除するには? AT 09/7/25(土) 13:44 お礼
【62478】Re:セル範囲を指定して削除するには? AT 09/7/24(金) 0:19 お礼

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