Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
570 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【79639】オートフィルター抽出行の削除 nao 18/2/23(金) 13:18 質問[未読]
【79643】Re:オートフィルター抽出行の削除 Jaka 18/2/23(金) 18:47 発言[未読]
【79644】Re:オートフィルター抽出行の削除 Jaka 18/2/23(金) 19:03 発言[未読]
【79645】Re:オートフィルター抽出行の削除 Jaka 18/2/23(金) 19:09 発言[未読]
【79648】Re:オートフィルター抽出行の削除 nao 18/2/26(月) 10:02 お礼[未読]
【79639】オートフィルター抽出行の削除
質問  nao  - 18/2/23(金) 13:18 -
引用なし
パスワード
   いつもお世話になっております。
現在、オートフィルターをかけて抽出した行を削除したいのですがエラーがでてしまい
何が悪いのかわかりません。
オートフィルターにて抽出まではできるのですが、削除の部分でエラーがでてしまい
とまってしまいます（＞＜）

　　Dim DepCode As String
　　Dim Rng As Range
　　
　　ActiveWorkbook.Worksheets("2.").Select
　　
　　Set Rng = Range("B2:AG2").CurrentRegion
　　Rng.AutoFilter　
　　
　　DepCode = Sheets(1).Range("B4")

　　Rng.AutoFilter Field:=7, Criteria1:="<>" & DepCode & "*"　 ←抽出


　　Rows("3:3").Select　　←3行目から抽出後の行を削除
　　Range(Selection.End(xlDown)).Select
　　'対象外のレコードをクリア
　　Selection.deleat shift:=xlUp
　　Selection.AutoFilter

ご教示宜しくお願いします。
　　
【79643】Re:オートフィルター抽出行の削除
発言  Jaka  - 18/2/23(金) 18:47 -
引用なし
パスワード
   これだけで解るかな？

With Rng
　　 .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Select
End With
【79644】Re:オートフィルター抽出行の削除
発言  Jaka  - 18/2/23(金) 19:03 -
引用なし
パスワード
   ああ、

Select
って書いちゃったけど、直接 Deliteしても良いかも。
(スペルあっているか不明)

上か右にシフトして削除とかは、マクロ記録してください。
【79645】Re:オートフィルター抽出行の削除
発言  Jaka  - 18/2/23(金) 19:09 -
引用なし
パスワード
   質問に書いてあったので引用

.Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).deleat shift:=xlUp
【79648】Re:オートフィルター抽出行の削除
お礼  nao  - 18/2/26(月) 10:02 -
引用なし
パスワード
   おはようございます。
ご回答ありがとうございます！

助かりました^^v
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
570 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free