Sub ChangeVlookupCol()

' a makró az FKERES (VLOOKUP) függvény oszlop paraméterét változtatja meg az összes kijelölt cellában
' megkeresi a FromStr szöveges változót a függvényben és kicseréli a ToStr-re
' (tehát ha nem FKERES függvényről van szó és talál benne ugyanolyan stringet, akkor is kicseréli)
' remélhetőleg működik nálad is, én leteszteltem és működött (angol nyelvű Excel 2003)

Const FromStr As String = ",2," 'ezt kell megváltoztatni
Const ToStr As String = ",3," 'erre
Dim Rng As Range
Dim Str As String
Dim ColPos As Integer 'az oszlopot jelölő szám hol helyezkedik el a függvényben

For Each Rng In Selection
    Str = Rng.Formula
    ColPos = InStr(1, Str, FromStr)
    If ColPos = 0 Then Exit Sub
    Rng.Formula = Left(Str, ColPos - 1) & ToStr & Right(Str, Len(Str) - ColPos - 2)
Next Rng

End Sub