avrei bisogno di inserire in questa macro l'istruzione che mi copi la formula di concatenamento fino alla fine delle righe valide (riferite alla colonna J di fianco ).
il file ha le righe che non sono sempre le stesse, a volte sono 20.000 altre 25.0000, altre 12.000.
quindi io vorrei che la formula venisse copiata nella colonna K, dalla cella K2 fino alla cella utile per concatenare l'indirizzo.
- Codice: Seleziona tutto
Sub Macro7()
'
' Macro7 Macro
' accorpa indirizzo
'
'
Columns("K:K").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("K2").Select
Columns("K:K").ColumnWidth = 24.14
ActiveCell.FormulaR1C1 = _
"=CONCATENATE(RC[-7],"" "",RC[-6],"" "",RC[-5],"" "",RC[-4],"" "",RC[-3],"" "",RC[-2],""("",RC[-1],"")"")"
Range("K2").Select
Selection.Copy
Range("K3:K25000").Select
ActiveSheet.Paste
io avevo usato un'istruzione di questo tipo, ma mi copia la formula fino alla fine del foglio (k1043000) e non va bene.
- Codice: Seleziona tutto
ActiveSheet.Range("a1", _
ActiveSheet.Range("a1").End(xlDown)).Select
come dovrei fare?
vi allego file di esempio
https://drive.google.com/file/d/0B2rmVF ... sp=sharing