親子におすすめの新型プラネタリウムとは?

エクセルマクロ 特定の文字列を含む行を削除

エクセルのマクロについて教えてください。

下の中から列を限定せず、すべての行でAAA、CCCのいずれかがある場合、
その行ごと、すべて削除したいのです。

時に削除したい特定の文字列が数十種類になるため、
マクロ起動時に削除したい特定の文字を記述したファイルを読み込み、それから
削除できるようにしたいのです。場合によってはそのファイルを編集し、
削除したい文字列を変更したいのです。

ご教示いただだけないでしょうか


A列B列C列
1AAABBBCCC
2BBBCCCFFF
3DDDBBBFFF
4AAACCCDDD
5GGGRRRUUU

行中にAAA、BBBがある場合、削除したい



A列B列C列
5GGGRRRUUU

マクロを実行し、上記の結果にしたい。

このQ&Aに関連する最新のQ&A

A 回答 (2件)

こんばんは!


削除したい文字列は一つのセルに入っていた場合ですよね?
(その文字列が含まれているセルという意味ではない)

一応そういうことだとして・・・
削除したい文字列をSheet2のA2セルからA列に入力し、
削除したい行があるSheetはSheet1で2行目以降にデータがあるとしています。

一例ですが、↓のコードを標準モジュールにコピー&ペーストしてマクロを実行してみてください。

Sub test()
Dim i, j, k As Long
Dim ws1, ws2 As Worksheet
Set ws1 = Worksheets("sheet1")
Set ws2 = Worksheets("sheet2")
For i = ws1.Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
For j = 1 To ws1.Cells(i, Columns.Count).End(xlToLeft).Column
For k = 2 To ws2.Cells(Rows.Count, 1).End(xlUp).Row
If ws1.Cells(i, j) = ws2.Cells(k, 1) Then
ws1.Rows(i).Delete (xlUp)
End If
Next k
Next j
Next i
End Sub

こんな感じでどんなでしょうか?
尚、一旦マクロを実行してしまうと元に戻せませんので
別Bookにコピーして試してみてください。m(__)m
    • good
    • 0
この回答へのお礼

回答、ありがとうございます、思っていた動作ができ、非常に使い易かったです。この度はありがとうございました。

お礼日時:2010/11/07 14:07

検索のマクロの記録によってやってみる。


これは結構難しいと思う。
ーー
同行の別セルや同セルで2回以上同じ語句が見つかったり、別の語句で同行に見つかることもあるので、J列に集約したサインを仮に設ける。これが処理ロジックを複雑にしないコツと思う。
ーー
マクロの記録を改変して、標準モジュールに
Sub Macro1()
Dim a(10)
a(0) = "aaa": a(1) = "bbbb"
For i = 0 To 1
Range("A2:D15").Select
Range("a2").Activate
Set x = Selection.Find(What:="*" & a(i) & "*", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, MatchByte:=False, SearchFormat:=False)
x.Activate
If x Is Nothing Then Exit For
fsta = ActiveCell.Address
Cells(ActiveCell.Row, "j") = 1
MsgBox fsta
Do
'MsgBox Selection.Address
Selection.FindNext(After:=ActiveCell).Activate
MsgBox ActiveCell.Address
If fsta = ActiveCell.Address Then Exit Do
Cells(ActiveCell.Row, "j") = 1
Loop
MsgBox "次の語句検索"
Next i
End Sub
ーーー
"aaa"と"bbbb"のある行のJ列に1を立てる
例データと実行結果(J列)
A列  B列   C列    J列(空き列)
---
-aaax-1
---
--aaaab1
-aaa-1
aaau-waaa1
--
--bbbbfg1
---
-nnbbbb-1
ffbbbbu--1
ーーー
これで下の行から順次、J列が1の行を行削除する。
このコードは略。昨日?も質問例があった。
Googleででも「VBA 行削除」で照会のこと。
ーー
テキストファイルから検索文字列をセットする場合は、上記
配列 a に順次、値をいれていくコードを、最初部分に加えてください。(コード略)
ーーー
上記例では
a(0) = "aaa": a(1) = "bbbb"
の2語句にしてます。
増えた場合はForNext のiの上限を当然変えること。
    • good
    • 0
