エクセルのマクロでhttpが入っている列を削除するマクロを組みたいのですがどうすれば良いですか？

エクセルのマクロでhttpが入っている列を削除するマクロを組みたいのですがどうすれば良いですか？

No.2 ベストアンサー 回答者： tom04 回答日時： 2019/05/31 11:12

こんにちは！

No.1さんが回答されている方法そのままです。

Sub Sample1()
　Dim FoundCell As Range, FirstCell As Range
　Dim myRng As Range

　With ActiveSheet
　　Set FoundCell = .Cells.Find(what:="http", LookIn:=xlValues, lookat:=xlPart)
　　　If Not FoundCell Is Nothing Then
　　　　Set FirstCell = FoundCell
　　　　Set myRng = FoundCell
　　　　　Do
　　　　　　Set FoundCell = .Cells.FindNext(after:=FoundCell)
　　　　　　　If FoundCell.Address = FirstCell.Address Then Exit Do
　　　　　　　Set myRng = Union(myRng, FoundCell)
　　　　　Loop
　　　　　　If Not myRng Is Nothing Then
　　　　　　　myRng.EntireColumn.Select '//★//
　　　　　　End If
　　　End If
　End With
End Sub

※　列選択でやめています。
間違いがなければ「★」の行を
＞myRng.EntireColumn.Delete

に変更してください。m(_ _)m

No.3 回答者： fujillin 回答日時： 2019/05/31 13:57

No1です

＞できませんでした
「何もしていない」から「あと一歩のところ」まで、ピンキリの意味が考えられるので、反応のしようがありません。

コピペできるものが欲しいのなら、すでにNo2様が回答なさってくださっています。
とりあえず、No1の回答の意味するままを示しておくなら（必要最低限）

Sub Sample()
　Dim r As Range
　Set r = Cells.Find(What:="http", LookIn:=xlValues, LookAt:=xlPart)
　Do While Not r Is Nothing
　　r.EntireColumn.Delete
　　Set r = Cells.FindNext()
　Loop
End Sub

No.1 回答者： fujillin 回答日時： 2019/05/30 14:17

こんにちは

＞どうすれば良いですか？
検索して、該当するセルの列を削除すれば宜しいかと。

検索方法にもいろいろあると思いますが、例えば、Findを用いるなら
　Set r = Cells.Find(What:="http", LookIn:=xlValues, LookAt:=xlPart)
みたいな感じで、見つからなくなるまでループすれば宜しいかと。

Findメソッドの使い方や説明は以下をご参照ください。
https://docs.microsoft.com/ja-jp/office/vba/api/ …

この回答へのお礼

できませんでした

お礼日時：2019/05/31 10:41