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

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

29
задан Eric
01.05.2023 21:43 Количество просмотров материала 2508
Распечатать страницу

3 ответа

считаем:

Sub NoSpace()
    Dim sh As Worksheet
    For Each sh In Sheets
        sh.Range("A1").Replace what:=" ", replacement:=""
    Next sh
End Sub
2
отвечен Gary's Student 2023-05-03 05:31

VBA:

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

Формула:

=SUBSTITUTE(A1," ","")
1
отвечен Kaz 2023-05-03 07:48

VBA:

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

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

1
отвечен Yorik 2023-05-03 10:05

Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]

Ваш ответ

Опубликуйте как Гость или авторизуйтесь

Имя
Вверх