この回答へのお礼

回答、ありがとうございます。早速使用してみます。

お礼日時:2010/11/07 14:05

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q指定した文字があった場合、その行を削除するマクロが欲しいです

指定した文字があった場合、その行を削除するマクロが欲しいです
Sheet1(Sheet1以外は対象外)のB列に
XYZ
という文字があった場合、その行をすべて削除する
というマクロはどのように作ればいいでしょうか?
お時間ある方アドバイスいただければ幸いです。

Aベストアンサー

手抜きですがこんな感じでどうでしょう。
削除する行が多いなら画面更新を停止した方が良いでしょう。

Sub Sample()
 Sheets("Sheet1").Select
 Do While (True)
  Columns("B:B").Select
  Set mySelect = Selection.Find(What:="XYZ")
  If mySelect Is Nothing Then Exit Do
  Rows(mySelect.Row).Select
  Selection.Delete Shift:=xlUp
 Loop
End Sub

Qエクセルマクロ 特定の文字列を含む行を削除

マクロについて教えてください。
以下のなかから、りんごを含んでいる行のみ削除したいのです。
できれば、inputboxで削除したい文字列を入力するようにしたいです。
1|りんご|30
2|みかん|50
3|りんご|30
4|すいか|30
5|みかん|50
いろいろ調べましたがわかりません。。お願いします。

Aベストアンサー

>りんごを含んでいる行のみ削除
これは特定の列に削除文字列があれば削除するのですか? それとも列を限定せず1行のどこかに文字列があれば削除するのですか?

以下のサンプルはマクロ2行目で指定した列に指示した文字列がある行を削除していますが、マクロ中コメントアウトしている9行目を8行目のIf文と入れ替えると、1行のどこかに指定文字列があれば削除します。

Sub Macro1()
Const col As String = "A" '文字列が入力されている列
Dim idx As Long
Dim keyWord
keyWord = Application.InputBox("削除対象の文字列は?", Type:=2)
If TypeName(keyWord) <> "Boolean" And Len(keyWord) > 0 Then
  For idx = Cells(65536, col).End(xlUp).Row To 1 Step -1
    If InStr(Cells(idx, col).Value, keyWord) > 0 Then
'    If Application.CountIf(Rows(idx), "*" & keyWord & "*") > 0 Then
      Rows(idx).Delete
    End If
  Next idx
End If
End Sub

>りんごを含んでいる行のみ削除
これは特定の列に削除文字列があれば削除するのですか? それとも列を限定せず1行のどこかに文字列があれば削除するのですか?

以下のサンプルはマクロ2行目で指定した列に指示した文字列がある行を削除していますが、マクロ中コメントアウトしている9行目を8行目のIf文と入れ替えると、1行のどこかに指定文字列があれば削除します。

Sub Macro1()
Const col As String = "A" '文字列が入力されている列
Dim idx As Long
Dim keyWord
keyWord = Application.Inp...続きを読む

Qエクセルで特定の行を削除したいのですが。

エクセルで特定の行を一発で削除したいのですが、やり方がわかりません。
どなたか詳しい方お教えいただけませんでしょうか?

やりたいことは、B列に、特定の文字が有れば、その行全部を削除して上方向にシフトしていきたいのですが、マクロとかを使うのでしょうか?
宜しくお願いいたします。

Aベストアンサー

マクロを使う別の方法です。
XXXの部分を特定の文字に置きかえて実行してください。
また、「特定の文字があれば」というのが、その文字列を含む、というのでなくセルの値がその文字列ならば、というのであれば、LookAt:=xlPart の部分を LookAt:=xlWhole に書き換えてください。

Sub DelLines()
  Dim R As Range
  Do
    Set R = ActiveSheet.Range("B:B").Find(What:="XXX", LookAt:=xlPart)
    If R Is Nothing Then Exit Sub
    R.EntireRow.Delete
  Loop
End Sub

