特定の値、vbaを含むセルの後に値を含む列のすべての内容をクリアします

Question

私はかなりvbaを新しくしており、ちょうど立ち往生しています。私はA1からBW50までの情報を含むスプレッドシートを持っています。セルAM7には特定の値が含まれています=（言います） "Mytext"。値を見つけて、この特定のテキストを含む列の後に続くすべての列をクリアするコードを記述したいと思います。私は、列を「修正」してクリアすることができますが、これらの列は「Mytext」の位置だけでなく変更される可能性があることを知っています。私は何かを理解することはできません。どんなアイデアですか？

はおそらく最速となりますfindメソッドを使用します

Answer 1

ありがとう：

Option Explicit 

Sub Clear() 

Dim rng As Range 
Dim str As String 

str = "text" 
Set rng = ActiveSheet.Cells.Find(What:=str, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) 
If Not rng Is Nothing Then 
    Range(Columns(rng.Offset(0, 1).Column), Columns(rng.Offset(0, 1).Column).End(xlToRight)).Delete 
Else 
    MsgBox "The value '" & str & "' was not found." 
End If 

End Sub 

注：あなたがではなく、テキストの任意の部分を探している場合LookAt:=xlWholeはLookAt:=xlPartに変更する必要があります全体の細胞価値。

Answer 2

あなたはこれを試すことができます。

Option Explicit 

Sub ClearColumns() 
    Dim f As Range 
    Dim textToFind As String: textToFind = "Mytext" 

    With Worksheets("mySheet").Range("A1:BW50") '<--| change "mySheet" with your actual sheet name 
     Set f = .SpecialCells(XlCellType.xlCellTypeConstants, xlTextValues).Find(What:=textToFind, LookAt:=xlWhole, LookIn:=xlValues, MatchCase:=False) '<--| look for text in given range cells withtext values 
     If Not f Is Nothing Then .Range(f.Offset(, 1), .Columns(.Columns.Count)).Resize(.Rows.Count).ClearContents '<--| if text found then clear given range columns at the right of the found text 
    End With 
End Sub