Concatenare ciascun dato colonna A con tutti i dati colonna B

[abiciro]

Salve, scusate se non sarò chiarissimo ma sono anziano, già in passato avete risolto miei problemi e ve ne ringrazio, ma credo che quello che vi chiedo per voi sarà abbastanza semplice e a me risparmierebbe molto lavoro.

Ho nella colonna A i seguenti dati X Y Z (testo) (ovviamente la quantità dei dati è più estesa)
Ho nella colonna B i seguenti dati A E I O (testo) (ovviamente la quantità dei dati è più estesa)

Metodo semplice per ottenere nella colonna C il seguente risultato XA XE XI XO YA YE YI YO ZA ZE ZI ZO (testo)

Grazie mille

Ciro Annunziata (abiciro)

[Gaetanopr]

Puoi usare un function personalizzata, ti allego un esempio.
Ho tolto tutti gli spazi tra le lettere del tuo esempio, non è chiaro come possano essere i dati nel tuo file originale, se ci sono spazi e se devano essere concatenati.
La function si trova in C1
dati X Y Z = XYZ

[abiciro]

Grazie, ma evidentemente mi sono espresso io male, cerco di chiarire
Nella colonna A ci sono i seguenti dati:
A1 = X
A2 = Y
A3 = Z
Nella colonna B ci sono i seguenti dati:
B1 = A
B2 = E
B3 = I
B4 = O
Nella colonna C vorrei i seguenti dati:
C1= XA
C2= XE
C3= XI
C4= XO
C5= YA
C6= YE
C7= YI
C8= YO
C9= ZA
C10= ZE
C11= ZI
C12= ZO

Grazie e scusatemi
Ciro Annunziata (abiciro)

[Gaetanopr]

La prossima volta allega un file ods, prova con questa macro, l' ho scritta velocemente, fai verifiche, se va bene bisognerebbe aggiungere una parte di macro per cancellare i precedenti lanci di macro in caso i dati variassero.

Codice: Seleziona tutto

Sub Unisci()
Sh = ThisComponent.Sheets(0)
lastrow1 = LastCellUsed(Sh, 0, 0)
lastrow2 = LastCellUsed(Sh, 1, 0)

Riga = 0
 For i = 0 To lastrow1
   For x = 0 To lastrow2
        Sh.getCellbyposition(2, riga).string =   Sh.getCellbyposition(0, i).string & Sh.getCellbyposition(1, x).string
        Riga = Riga + 1
 Next x
   Next i
   
End sub

Function LastCellUsed(oSheets As Object, iCol As Integer, ByVal iStartRow As Integer) As Integer
   Do While oSheets.getCellByPosition(iCol, iStartRow).String <> ""
      iStartRow = iStartRow + 1
   Loop
   LastCellUsed = iStartRow - 1
End Function