列ヘッダーに基づいて列の値を置き換えます。

Question

特定の値を含む列の列の値を置き換えようとしています。これまで私は独立して動作する2つのクエリを持っていましたが、今はそれらを一緒に動作させようとしています。それらを統合するために多くのことを試しましたが、今まで運がありませんでした。ありがとう！このよう

Sub FindAddressColumn() 
    Dim rngAddress As Range 
    Set rngAddress = Range("A1:Z1").Find("Location") 
    If rngAddress Is Nothing Then 
    MsgBox "Address column was not found." 
    Exit Sub 
    End If 
    Range(rngAddress, rngAddress.End(xlDown)).Select 
End Sub 

Sub findrep() 
    Dim i As String 
    Dim k As String 
    i = "1" 
    k = "2" 
    Columns("B").Replace what:=i, replacement:=k, lookat:=xlPart, MatchCase:=False 
End Sub 

Answer 1

：

Sub findrep() 
    Dim i As String 
    Dim k As String 
    Dim rngAddress As Range 
    i = "1" 
    k = "2" 

    Set rngAddress = Range("A1:Z1").Find("Location") 
    If rngAddress Is Nothing Then 
     MsgBox "Address column was not found." 
     Exit Sub 
    End If 
    Range(rngAddress, rngAddress.End(xlDown)).Replace what:=i, replacement:=k, lookat:=xlPart, MatchCase:=False 
End Sub