Excel: Как проверить, является ли ячейка пустой с VBA?

Возможный дубликат:
Использование VBA, чтобы проверить, пуста ли ячейка внизу

Через VBA, как я могу проверить, пуста ли ячейка от другой с определенной информацией?

Например:

Если A: A = "специальный продукт", а B: B является нулем, то

C1 = "продукт особый"

Illustration of example

Кроме того, как я могу использовать цикл For Each в Range и как вернуть значение в другой ячейке?

Ответы

Ответ 1

Вы можете использовать функцию IsEmpty() следующим образом:

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

вы также можете использовать следующее:

If ActiveCell.Value = vbNullString Then ...

Я не программист VBA, поэтому вы не будете возражать?!

надеюсь, что это поможет

Ответ 2

IsEmpty() будет самым быстрым способом проверить это.

IsNull() будет похоже на аналогичное решение, но имейте в виду, что Null должен быть назначен ячейке; он не создан по сути в ячейке.

Кроме того, вы можете проверить ячейку на:

count()

counta()

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

Ответ 3

Этот сайт использует метод isEmpty().

Изменить: содержимое захвачено с сайта, прежде чем URL будет недействительным.

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

На первом этапе данные в первом столбце из Sheet1 будут отсортированы. На втором этапе все строки с одинаковыми данными будут удалены.