Как автоматически удалить пустую строку / ячейки при экспорте в другой лист?

Question

У меня есть несколько файлов необработанных данных, которые не имеют данных в некоторых строках / ячейках. Как автоматически удалить эти пустые строки / ячейки при перемещении / экспорте данных на другой рабочий лист. какую формулу я должен использовать для этого?

Я прикрепил картинку ниже. для более четкого объяснения.

Answer 1

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

1. Выделите весь диапазон (A2:A13),
2. Нажмите F5 (Перейти),
3. Нажмите Special ...,
4. Выберите "Константы", затем ОК
5. Ctrl-C для копирования
6. Вставить в новое место (B2)

Если это формулы, а не константы, вы можете выбрать "Формулы" на шаге 4.

Answer 2

Я хотел бы предложить вам макрос (код VBA), который поможет вам удалить все пустые строки из используемого диапазона, а затем после того, как вы сможете экспортировать лист.

Sub DeleteEmptyRows()

  Dim lastRow As Long
  LastRow = ActiveSheet.UsedRange.Row - 1 + _
      ActiveSheet.UsedRange.Rows.Count

  Application.ScreenUpdating = False

  For r = LastRow To 1 Step -1
  If Application.CountA(Rows(r)) = 0 Then    
    Rows(r).Delete
  End if

Next r

End Sub

Как это устроено:

• Нажмите Alt+F11 чтобы открыть редактор VB.
• Скопируйте и вставьте этот код как стандартный модуль.
• Наконец, запустить этот макрос.