Удаление пустых мест из столбцов в VBA

Удаление пустых мест из столбцов в VBA

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

Sub Remove_Spaces()

Dim rng As Range

Set rng = Range("C:D")
rng.Value = Application.Trim(rng)

End Sub

Спасибо

решение1

Мой ответ на ваше требование не основан на коде VBA или макросах.

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

ОБРАЗЕЦ ДАННЫХ

Пошаговое решение

Спасибо.

решение2

Заявление

Selection.Replace " ", ""

(предложено PeterH) мне помогло.

Связанный контент