Excel VBA質問箱 IV

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

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


9650 / 76736 ←次へ | 前へ→

【72647】Re:検索値以外を全て削除したい
発言  UO3  - 12/8/30(木) 15:49 -

引用なし
パスワード
   ▼はってんちゅう さん:

▼はってんちゅう さん:

こんにちは

姑息な(?)手段としては、
・抽出された状態で、コピーしてこのシートのリスト領域の右側にペースト。
・その上で、現在のリスト領域の列を削除。

これでもいいのかなと思います。

まっとうにコード処理するとすれば以下はサンプルです。
Sheet1にオートフィルターを設定して、何か、抽出された形にして実行してみてください。

Sub Sample()
  'オートフィルターで抽出されていない行を削除する
  Dim c As Range
  Dim r As Range
  
  For Each c In Sheets("Sheet1").AutoFilter.Range.Columns(1).Cells
    If Intersect(c, Sheets("Sheet1").AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible)) Is Nothing Then
      If r Is Nothing Then
        Set r = c
      Else
        Set r = Union(r, c)
      End If
    End If
  Next
  
  If Sheets("Sheet1").FilterMode Then Sheets("Sheet1").ShowAllData
  If Not r Is Nothing Then r.EntireRow.Delete
  
End Sub
0 hits

【72645】検索値以外を全て削除したい はってんちゅう 12/8/30(木) 15:26 質問
【72647】Re:検索値以外を全て削除したい UO3 12/8/30(木) 15:49 発言
【72648】Re:検索値以外を全て削除したい ドカ 12/8/30(木) 16:29 回答
【72649】Re:検索値以外を全て削除したい はってんちゅう 12/8/30(木) 17:07 質問
【72650】Re:検索値以外を全て削除したい UO3 12/8/30(木) 17:26 発言
【72652】Re:検索値以外を全て削除したい はってんちゅう 12/8/30(木) 20:02 お礼
【72651】Re:検索値以外を全て削除したい ドカ 12/8/30(木) 17:46 発言
【72653】Re:検索値以外を全て削除したい はってんちゅう 12/8/30(木) 20:14 お礼

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