Tak medzitým som Ti urobil aj výrobcu poľa adries:
Potrebuješ akurát zoznam z Wordu dostať skopírovaním do Excelu tak, aby adresy buniek vytvárali zvislý zoznam.
Môžeš si tlačidlom vyskúšať, ako makro zo zvislého zoznamu v stĺpci A vytvorí pole adries, ktoré potrebuješ skopírovať do zátvorky prvkov poľa v predchádzajúcom kóde (Naplň si zoznam v stĺpci A ľubovoľnými adresami, pričom medzi nimi nesmie byť prázdna bunka a stlač tlačidlo. Obsah bunky B2 sa zmení tak, že obsahuje adresy stĺpca A pospájané do požadovaného tvaru pre definovanie prvkov poľa)
kód:
Sub PoleAdries()
Range("B2") = """" & Range("A1") & """"
For i = 2 To Range("A1").End(xlDown).Row
Range("B2") = Range("B2") & ", """ & Range("A" & i) & """"
Next i
End Sub
Pokiaľ máš vo Worde vymenované adresy buniek za sebou a oddelené čiarkami, tak je to ešte jednoduchšie: stačí čiarku medzi prvkami nahradiť výrazom "," a máš hneď pole v tvare, v akom ho potrebuješ dosadiť do zátvorky prvkov poľa v predchádzajúcom kóde