2012-11-13 7 views

Antwort

10

This Website verwendet die Methode isEmpty().

Bearbeiten: Inhalt von der Website abgerufen, bevor die URL ungültig wird.

Worksheets("Sheet1").Range("A1").Sort _ 
    key1:=Worksheets("Sheet1").Range("A1") 
Set currentCell = Worksheets("Sheet1").Range("A1") 
Do While Not IsEmpty(currentCell) 
    Set nextCell = currentCell.Offset(1, 0) 
    If nextCell.Value = currentCell.Value Then 
     currentCell.EntireRow.Delete 
    End If 
    Set currentCell = nextCell 
Loop 

Im ersten Schritt werden die Daten in der ersten Spalte von Sheet1 sortiert. Im zweiten Schritt werden alle Zeilen mit gleichen Daten entfernt.

42

Sie IsEmpty() Funktion wie diese verwenden:

... 
Set rRng = Sheet1.Range("A10") 
If IsEmpty(rRng.Value) Then ... 

Sie auch folgende verwenden:

If ActiveCell.Value = vbNullString Then ... 
Ich bin kein VBA-Programmierer, so dass Sie nichts dagegen wird ?!

hoffen, es hilft

+4

Sie geben IsEmpty() Bereich und nicht den Wert. Es gibt wahr oder falsch zurück, so dass Sie eine 'if' Anweisung benötigen. Sie müssen schreiben: Wenn IsEmpty (rRng) dann ... Ich bin die Bearbeitung und Korrektur der Antwort – pashute

+2

Beachten Sie, dass 'Wenn ActiveCell.Value = vbNullString' im Fall fehlschlagen wird, dass die Zelle enthält eine Fehler wie # N/A! Besser zu verwenden IsEmpty (rRang) – jeffreyweir

+0

@pashute Ich habe eine Bearbeitung dieser Antwort eingereicht, um die Informationen, die Sie erwähnt haben, aufzunehmen. –

20

IsEmpty() wäre der schnellste Weg sein, um das zu überprüfen.

IsNull() würde wie eine ähnliche Lösung aussehen, aber denken Sie daran, Null muss der Zelle zugewiesen werden; Es ist nicht inhärent in der Zelle erstellt.

Auch können Sie die Zelle überprüfen, indem Sie:

count()

counta()

Len(range("BCell").Value) = 0

Verwandte Themen