[[20141016104711]] 『該当文字以外行削除』(ステンレス) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『該当文字以外行削除』(ステンレス)

 一度に行えるVBAで教えて下さい。
   A       B  
 1        あ       
 2    い
 3    う
 4    え
 5    う

 上記の入力項目が有った場合、B列の"う"以外の行を削除するVBAコードを教えて頂けませんでしょうか?
   A      B
 1       う
 2       う 結果が左記の様になればいいのですが・・・

 宜しくお願い致します。

< 使用 アプリ:、使用 OS:Windows7 >


 こういうこと?

 Range("b1", Range("b" & Rows.Count).End(xlUp)).ColumnDifferences(Columns("b").Find("う", , , 1)).EntireRow.Delete

(seiya) 2014/10/16(木) 11:25


 seiya様
 有難う御座います!出来ました。
 瞬時に出来て助かりました。
(ステンレス) 2014/10/16(木) 11:51

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.