Qエクセル 指定した文字列を含む列を削除するには

人から貰ったエクセルの表を必要なデータを残して削除する作業をしています。
(例:セルK5やM5に現在在庫数が入っている列が不要なので削除)
行に関してはオートフィルタを使って削除していますが、
列に関しては行列を入替えて貼付→オートフィルタで削除→行列を入替えて貼付
で実現出来ていますが、かなり時間と手間がかかっています。

もう少し簡単に上記作業を実現したいのですが、どうしたらよいでしょうか?

Aベストアンサー

> 指定した文字列を含む列を削除するには

素直に解釈して回答します。Excel2002 以降限定ですが。

 1. 検索するセルの範囲を選択
 2. [Ctrl]+[F] で検索ダイアログを表示
 3. 検索する文字列を入力
 4. [全て検索] をクリック
 5. リストボックスに表示された結果を全て選択
   --> セルが選択されます
 6. セル上で右クリック [削除]
 7. 6. で表示されるダイアログで、削除対象を [列全体] に指定

でできませんか?

Q特定の文字がある行以外を削除するマクロ

特定の文字がある行以外を削除するマクロを作りたいです。

データの範囲はA1からK50000
E列にS01、S02、E03と書いてあるセル以外の行を削除したいです。

E列にはS01~S50、E01~E100というような数値があります。

どうぞよろしくお願いします。

Aベストアンサー

NO5です。
>やってみましたが、かなり時間がかかってしまいました。
画面更新を無効にする事でもかなり時間短縮できますが如何でしょうか。

Sub 行を削除()
Application.ScreenUpdating = False
For i = Cells(Rows.Count, "E").End(xlUp).Row To 1 Step -1
If Cells(i, "E") <> "S01" And _
Cells(i, "E") <> "S02" And _
Cells(i, "E") <> "E03" Then
Rows(i).Delete
End If
Next
Application.ScreenUpdating = True
End Sub

QExel VBA 別ブックから該当データを検索し、必要なデータを取得する方法について

部品表というブックがあります
A列に商品名、B列に商品番号が入力してあります。C列のコードは未入力です。
A列     B列     C列      
商品名  商品番号  コード
モータ  U-1325-L  
ホルダ  R-134256

また、コード一覧表という別のブックには、A列に商品番号と、B列にコードが、何千件も入力されています。

やりたいことは
部品表のC列のコード欄に、コード一覧表ブックから商品番号と一致するコードを貼り付けしたいのです。

部品表は、何百種類もありますので、関数ではなく、マクロで処理を希望します。

自分では、部品表の商品番号をコピーして、コード一覧表で検索し、検索結果の右隣のセル(B列のコード)の値を部品表のC列に貼り付ければよいかと思い、書いてみたんですが…

Sub 別ブックから貼り付ける()
  Dim 検索する As Long
Windows("部品表.xls").Activate
検索する = cells(i,2).Value
Windows("コード一覧表.xls").Activate
ActiveWindow.SmallScroll Down:=-3
Selection.AutoFilter Field:=3, Criteria1:="=検索する", Operator:= xlAnd

と、してみたものの、検索しても、その検索結果の隣のセルのコードをどうやって取得すればいいのかが、わかりませんでした。

基本事項は本で学びましたが、呪文のようなコードはよく理解できません。懸命にネットで検索して、訳して理解する努力をしてはいますが。

どうぞよろしくお願いします。

部品表というブックがあります
A列に商品名、B列に商品番号が入力してあります。C列のコードは未入力です。
A列     B列     C列      
商品名  商品番号  コード
モータ  U-1325-L  
ホルダ  R-134256

また、コード一覧表という別のブックには、A列に商品番号と、B列にコードが、何千件も入力されています。

やりたいことは
部品表のC列のコード欄に、コード一覧表ブックから商品番号と一致するコードを貼り付けしたいのです。

部品表は、何百種類もありますので、関数...続きを読む

Aベストアンサー

