Excel VBA質問箱 IV

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

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


19699 / 76732 ←次へ | 前へ→

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

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

>従って、下記の様に(1):(2)のセル範囲を指定して削除したい

A列の値が入っている最終行より下の行以下を削除したいということでしたら、
Range(Range("A" & Rows.Count).End(xlUp).Offset(1), Range("P" & Rows.Count)).Select
で削除対象範囲が選択されますから、

マクロの記録のコードを流用して、

Range(Range("A" & Rows.Count).End(xlUp).Offset(1), Range("P" & Rows.Count)).Select
Selection.Delete Shift:=xlUp

として、さらに

Range(Range("A" & Rows.Count).End(xlUp).Offset(1), Range("P" & Rows.Count)).Delete Shift:=xlUp
とします。

ただし、このようにしなくても、

> Range("O2").Select
> ActiveCell.FormulaR1C1 = "=IF(RC[-2]=RC[-1],""○"",""×"")"
> Selection.AutoFill Destination:=Range("O2:O555")

これらのマクロをA列の値が入っている最終行までにすればいいのではないでしょうか?

> 別に良い方法があれば、教えてください。

今回の質問とは関係ないかもしれませんが、
AccessからどのようにExcelに取得しているのでしょうか?
ExcelからAccessのデータをVBAでCopyFromRecordsetを使って、抽出できるのはご存知ですか?

159 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 お礼

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