Только для прибавления к тому, что ToonMariner заявил, что веб-сайт обеспечивает и формулу и решение VBA. Я нашел детали автора об использовании формулы немного сбивающими с толку. Используя обеспеченную формулу:
=IF (СТРОКА () - СТРОКА (NoBlanksRange) +1> СТРОКИ (BlanksRange)-COUNTBLANK (BlanksRange)"", КОСВЕННЫЙ (АДРЕС (МАЛЕНЬКИЙ ((, ЕСЛИ (BlanksRange <>"", СТРОКА (BlanksRange), СТРОКА () +ROWS (BlanksRange))), СТРОКА () - СТРОКА (NoBlanksRange) +1), СТОЛБЕЦ (BlanksRange), 4)))
Просто выделите один столбец путем нажатия на заголовок и назовите его 'BlanksRange'
Столбец 'BlanksRange' должен содержать Ваши значения. (Столбец A из Вашего снимка экрана)
Выделите второй столбец и назовите его 'NoBlanksRange'.
Нажмите первую ячейку в 'NoBlanksRange', вставьте формулу в текстовое поле формулы наверху и нажмите CTRL-SHIFT-ENTER одновременно
С первой ячейкой, все еще выделенной, нажмите правый нижний угол той первой ячейки и ослабьте это к тому же количеству строк как столбец 'BlanksRange'.
Ожидайте будут показаны несколько секунд (в зависимости от данных) и Ваш желаемый вывод.
Удостоверьтесь, что Вы ожидаете несколько секунд для наблюдения результатов... на моей машине, даже приблизительно только 10 строк потребовали приблизительно за 4 секунды до того, как корректные данные обнаружились.
Также удостоверьтесь, когда Вы копируете и вставляете формулу с веб-сайта, который все это получает там, потому что разрывы строки могут заставить ее только вставлять часть формулы.
Можно также использовать AutoFilter, для фильтрации списка, избавляющегося от пробелов, затем копия-и-вставка это, где Вы хотите.