Skús do VBA editora nakopírovať nasledujúce makro a spustiť (F5). Súbor v ktorom sa nachádza zošit "Databáza" musí byť otvorený. Výsledný súbor by sa mal objaviť v novovytvorenom zošite "Výsledok2".
Sub MakroKopirujAdresy()
Dim ws As Worksheet
Dim ws1 As Worksheet
Set ws = Sheets("Databáza")
Set ws1 = Sheets.Add(After:=Sheets(Sheets.Count))
ws1.Name = "Výsledok2"
ws.Select
Range("A1").Select
Dim PocetRiadkov As Long
Dim i As Long
Dim A As String
Dim B As String
Dim C As String
Selection.CurrentRegion.Select
PocetRiadkov = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
For i = 2 To PocetRiadkov
ws.Select
Range("A" & i).Select
Selection.Copy
ws1.Select
j = i * 3
Range("A" & j).PasteSpecial
ws.Select
A = Range("B" & i).Value
B = Range("C" & i).Value
C = A & " " & B
ws1.Select
Range("A" & j + 1) = C
Next i
Columns("A:A").ColumnWidth = 30
Range("A6").Select
End Sub
Ak medzi "plnohodnotne" riadky vlozis 2 prazdne, kopirovany vzorec zafunguje - treba ho copy nanovo.
Ale ak je tych riadkov prilis vela, tak to bude pracne riesenie...
Napadlo ma skombinovat viac retazeni a do nich este pouzit =row(), ale popri robote som nepokracoval.