Excel VBA質問箱 IV

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

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


45671 / 76732 ←次へ | 前へ→

【36049】Re:行の削除について
回答  Jaka  - 06/3/20(月) 9:45 -

引用なし
パスワード
   ▼ぷうたろう さん:
>見出しとして1行目を追加してからオートフィルタを行った方がよいでしょうか?
>(出来れば見出しが無い方が都合がよいのですが・・・)
都合が良くても無理です。1行追加してください。
追加した1行目を削除する場合、1行目を削除するコードを追加しておいてください。

Rows(1).Insert
Range("B1").Value = "EEE"
With Range("B1", Range("B65536").End(xlUp))
  .AutoFilter Field:=1, Criteria1:="=*M*", Operator:=xlAnd
  .Resize(.Rows.Count - 1).Offset(1).SpecialCells(xlCellTypeVisible). _
             EntireRow.Delete
End With

18 hits

【35993】行の削除について ぷうたろう 06/3/17(金) 15:19 質問
【35996】Re:行の削除について Jaka 06/3/17(金) 15:48 回答
【35998】Re:行の削除について ぷうたろう 06/3/17(金) 16:11 質問
【36000】Re:行の削除について Jaka 06/3/17(金) 16:58 回答
【36001】Re:行の削除について ぷうたろう 06/3/17(金) 17:32 質問
【36049】Re:行の削除について Jaka 06/3/20(月) 9:45 回答
【36070】Re:行の削除について ぷうたろう 06/3/20(月) 13:59 お礼

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