di ricky53 » 04/11/14 01:03
Ciao,
con l'ipotesi che in riga "1" i dati ci siano prova ilseguente esempio
- Codice: Seleziona tutto
Sub Cancella_Colonne()
UC = Cells(1, Columns.Count).End(xlToLeft).Column - 1
Range("C:" & Split(Cells(1, UC).Address, "$")(1)).Delete Shift:=xlToLeft
End Sub
altrimenti in
- Codice: Seleziona tutto
Cells(1,
cambia "1" con la tua riga di riferimento
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare
Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione
. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19