Excel VBA質問箱 IV

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

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


624 / 74622 ←次へ | 前へ→

【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

ご教示宜しくお願いします。
  

86 hits

【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 お礼[未読]

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