eliminazione di righe vuote in Excel che utilizzano VBA

Question

sto cercando di eliminare righe vuote utilizzando il codice qui sotto:

worksheet.Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete 

Il codice di cui sopra sta lavorando bene, ma dando run time error '1004': No Cells were found.

Answer 1

On Error Resume Next 
worksheet.Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete 
On Error GoTo 0 

La gestione degli errori aiuta a quando non ci sono celle vuote. SpecialCells(xlCellTypeBlanks) restituirà sempre un errore se non ci sono celle del genere, quindi la gestione degli errori è l'unico modo (che io sappia) di occuparsene se si desidera utilizzare SpecialCells(xlCellTypeBlanks).

Answer 2

Lavorare bene con me. Queste dichiarazioni non genera alcun errore a me

Sheet1.Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete 'perfect 

ho trovato questo tipo di soluzione per la vostra domanda

On Error Resume Next 
Sheet1.Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete 
On Error GoTo 0 

Date un'occhiata a questi link

http://www.excelforum.com/excel-programming/390329-microsoft-visual-basic-run-time-error-1004-no-cells-were-found.html

http://www.mrexcel.com/forum/showthread.php?t=343744

e beh sì sì hai impostato il tuo oggetto? foglio di lavoro non ha alcun senso qui

dim wsheet as worksheets 
set wsheet = worksheets("worksheetname") or worksheets("sheet1") 
wsheet.Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete 

Answer 3

È necessario verificare che ci siano spazi vuoti.

If WorksheetFunction.CountBlank(Worksheet.Columns("A:A")) > 0 Then 
    Worksheet.Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete 
End If 

Si può semplicemente utilizzare On Error Resume Next per saltare la linea se non ci sono spazi vuoti, ma è generalmente preferibile per verificare una condizione specifica, piuttosto che assumere sapere quale sarà l'errore.

Per quanto posso vedere, otterresti il ​​messaggio "Nessuna cella trovata" se ogni cella nella Colonna A ha un valore.

EDIT: Sulla base di commenti di @ brettdj, ecco un'alternativa che utilizza ancora CountBlank:

If WorksheetFunction.CountBlank(Intersect(worksheet.UsedRange, ws.Columns("A:A"))) > 0 Then 
    worksheet.Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete 
End If 

Naturalmente UsedRange è notoriamente volubile e può essere più grande di quello che appare. Penso che sia migliore per determinare prima la gamma attuale, dove le righe devono essere cancellati e quindi controllare le SpecialCells in tale intervallo, ad esempio:

Sub DeleteRows() 
Dim ws As Excel.Worksheet 
Dim LastRow As Long 

Set ws = ActiveSheet 
LastRow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row 
With ws.Range("A2:A" & LastRow) 
    If WorksheetFunction.CountBlank(.Cells) > 0 Then 
     .SpecialCells(xlCellTypeBlanks).EntireRow.Delete 
    End If 
End With 
End Sub 

Un'ultima nota - ho cambiato la variabile da "foglio di lavoro" a "ws "come" foglio di lavoro "è una parola riservata in Excel.

Answer 4

altro modo:

If Range("Table2").Rows.Count > 1 Then 
    Range("Table2").EntireRow.Delete 
End If 

Answer 5

Sub delete_rows_blank() 

t = 1 
lastrow = ActiveSheet.UsedRange.Rows.Count 
Do Until t = lastrow 
If Cells(t, "A") = "" Then 
Rows(t).Delete 
End If 
t = t + 1 
Loop 

End Sub