엑셀vba index match 특수문자 넣기

Sub 대리점명찾기()

Dim A$, H$, f$

Dim rep_t$

Dim find_string$

Dim t$

'f = "=INDEX(입금자관리!#1,MATCH(d2,입금자관리!#2,0),match(find_string,입금자관리!#3,0))"

'

'

'With Sheets("입금자관리").Range("A1").CurrentRegion

'    H = .Columns("a:b").Address

'    f = Replace(f, "#1", H)

'    A = .Columns("b").Address

'    f = Replace(f, "#2", A)

'    t = .Rows("1:1").Address

'    find_string = "입금자관리!$A$1"

'    f = Replace(f, "find_string", find_string)

'    f = Replace(f, "#3", t)

'End With

f = "=INDEX(입금자관리!#1,MATCH(d2,입금자관리!#2,0),match(find_string,입금자관리!#3,0))"

With Sheets("입금자관리").Range("A1").CurrentRegion

    H = .Columns("a:b").Address

    f = Replace(f, "#1", H)

    A = .Columns("b").Address

    f = Replace(f, "#2", A)

    t = .Rows("1:1").Address

    find_string = Chr(34) & "지점" & Chr(34)

    f = Replace(f, "find_string", find_string)

    f = Replace(f, "#3", t)

End With

With Sheets("sheet1")

    With .Range("e2", .Range("e2").End(xlDown)).Offset(, 0)

    

        .Formula = f

        .Copy

        .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

        .PasteSpecial xlPasteValues

    Application.CutCopyMode = False

    

    End With

    ActiveCell.Select

End With

End Sub

특수문자 넣기 https://princeod.tistory.com/61