Eliminare spazi da celle vuote



  • Eliminare spazi da celle vuote
    di Rabis (utente non iscritto) data: 27/09/2011

    Buongiorno a tutti.
    ho un foglio di excel, importato da un file txt, con dati su 5 colonne e circa 136000 righe. ho bisogno di eliminare le righe vuote. ho fatto una macro:
    sub macro1()
    'eliminare la riga completa
    range("a1:e136125").specialcells(xlcelltypeblanks).entirerow.delete
    end sub
    la macro non funziona perchè all'interno delle celle vuote ci sono degli spazi, se cancello a mano con "canc" mi elimina una riga per volta.
    come posso fare per eliminare gli spazi dalle celle vuote?
    grazie
     
    Sub Macro1()
    'Eliminare la riga completa
    Range("A1:E136125").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    End Sub



  • di Isy (utente non iscritto) data: 28/09/2011

    Ciao

    citazione: all'interno delle celle vuote ci sono degli spazi
    questo non corrisponde al vero, nelle celle viene scritta una stringa (vartype = vbstring ovvero otto)

    devi prima eliminare questi dati dalle celle per poi eseguire il ciclo previsto