Vlookup vba code

[fabiogiallo]

Buongiorno,

ho una funzione vlookup estesa a tutta una colonna, usando il seguente codice VBA

ActiveCell.FormulaR1C1 = "=VLOOKUP(Sheet2!RC[-1],R1C1:R109C19,7,FALSE)"
Selection.AutoFill Destination:=Range("B2:B15693")

viene trascritta solo la classica formula in tutte le celle della colonna.

Potreste suggerirmi un codice che esegue la stessa funzione senza scrivere materialmente la formula nel foglio excel (ne risulterebbe appensantito).

Grazie.

 

[sheetspread]

Puoi utilizzare vlookup nel codice tramite un oggetto applicazione o valutare, ma ecco un semplice esempio di dizionario di scripting:

Excel 2010
	A	B	C	D	E	F	G	H	I	J
1	Name	Number			Name					Number
2	W				Q					6
3	Q				W					4
4	A				E					2
5	F				R					1
6	I				T					8
7	Y				Y					7
8					U					4
9					I					0
10					O					2
11					P					1
12					A					6
13					S					3
14					D					9
15					F					4
Sheet4

Sub test5()
Dim i%, lr1%, lr2%, d As Object
Set d = CreateObject("scripting.dictionary")
lr1 = Cells(Rows.Count, 5).End(xlUp).Row
lr2 = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lr1
d(Cells(i, 5).Value) = Cells(i, 10).Value
Next
For i = 2 To lr2
Cells(i, 2).Value = d(Cells(i, 1).Value)
Next
End Sub

Excel 2010
	A	B	C	D	E	F	G	H	I	J
1	Name	Number			Name					Number
2	W	4			Q					6
3	Q	6			W					4
4	A	6			E					2
5	F	4			R					1
6	I	0			T					8
7	Y	7			Y					7
8					U					4
9					I					0
10					O					2
11					P					1
12					A					6
13					S					3
14					D					9
15					F					4
Sheet4

 

[Anthony47]

Mi pare che invece di inserire la formula in 15mila righe vorresti inserire il risultato.
Non ho verificato quanto postato da SheetSpread, ma se il problema si presenta su "molte colonne" potresti essere in difficolta' a riprodurre la soluzione "dictionary based" che ti ha proposto.
Io piu' semplicemente direi:
-inserisci la formula con le istruzioni che hai
-poi copia il valore ottenuto e fai IncollaSpeciale /Valori

Cioe':

ActiveCell.FormulaR1C1 = "=VLOOKUP(Sheet2!RC[-1],R1C1:R109C19,7,FALSE)"
Selection.AutoFill Destination:=Range("B2:B15693")
Range("B2:B15693").Value=Range("B2:B15693").Value

Ciao

 

[sheetspread]

se il problema si presenta su "molte colonne" potresti essere in difficolta' a riprodurre la soluzione "dictionary based" che ti ha proposto.
Io piu' semplicemente direi:
-inserisci la formula con le istruzioni che hai
-poi copia il valore ottenuto e fai IncollaSpeciale /Valori

Gli elementi del dizionario possono essere anche array o l'intero intervallo può essere passato a un array 2D per ricerche più veloci. Ma anche la tua soluzione è buona.