Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

eliminare righe tra 2 o più serie di dati

38 views
Skip to first unread message

SiNi

unread,
Mar 22, 2004, 9:31:42 AM3/22/04
to
Salve a tutti.

Esiste una formula con cui posso eliminare le righe vuote da un un foglio
excel?
Per righe vuote intendo quelle tra una serie di dati ed un'altra.

Esempio

Col 1 | col 2 | Col 3 | Colonna N | Colonna N+1

01 AA AA
02 AA AA

10 AA AA

25 AA AA


Risultato da ottenere:

01 AA AA
02 AA AA
10 AA AA
25 AA AA

Praticamente la formula dovrebbe verificare se nella colonna col 1 e 2 e 3,
non ci sono dati, allora dovrebbe cancellare tutta la riga vuota.
Dovrei pero' assegnare da che punto a che punto della colonna 1 la
formula deve operare (altrimenti non puo' cancellarmi tutto il foglio perchč
sarebbe impossibile visto che excell rimpiazza le righe tolte con altre
righe vuote).

Ringrazio tutti in anticipo.

SiNi

saoche

unread,
Mar 22, 2004, 12:20:33 PM3/22/04
to
SiNi wrote:

[...]

Vedi se ti va bene questa:

Sub ElRigheSeVuote()
Dim x As Long
Dim y As Long
With Application
.ScreenUpdating = False
y = Selection.Columns.Count
On Error GoTo fine
For x = Selection.Rows.Count To 1 Step -1
If WorksheetFunction.CountIf(Selection.Rows(x), "")= y Then
Selection.Rows(x).EntireRow.Delete
End If
Next x
On Error GoTo 0
fine:
.ScreenUpdating = True
End With
End Sub

Devi selezionare l'intervallo che ti interessa controllare, sia come
righe che come colonne e poi lanciare la macro.
Ciao

--
Una cosa importante e' non smettere mai di porsi domande.
- A. Einstein -
...saoche[at]despammed[dot]com...

0 new messages