Удаление пустых строк

Question

На левой панели, если у меня есть данные и справа, как мне нужны данные для просмотра.

Если вы считаете, что без VBA решение было бы лучше, дайте мне знать.

Answer 1

Sub RemoveBlankCells() 

'Deletes single cells that are blank located inside a designated range 
Dim rng As Range 

    Set rng = Range("A1:A10").SpecialCells(xlCellTypeBlanks) 
    rng.Rows.Delete Shift:=xlShiftUp 

End Sub 

Это позволит выбрать диапазон и найти любые пустые ячейки в этом диапазоне и удалить его. При необходимости измените диапазон.

Answer 2

Я думаю, что лучший способ решить вашу проблему - сортировать ваши разные ячейки. Вы можете сделать функцию, в которой вы выбираете диапазон ввода (колонки A и B на скриншоте), а с помощью VBA вы создаете функцию, которая обнаруживает пустые ячейки и сортирует диапазон. Для обнаружения пустых ячеек вы можете использовать IsEmpty («ваша ячейка»).

Answer 3

Я обычно делаю так:

LastRow = Cells(Rows.Count, 1).End(xlUp).Row 'Change number for column selection 
Range("A1:A" & LastRow).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlShiftUp 

В скриншоте, клетки начинают из строки 1, но после удаления пустых ячеек, которые имеют первую строку пустой. Если Вы также нуждаетесь в этом вы можете использовать:

Cells(1, 1).Insert 'Change second number for column selection 

Answer 4

В E2 использовать этот массив формулу,

=IFERROR(INDEX(A$1:A$999, MATCH(0, IF(LEN(A$1:A$999), COUNTIF(E$1:E1, A$1:A$999), 1), 0)), "") 

Формулы массива должны быть завершены с Ctrl + Сдвиг + Enter↵. Если введено правильно, Excel с обертыванием формулы в скобки (например, { и }); вы не ставите их в себя.

После ввода правильного заполнения вправо на один столбец, чтобы поймать значения в столбце B, а затем заполнить Е2: F2 вниз, насколько необходимо, чтобы поймать все уникальные непробельные значения из столбцов А и В.