おしえて

特定の文字を含まない行の削除

締切済

質問者：gekikaraou
質問日時：2015/07/29 00:36
回答数：3件

Ａセルに【クリア】、【ＮＧ】などの文字が入って居ます。

Ａセルが、【クリアと言う文字の】行を最下行まで削除するにはどういったコードを書けばよいでしょうか。

1万行とかあるので、出来るだけ早い方法が理想です。

詳しい方、教えて頂けませんか。

よろしくお願いいたします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

最新から表示
回答順に表示

No.3

回答者： hallo-2007
回答日時：2015/08/01 17:43

コードと云う事なのでVBAですよね。

＞1万行とかあるので、出来るだけ早い方法が理想です。
データ数が多いので、ここは発想を変えます。
別シートに、【クリアと言う文字を含まない】行のデータを抽出する。
もちろん、1行目に、きちんと項目名があってデータが下にあるとしてです。

フィルターオプションの機能を使います。
http://www.eurus.dti.ne.jp/yoneyama/Excel/filter …
などを参考にしてください。
Sheet1が元データ
　A　　　B　　　　C
項目１　項目２　項目３
NG
クリア
・・・・

Sheet2
　A　　　B　　　　C　　　　　J
項目１　項目２　項目３　　　項目１
　　　　　　　　　　　　　　="<>クリア"

マクロの記録で得られたコードですが
Sub Macro1()
Sheets("Sheet1").Columns("A:C").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("I1:I2"), CopyToRange:=Range("A1:C1"), Unique:=False
End Sub

となりました。
また、NGを抽出したければ
Sheet2
　A　　　B　　　　C　　　　　J
項目１　項目２　項目３　　　項目１
　　　　　　　　　　　　　　NG
とします。
コードを編集せずに、色々と応用もできますし
何といっても早いです。

- 0
- 件

通報する

No.2

回答者： WindFaller
回答日時：2015/07/29 18:47

私は、マクロを中心にして回答している側にとって、質問の意味が良く分かりません。

私の理解度が低すぎるというなら、無視して構いません。文章から得た疑問を呈したまでですから。

そもそも、「Aセル」とはなんでしょうか？
一つしかないものなのか、複数あるものなのか、（列方向に対して)任意の場所にあるものでしょうか。英語的に言えば、任意の一つのセルであり、それは複数あることも考えられます。

2.「クリア」と入っている文字を見つけたら、「その行の最下行まで削除する」とは、プログラム的には、その「クリア」のあるセルの右側、データがある分を全て消去するように思えましたが、言葉通りなら、「クリア」のあるセルの下の列の部分のセル全体をデータ削除するようにも思います。

その際に、【削除】(Delete)するということは、その周りのデータを、移動させる可能性があります。データ消去(ClearContents等)なら、この限りではありません。

3.「【クリアと言う文字の】行を最下行まで」の最下行とは、2^20行目のことを意味するのですか？一般的には、データ範囲(UsedRange)までになります。論理的には仮想最下行までは可能ですが、データ認識している範囲の外は仮想行だから、それを実行すると、物理的にはかなり無駄が生じるはずです。

4.今回のタイトルは、「特定の文字を含まない行の削除」となっています。「特定の文字」とは何で、「特定の文字を含まない行」とは、何を対象とするのでしょうか。
1～3を図にしてみました。

- 0
- 件

通報する

この回答へのお礼

回答ありがとうございます。

当方の記述不足で誤解をさせてしまったようで、失礼いたしました。

ＡセルはＡ列です。

Ａ列に特定の文字が含まれない場合、行をすべて削除するという意味でした。

仮に特定の文字が、【返品】である場合、返品以外の文字が入ってる行を全て削除すると言う意味でした。

現実的にはＮｏ１さんの回答が的を得ているようです。

回答いただきありがとうございました。

時間の余裕が無いため、他スレの返信と前後しますが、無視している訳ではございませんので、その点もお詫びいたします。

ありがとうございます。