こんにちは。
とりあえず実用性も踏まえました。
メインの動作はワークシート関数のVLOOKUPをVBA上で使用していますので理解はしやすいかと思います。
また、質問文から察するに「部品表.xls」と「コード一覧表.xls」の両方を開いて処理されていますが「コード一覧表.xls」はプログラム内で開いて閉じているので実行するときは「コード一覧表.xls」は閉じて置いてください。
Option Explicit
Sub Sample()
 Application.ScreenUpdating = False
 Dim I As Long
 Dim xlBook
 Set xlBook = Workbooks.Open("C:\★★\コード一覧表.xls") '★要変更★
 I = 2
 Do While Range("A" & I).Value <> ""
  ThisWorkbook.Worksheets("Sheet1").Range("C" & I).Value = Application.VLookup(ThisWorkbook.Worksheets("Sheet1").Range("B" & I).Value, xlBook.Worksheets("Sheet1").Range("A2:B65535"), 2, 0)
  I = I + 1
 Loop
 xlBook.Close
 Application.ScreenUpdating = True
 MsgBox ("完了")
End Sub

こんにちは。
とりあえず実用性も踏まえました。
メインの動作はワークシート関数のVLOOKUPをVBA上で使用していますので理解はしやすいかと思います。
また、質問文から察するに「部品表.xls」と「コード一覧表.xls」の両方を開いて処理されていますが「コード一覧表.xls」はプログラム内で開いて閉じているので実行するときは「コード一覧表.xls」は閉じて置いてください。
Option Explicit
Sub Sample()
 Application.ScreenUpdating = False
 Dim I As Long
 Dim xlBook
 Set xlBook = Workbooks....続きを読む

Qexcel マクロ 特定の単語(複数)を含む行を一括削除

住所のデータベースのようなエクセルワークシートがあります。
特定の単語(札幌市、青森市、仙台市、等など)を含む行を
一括で削除するマクロを作成したいのですが、どなたか教えて
ください。

特定の語がたくさんあって、簡単に行を削除したいです。

データは、A列にしか入っていないです。

Aベストアンサー

こんばんは!

元データはSheet1にあり、削除したい文字列をSheet2のA1セルからA列に羅列しておきます。

一例です。標準モジュールにしてください。

Sub Sample1()
Dim i As Long, wS As Worksheet
Dim myFirst As Range, myFound As Range, myRng As Range
Set wS = Worksheets("Sheet2")
With Worksheets("Sheet1")
'削除したい文字列を一旦「#」に置き換える//
For i = 1 To wS.Cells(Rows.Count, "A").End(xlUp).Row
.Range("A:A").Replace what:=wS.Cells(i, "A"), replacement:="#", lookat:=xlPart
Next i
'「#」が含まれている行をmyRngに格納し、一気に削除//
Set myFound = .Range("A:A").Find(what:="#", LookIn:=xlValues, lookat:=xlPart)
If Not myFound Is Nothing Then
Set myFirst = myFound
Set myRng = myFound
Do
Set myFound = .Range("A:A").FindNext(after:=myFound)
If myFound.Address = myFirst.Address Then Exit Do
Set myRng = Union(myRng, myFound)
Loop
myRng.EntireRow.Delete shift:=xlUp
End If
End With
End Sub

こんな感じではどうでしょうか?m(_ _)m

こんばんは!

元データはSheet1にあり、削除したい文字列をSheet2のA1セルからA列に羅列しておきます。

一例です。標準モジュールにしてください。

