Как убрать пробелы между словами с помощью vba xcel

Question

Я был бы очень признателен за помощь в выяснении, как убрать пробелы между словами. Мне нужно только нацелиться на то, что находится в ячейке "A1", например, если у меня есть "Next Ex" в ячейке, я хочу, чтобы макрос изменил его на "NextEx". Я расскажу об этом на нескольких листах, поэтому формула не будет моим лучшим вариантом.

Answer 1

Рассматривать:

Sub NoSpace()
    Dim sh As Worksheet
    For Each sh In Sheets
        sh.Range("A1").Replace what:=" ", replacement:=""
    Next sh
End Sub

Answer 2

VBA:

Dim cellText As String
cellText = [Get Cell Text From Worksheet]
cellText = Replace(cellText," ", "")

Формула:

=SUBSTITUTE(A1," ","")

Answer 3

VBA:

Join(Split(Range("A1").Value, " "), "")

Split строку (doc) на массив, используя "" (пробел) в качестве разделителя; Join (док) массива в строку , используя «» (пустую строку) в качестве разделителя.