VBAマクロ・・同一セルの検索と検索したセルの操作

VBAマクロ・・同一セルの検索と検索したセルの操作

　VBAのほぼ初心者です。

　決められたセル（たとえばE100）に入力された文字列と同一の文字列を
その列内の上（E1～E99）で検索する。
そして、検索できれば（たとえばE30）そのセルがある行（行30）を削除する。
なお、複数検索されれば、検索されたすべてのセルに対応する行を削除する。

　というようなことをVBAのマクロで作成したいです。
FindメソッドとDo..Loop Whileを使って試行錯誤してみたのですが、うまくいきません。。

　いい方法があれば、是非教えていただきたいです。
　どうぞよろしくお願いいたします。

No.4 ベストアンサー 回答者： okwaveninokunn 回答日時： 2010/05/07 04:39

完全に寝ぼけた回答ですので前回の回答は無視してください。

(訂正版)

Sub 行削除()
Dim k As String, r As Range
k = [E100]: Set r = [E1:E99]
On Error GoTo er
Do: r.Find(k, lookat:=xlWhole).EntireRow.Delete: Loop
er:
End Sub

この回答へのお礼

早速ためしたところ、目的どおりのことができました！
こんなに短い命令文でもよいとは驚きです。

本当にありがとうございました。

お礼日時：2010/05/07 18:00

No.3 回答者： okwaveninokunn 回答日時： 2010/05/07 04:20

VBAでオートフィルタを使えば簡単ですが、Do～LoopとFindでもこれだけでOKです。

Sub 行削除()
On Error GoTo er
Do: [E1:E99].Find([E100], lookat:=xlWhole).EntireRow.Delete: Loop
er:
End Sub

E100と完全一致の行なら→lookat:=xlWhole (現在のまま)
E100と部分一致の行なら→lookat:=xlpart にしてください。

No.2 回答者： kmetu 回答日時： 2010/05/06 19:27

ヘルプのFINDメソッドの使用例に手を加えて以下のような感じでいかがですか

Sub test()
Dim mSelectRow As String
Dim c As Object

With Worksheets(1).Range("E1:E99")
Set c = .Find(Range("E100").Value, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
mSelectRow = mSelectRow & c.Row & ":" & c.Row & ","
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

mSelectRow = Left(mSelectRow, Len(mSelectRow) - 1)
Range(mSelectRow).Delete Shift:=xlUp

End Sub

この回答へのお礼

早速ためしたところ、目的どおりのことができました！

本当にありがとうございました。
これからもっと勉強していこうと思います。

お礼日時：2010/05/07 18:01

No.1 回答者： bin-chan 回答日時： 2010/05/06 18:53

> 決められたセル（たとえばE100）

これをE1に、
> その列内の上（E1～E99）で
これをE2～E100にしたほうがよいですよ。

> 複数検索されれば、検索されたすべてのセルに対応する行を削除する。
ならば、最終行から２行目に戻る方向で実行しないと、どこまで見たかわからなくなりますよ。