- ベストアンサー
excelのセル複数削除について
2箇所の範囲を削除したいのですが、 Rows("188:247").Select Selection.Delete Shift:=xlUp Rows("311:373").Select Selection.Delete Shift:=xlUp とすると最初に削除されるとRowがずれてしまって、 次のRows("311:373").Selectがうまく削除できません。 2つを同時に削除することは可能でしょうか？ 最大で3つまで削除を考えています。 どうぞよろしくお願い致します。 excel2000です。
- julee
- お礼率30% (3/10)
- Visual Basic
- 回答数3
- ありがとう数0
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
行削除のＶＢＡは下の方の行から実行されるように、プログラムするのが定石でしょう。ＯＫＷＥＢの過去回答もそうでした。 ただし、さらにこのコードで再度実行はありえないでしょうし、厄介な問題を含んでいます。
関連するQ&A
- 行の削除
excel ＶＢＡ行の削除をしたい。 (質問） どこがまちがいでどう直せばよいか。教えてください。よろしくお願いします。 Rows("268:271").Select Selection.Delete Shift:=xlUp のイメージで Rows("last_depth+1:d").Select Selection.Delete Shift:=xlUp として実行したら型が一致しないエラー 記述で""を取り Rows(last_depth+1:d).Select Selection.Delete Shift:=xlUp としてもコンパイルエラーとなります。 なおlast_depth、ｄはともに dim ｘｘ As long で定義の変数
- ベストアンサー
- オフィス系ソフト
- Excel VBA 削除について
Rows("188:247").Select Selection.Delete Shift:=xlUp このように削除する場合、このセル内に貼り付けてある 画像が残ってしまうのですが、貼り付けてある画像も いっしょに削除できないでしょうか？
- ベストアンサー
- Visual Basic
- エクセルマクロで行を変えて100回デリート
すみません。繰り返し165行下がってデリートしたいのですが・・・ どなたか詳しい方ご教授下さいませ。 ActiveWindow.SmallScroll Down:=174 Rows("183:198").Select Selection.Delete Shift:=xlUp ActiveWindow.SmallScroll Down:=171 Rows("348:363").Select ←165行下がりデリートを繰り返しデリートしたいです。 Selection.Delete Shift:=xlUp
- ベストアンサー
- Excel（エクセル）
- 行を削除するマクロ
以下のような、行を削除するマクロがあります。 Workbooks("123.csv").Activate Rows("5:10").Select Selection.Delete Shift:=xlUp しかし、123.csvを開いていない場合にはエラーが出てしまいます。 そこで、このようにしました。 On Error Resume Next Workbooks("123.csv").Activate Rows("5:10").Select Selection.Delete Shift:=xlUp しかし、エラーが出ない代わりに、アクティブなブックの行が削除されてしまいます。 123.csvが開かれている場合には、行を削除し、 開かれていない場合には、何もせずエラーも出さないようにするにはど のようにすればいいでしょうか。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 【エクセル マクロ】オートフィルター後の行削除
Excel2003を使用しています。 オートフィルターを利用した作業をマクロの記録で処理していて 抽出されたデータを行ごと削除しているのですが Selection.AutoFilter Field:=1, Criteria1:="仕入先コード" Rows("4:2102").Select Selection.Delete shift:=xlUp Selection.AutoFilter Field:=2, Criteria1:="仕入先合計" Rows("7:2008").Select Selection.Delete shift:=xlUp …と、上記のような行番号で指定されてしまい 毎月データ数が増減するので、うまく処理出来ません。 (データは、テキストファイルからエクセルに取り込んでいます) 過去の例で近いものがあれば記述の中に取り込んでみましたが… これもうまくいきませんでした。 毎月変わるデータ数に対応できるマクロの記述を教えて下さい。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- EXCELマクロデータのある行より下の行削除の構文
EXCELマクロ構文について教えてください。 データのある行のひとつ下の行全体選択し、 Ctrl+Shift＋↓で下部行全て選択し、右クリックで削除する 操作をマクロにしたいのでですが、 マクロ記録では上の操作は Rows("189:189").Select Range(Selection, Selection.End(xlDown)).Select Selection.Delete Shift:=xlU になります。 この 189 という数字は 下記の変数定義で「lastRow」として取得できるのですが Dim lastRow As Long lastRow = Sheets("2CVS関西").Cells(Rows.Count, 2).End(xlUp).Row + 1 189にlastRow に置き換える方法お教えください。
- ベストアンサー
- Excel（エクセル）
- マクロでエクセルの行を準に削除したいのですが…(;_;)
エクセルのマクロを使って Range("D3:E3").Select Application.CutCopyMode = False Selection.Delete Shift:=xlUp Range("D4:E4").Select Application.CutCopyMode = False Selection.Delete Shift:=xlUp という風に3000個ほど順番に消していきたいのですがfor...nextを使うと for I = 3 to 3000 Range("DI:EI").Select Application.CutCopyMode = False Selection.Delete Shift:=xlUp nest I となってこれを実行するとDIのセルに飛んでしまいます。どうしたらいいのですか？教えて下さいお願いしますm(_ _)m
- ベストアンサー
- Visual Basic
- VBA、Excelにて複数行をまとめて削除したいのですが
Dim gyou1 As Range, gyou2 As Range gyou1 = 4 gyou2 = 62 For data = 1 To 1440 Rows("gyou1:gyou2").Select Selection.Delete Shift:=xlUp gyou1 = gyou1 + 1 gyou2 = gyou2 + 1 Next data 複数行をまとめて削除したいのですが、型が一致しないとのエラーで上手く実行できません。 どうすればいいでしょうか？
- ベストアンサー
- オフィス系ソフト
- for next教えて下さい(;_;)
以下のように１行残して９行消してという操作を連続してやりたいのですがfor nextをどう使えばうまくいくのかわかりません。誰か教えて下さいお願いしますm(_ _)m Sub Macro1() ' ' Macro1 Macro ActiveWindow.SmallScroll Down:=5 Rows("10:18").Select Selection.Delete Shift:=xlUp Rows("11:19").Select Selection.Delete Shift:=xlUp End Sub
- ベストアンサー
- オフィス系ソフト
