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

Question

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

49

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

Как VBA через проверку, если ячейка пуста из другой с конкретной информацией? пример: Если A: A = "произведение специальное" и B: B равно нулю, тогда C1 = "продукт специальный" Это просто идея.

И как использовать для каждого из диапазона. И вернуть значение в другую ячейку?

Regis da Silva 13 нояб. 2012, в 11:27

Источник

Теги:

vba

excel-vba

excel

3 ответа

Ещё вопросы

Sylca · Answer 1 · 2012-11-13T14-39-00.000Z

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

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

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

If ActiveCell.Value = vbNullString Then ...

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

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

Вы указываете IsEmpty () диапазон, а не значение. Он возвращает истину или ложь, поэтому вам нужно выражение «если». Вам нужно написать: Если IsEmpty (rRng), то ... Я редактирую и исправляю ответ
Обратите внимание, что If ActiveCell.Value = vbNullString завершится ошибкой, если ячейка содержит ошибку, такую как # N / A! Лучше использовать IsEmpty (rRang)
@pashute Я отправил правку этого ответа, чтобы включить информацию, которую вы упомянули.

Deafdan · Answer 2 · 2012-11-13T13-43-00.000Z

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

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

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

count()

counta()

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

reporter · Answer 3 · 2012-11-13T13-20-00.000Z

Этот сайт использует метод 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 будут отсортированы. На втором этапе все строки с одинаковыми данными будут удалены.