Ho trovato in rete una macro con matrici, va bene per l’80 % ma non riesco a completare il restante 20%.
La macro di aiuto che cerco e, mi rivolgo a tutti coloro che mi possono aiutare, dovrebbe eseguire i seguenti passi:
1) tagliare i dati da B2:B2(end) e accodarli in colonna A con inizio in A2
2) tagliare i dati da C2:C2(end) e accodarli in colonna A
3) tagliare i dati da D2:D2(end) e accodarli in colonna A
4) tagliare i dati da E2:E2(end) e accodarli in colonna A
x) di seguito per tutte le colonne fino alla fine
In allegato un foglio Org una delle tante composizioni di un foglio su cui eseguire la macro.
Un foglio Fine che indica come devono essere i dati dopo l’esecuzione della macro.
Per semplificare la spiegazione la macro che cerco toglie tutte le stringhe delle colonne
tranne le intestazioni e le incolla tutte in colonna A senza lasciare celle vuote (totale stringhe 32.883).
**********.
La macro che ho trovato in rete ha le seguenti anomalie:
1) cancella l’intestazione della colonna A
2) copia le stringhe dalle colonne anziché tagliarle (deve fare Cut e non Copy).
3) lascia delle celle vuote (da una a 5 celle vuote) in colonna A man mano che incolla le stringhe.
Se va bene a modificarla per avere la macro che cerco va bene altrimenti non tenerne conto.
Ringraziando anticipatamente tutti coloro che mi possono aiutare. 73 ikwae
- Codice: Seleziona tutto
Sub Macro_Per_ColonnaERERRATA()
Dim matrix()
Dim uR As Long
Dim x As Long
Dim R As Long
Dim C As Integer
Dim uCol As Integer
With Sheets("Tabella1")
uR = .Cells(Rows.Count, 2).End(xlUp).Row
uCol = .Cells(2, Columns.Count).End(xlToLeft).Column
For C = 1 To uCol
For R = 2 To uR
x = x + 1
ReDim Preserve matrix(x)
matrix(x) = .Cells(R, C)
Next R
Next C
End With
Sheets("Tabella1").Cells(1, 1).Resize(x, 1) = Application.Transpose(matrix)
End Sub
http://www.filedropper.com/accodadatiunicacolonnarete
