열 머리글을 기준으로 열의 값을 바꿉니다.

Question

특정 값이 포함 된 열의 값을 바꾸려고합니다. 지금까지 독립적으로 작동하는 두 가지 쿼리가 있지만 지금은 함께 작동하도록 노력하고 있습니다. 그들을 통합하는 많은 것들을 시도했지만 지금까지는 운이 없다. 감사! 이처럼

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