Sub Sample1()
Dim i As Long, wS As Worksheet
Dim myFirst As Range, myFound As Range, myRng As Range
Set wS = Worksheets("Sheet2")
With Worksheets("Sheet1")
'削除したい文字列を一旦「#」に置き換える//
For i = 1 To wS.Cells(Rows.Count, "A").End(xlUp).Row
.Range("A:A").Replace what:=wS.Cells(i, ...続きを読む

QVBA 特定の文字列を含む行を削除する方法

特定の文字列を含む行を削除する方法が知りたいです。

行を削除する方法はWebで見つけたのですが↓
----------------------------------------------------
Sub 特定の文字列を含む行を削除()
Dim c As Range
Dim myRow As Long

With Range("A:A")

Set c = .Find("特定の文字列")

Do While Not c Is Nothing
Rows(c.Row).Delete shift:=xlUp

Set c = .Find("特定の文字列")
Loop
End With
End Sub

----------------------------------------------------
↑行を指定している箇所のRowsを Columns  RowをColomn に変更して以下の様にしてみました、

  Columns(Colomn,c).Delete shift:=xlUp

だめでした、、、。
VBAの知識が乏しく、組み立て方について理解が無いため、どうすればよいかさっぱりわからず、、
こちらで質問させて頂きました。。。

何卒宜しくお願い致します。

特定の文字列を含む行を削除する方法が知りたいです。

行を削除する方法はWebで見つけたのですが↓
----------------------------------------------------
Sub 特定の文字列を含む行を削除()
Dim c As Range
Dim myRow As Long

With Range("A:A")

Set c = .Find("特定の文字列")

Do While Not c Is Nothing
Rows(c.Row).Delete shift:=xlUp

Set c = .Find("特定の文字列")
Loop
End With
End Sub

---------------------------------------...続きを読む

Aベストアンサー

(1)FindはFindNextと組み合わせて使うこと、お呼び該当の四あごの次になって打ち切りのコードが難しい。初心者は避けるべきだ。
(2)もうひとつ削除するとFor Nextに変数が行を指定するのが狂うのでやりにくい。
(3)行削除は、エクセルの処理に時間がかかる。
最低ScreenUpdating=Falseは入れる。
先ほども質問にあったが、削除するのでなく、残すべきものを別シートに持っていって書き出すほうがやさしい。
ーー
A列aのセルを削除するなら、A列が、aでない行のデータを、Sheet2に書き出せば仕舞い。
ーー
または下の行から上に行ポインターを変化させて削除すれば、(2)は避けられる。For NextでStep -1を使う
これを参考にやってみたら。

Qエクセルで、条件に一致した行を別のセルに抜き出す方法

エクセルで、指定した条件に一致するセルを含む行をすべて抜き出す方法が知りたいです。

たとえば、

<A列> <B列> <C列>
7/1 りんご 100円
7/2 ぶどう 200円
7/2 すいか 300円
7/3 みかん 100円

このような表があって、100円を含む行をそのままの形で、
別のセル(同じシート内)に抜き出したいのですが。

7/1 りんご 100円
7/3 みかん 100円

抽出するだけならオートフィルターでもできますが、
抽出結果を自動的に、別の場所に、常に表示させておきたいのです。

初歩的な質問だと思いますが、検索しても分からなかったので、よろしくお願いします。

Aベストアンサー

同じ質問が結構よく出てますが、そんなに初歩的でもありません
別シートのA1セルに「100円」と入力し、そのシートの任意のセルに以下の式を貼り付けて下さい。後は、下方向、右方向にコピー。
日付のセル書式は「日付」形式に再設定してください

=IF(COUNTIF(Sheet1!$C:$C,$A$1)>=ROW(A1),INDEX(Sheet1!A:A,LARGE(INDEX((Sheet1!$C$1:$C$500=$A$1)*ROW(Sheet1!$C$1:$C$500),),COUNTIF(Sheet1!$C:$C,$A$1)-ROW(A1)+1)),"")

データ範囲は500行までとしていますが、必要に応じて変更して下さい

Q[初心者です]VBAで指定列からAを検索し、発見したら隣のセルに値0を入れるマクロ。

VBAで指定列からAを検索し、発見したら隣のセルに0を入れるマクロを組みたいのですが、組み方がVBA初心者の為わかりません。
(例)
L列に、A、B、C、D、E、Fとランダムに文字が入っていて、
文字Aを検索し、発見したら隣のI列に値0を入れるというマクロです。

Sub Search()
Dim A As String
Set A = Worksheets("Sheet1").Cells.Find("A")
If A Is Nothing Then
ActiveCell.Offset(0, 1).Value = 0

End If
End Sub
と過去の質問で考えてみたのですが、Aがあった時、、、、
とコードが書けないです。
大変困っているので、ご教授頂けないでしょうか?
出来れば、そのままマクロに出来るコードを教えて頂けないでしょうか?
宜しくお願い致します。

Aベストアンサー

こんばんは。

#3さんのおっしゃっていることも、もっともなのですが、気になる点がありましたので、自分のことを踏まえて、書かせていただきます。

いずれ、また、同じようなケースが出会うと思います。こんな原則を考えてみたらどうでしょうか?それは、私も自身も同じなのですが、ワークシートのコマンドで行われるものは、記録マクロから作ってみるということです。他にも、「統合」とか、「置換」とか「オートフィルタ」「フィルタオプション」とかは、みんなパターンが決まっています。
その中の代表格が、この「Find」 です。

>Set A = Worksheets("Sheet1").Cells.Find("A")

>過去の質問で考えてみたのです

どうも、Find メソッドは、あるレベル以下の人は、省略する傾向があるようです。何が大事で、何が大事でないかというのは、やってみなければ分かりませんが、検索語だけを入れる書き方は、実務では、あまりしないほうがよいと思います。

だいたい、以下のTestFind2 ぐらいまでに、省略は、とどめたほうがよいです。

それは、Find は、必ずしも自分が思っているデフォルトとは違うことがあるので、「明示的(意図的に)」にオプションは入れたほうがよいです。
例えば、大文字小文字の違いを付けるなら、MatchCase:=True, 数式まで探すなら、LookIn:=xlFormulas

なお、Find メソッドは、5年経っても、たぶん完全に覚えられません。面倒なコードのひとつです。ですが、これはパターンが決まっているので、ひとつパターンが決まったら、それに当てはめればよいだけです。

#3さんで示されているMougのサンプルコードと似てはいるのですが、Mougのサンプルコードでは、Verionによって、失敗することがあります。

'--------------------------------------
'記録マクロをそのまま使う方法
Sub TestFind1()
Dim c As Range
 Set c = Columns("L:L").Find(What:="A", _
           After:=ActiveCell, _
           LookIn:=xlValues, _
           LookAt:=xlPart, _
           SearchOrder:=xlByRows, _
           SearchDirection:=xlNext, _
           MatchCase:=False, _
           MatchByte:=False, _
           SearchFormat:=False)
 c.Offset(0, 1).Value = 0
End Sub
'--------------------------------------
'TestFind1 をアレンジしてみる
Sub TestFind2()
Dim c As Range
'検索語
Const MYTXT As String = "A"
 Set c = ActiveSheet.Columns("L:L").Find(What:=MYTXT, _
           LookIn:=xlValues, _
           LookAt:=xlPart, _
           MatchCase:=False)
 If Not c Is Nothing Then
    c.Offset(0, 1).Value = 0
 End If
End Sub

'---------------------------------------
'複数ある場合(パターンを使った方法)
'---------------------------------------
Sub TestFind3()
  Dim c As Range
  Dim FirstAdd As String
  Const MYTXT As String = "A"
  Set c = ActiveSheet.Columns("L:L").Find( _
    What:=MYTXT, _
    LookIn:=xlValues, _
    LookAt:=xlPart, _
    MatchCase:=False)
  
  If Not c Is Nothing Then
    FirstAdd = c.Address
    Do
      c.Offset(, 1).Value = 0
      Set c = ActiveSheet.Columns("L:L").FindNext(c)
      If c.Address = FirstAdd Then Exit Sub
    Loop Until c Is Nothing
  End If
End Sub

こんばんは。

#3さんのおっしゃっていることも、もっともなのですが、気になる点がありましたので、自分のことを踏まえて、書かせていただきます。

いずれ、また、同じようなケースが出会うと思います。こんな原則を考えてみたらどうでしょうか?それは、私も自身も同じなのですが、ワークシートのコマンドで行われるものは、記録マクロから作ってみるということです。他にも、「統合」とか、「置換」とか「オートフィルタ」「フィルタオプション」とかは、みんなパターンが決まっています。
その中の代表...続きを読む


人気Q&Aランキング