Ниже мы рассмотрим программу в Excel VBA, которая удаляет пустые ячейки.

Ситуация:

Delete Blank Cells in Excel VBA

  1. Во-первых, мы объявляем две переменные типа Integer. Один названный счетчик и один с именем I. Мы инициализируем счетчик переменной со значением 0.

Dim counter As Integer, i As Integer

counter = 0

  1. Далее, мы проверяем для каждой ячейки, является ли это пустой или нет (<> означает не равно). Мы используем цикл для этого. Если не пустая, мы пишем значение в столбце B. Счетчик имеет отслеживать количество клеток, которые были скопированы в столбец B. Каждый раз, когда мы копируем значение в столбце В, мы увеличиваем счетчик на 1. Эта часть программы выглядит следующим образом:

For i = 1 To 10

If Cells(i, 1).Value <> "" Then

Cells(counter + 1, 2).Value = Cells(i, 1).Value

counter = counter + 1

End If

Next i

Результат до сих пор:

Write non Empty Cells to next Column

  1. Наконец, мы опустошить Range ( «A1: A10»), скопируйте значения столбца В колонке А, и опорожнить Range ( «B1: B10»).

Range("A1:A10").Value = ""

Range("A1:A10").Value = Range("B1:B10").Value

Range("B1:B10") = ""

Результат:

Delete Blank Cells Result