Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
сжатие пробелов в VBA
 
#1
23.03.2008 19:52:19
подскажите, пожалуйста, код, который будет убирать лишние пробелы во всех ячейках листа. Вот, например, в excel есть функция "сжпробелы", но она оставляет по одному пробелу между словами и убирает пробелы перед первой и последней буквами. А мне надо, чтобы это делалось в VBA, при вызове макроса. Вставлять лишние столбцы в excel мне нельзя, т.к. поедут все формулы. Хотелось бы, чтобы при запуске макроса, данные просто заменялись темиже, только без лишних пробелов.  
Напишите, пожалуйста, код для столбца А.
 
 
 
#2
23.03.2008 20:35:45
{quote}{login=света}{date=23.03.2008 07:52}{thema=сжатие пробелов в VBA}{post}подскажите, пожалуйста, код, который будет убирать лишние пробелы во всех ячейках листа. Вот, например, в excel есть функция "сжпробелы", но она оставляет по одному пробелу между словами и убирает пробелы перед первой и последней буквами. А мне надо, чтобы это делалось в VBA, при вызове макроса. Вставлять лишние столбцы в excel мне нельзя, т.к. поедут все формулы. Хотелось бы, чтобы при запуске макроса, данные просто заменялись темиже, только без лишних пробелов.  
Напишите, пожалуйста, код для столбца А.{/post}{/quote}  
 
 
можно записать макрос.  
 
Range("B1").Select  
   ActiveCell.FormulaR1C1 = "=TRIM(RC[-1])"
   Range("B1").Select  
   Selection.AutoFill Destination:=Range("B1:B13"), Type:=xlFillDefault  
   Range("B1:B13").Select
 
 
 
#3
23.03.2008 21:12:10
{quote}{login=света}{date=23.03.2008 07:52}{thema=сжатие пробелов в VBA}{post}подскажите, пожалуйста, код, который будет убирать лишние пробелы во всех ячейках листа. Вот, например, в excel есть функция "сжпробелы", но она оставляет по одному пробелу между словами и убирает пробелы перед первой и последней буквами. А мне надо, чтобы это делалось в VBA, при вызове макроса. Вставлять лишние столбцы в excel мне нельзя, т.к. поедут все формулы. Хотелось бы, чтобы при запуске макроса, данные просто заменялись темиже, только без лишних пробелов.  
Напишите, пожалуйста, код для столбца А.{/post}{/quote}  
 
вы бы все же определились - какие пробелы лишние, а какие нет..  
 
а так есть ф-ия replace - может удалить все пробелы, может только "лишние", смотря как использовать
 
 
 
#4
23.03.2008 21:18:32
{quote}{login=слэн}{date=23.03.2008 09:12}{thema=Re: сжатие пробелов в VBA}{post}{quote}{login=света}{date=23.03.2008 07:52}{thema=сжатие пробелов в VBA}{post}подскажите, пожалуйста, код, который будет убирать лишние пробелы во всех ячейках листа. Вот, например, в excel есть функция "сжпробелы", но она оставляет по одному пробелу между словами и убирает пробелы перед первой и последней буквами. А мне надо, чтобы это делалось в VBA, при вызове макроса. Вставлять лишние столбцы в excel мне нельзя, т.к. поедут все формулы. Хотелось бы, чтобы при запуске макроса, данные просто заменялись темиже, только без лишних пробелов.  
Напишите, пожалуйста, код для столбца А.{/post}{/quote}  
 
вы бы все же определились - какие пробелы лишние, а какие нет..  
 
а так есть ф-ия replace - может удалить все пробелы, может только "лишние", смотря как использовать{/post}{/quote}  
 
 
лишние - это в начале слова, в конце слова и между словами когда более одного пробела
 
 
 
#5
23.03.2008 21:20:04
слэн, помогите, пожалуйста, написать макрос.
 
 
 
#6
23.03.2008 22:49:49
Кто-нибудь помогите!
 
 
 
#7
23.03.2008 23:49:28
{quote}{login=}{date=23.03.2008 10:49}{thema=}{post}Кто-нибудь помогите!{/post}{/quote}  
---  
Света, вот такой макрос поможет:  
 
' Удаление крайних и двойных пробелов  
Sub TrimSpaces()  
Dim v As Range  
For Each v In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)  
v.Value = Trim(v)  
While InStr(1, v, "  ", vbTextCompare) > 0  
v.Value = Replace(v, "  ", " ")  
Wend  
Next  
End Sub  
 
--  
ZVI
 
 
 
#8
23.03.2008 23:49:50
{quote}{login=}{date=23.03.2008 10:49}{thema=}{post}Кто-нибудь помогите!{/post}{/quote}  
 
:'(
 
 
 
#9
23.03.2008 23:54:44
{quote}{login=ZVI}{date=23.03.2008 11:49}{thema=Re: сжатие пробелов в VBA}{post}{quote}{login=}{date=23.03.2008 10:49}{thema=}{post}Кто-нибудь помогите!{/post}{/quote}  
---  
Света, вот такой макрос поможет:  
 
' Удаление крайних и двойных пробелов  
Sub TrimSpaces()  
Dim v As Range  
For Each v In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)  
v.Value = Trim(v)  
While InStr(1, v, "  ", vbTextCompare) > 0  
v.Value = Replace(v, "  ", " ")  
Wend  
Next  
End Sub  
 
--  
ZVI{/post}{/quote}  
 
зависает документ :'(
 
 
 
#10
23.03.2008 23:58:11
{quote}{login=ZVI}{date=23.03.2008 11:49}{thema=Re: сжатие пробелов в VBA}{post}{quote}{login=}{date=23.03.2008 10:49}{thema=}{post}Кто-нибудь помогите!{/post}{/quote}  
---  
Света, вот такой макрос поможет:  
 
' Удаление крайних и двойных пробелов  
Sub TrimSpaces()  
Dim v As Range  
For Each v In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)  
v.Value = Trim(v)  
While InStr(1, v, "  ", vbTextCompare) > 0  
v.Value = Replace(v, "  ", " ")  
Wend  
Next  
End Sub  
 
--  
ZVI{/post}{/quote}  
---  
Так как движок этого форума, похоже, сам удалает двойные пробелы (сразу после v в двойных кавычках должно быть 2 пробела), то прилагаю файл с функцией  
---  
ZVI
 
 
 
#11
24.03.2008 00:03:18
{quote}{login=ZVI}{date=23.03.2008 11:58}{thema=Re: Re: сжатие пробелов в VBA}{post}{quote}{login=ZVI}{date=23.03.2008 11:49}{thema=Re: сжатие пробелов в VBA}{post}{quote}{login=}{date=23.03.2008 10:49}{thema=}{post}Кто-нибудь помогите!{/post}{/quote}  
---  
Света, вот такой макрос поможет:  
 
' Удаление крайних и двойных пробелов  
Sub TrimSpaces()  
Dim v As Range  
For Each v In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)  
v.Value = Trim(v)  
While InStr(1, v, "  ", vbTextCompare) > 0  
v.Value = Replace(v, "  ", " ")  
Wend  
Next  
End Sub  
 
--  
ZVI{/post}{/quote}  
---  
Так как движок этого форума, похоже, сам удалает двойные пробелы (сразу после v в двойных кавычках должно быть 2 пробела), то прилагаю файл с функцией  
---  
ZVI{/post}{/quote}  
 
спасибо за помощь
 
 
 
#12
25.09.2010 15:06:41
{quote}{login=ZVI}{date=23.03.2008 11:49}{thema=Re: сжатие пробелов в VBA}{post}{quote}{login=}{date=23.03.2008 10:49}{thema=}{post}Кто-нибудь помогите!{/post}{/quote}  
---  
Света, вот такой макрос поможет:  
 
' Удаление крайних и двойных пробелов  
Sub TrimSpaces()  
Dim v As Range  
For Each v In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)  
v.Value = Trim(v)  
While InStr(1, v, "  ", vbTextCompare) > 0  
v.Value = Replace(v, "  ", " ")  
Wend  
Next  
End Sub  
 
--  
ZVI{/post}{/quote}  
а подскажите как сделать что бы данный макрос запускался автоматически при вводе данных в определенную область?
 
 
 
#13
25.09.2010 15:24:44
Как вариант, немного изменил макрос ZVI:  
Sub TrimSpaces()  
ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants) = _  
Application.Trim(ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants))  
End Sub
Я сам - дурнее всякого примера! ...
 
 
 
#14
25.09.2010 16:02:22
Сегодня вечер "Выпускник-2008"?
 
 
 
#15
25.09.2010 16:25:51
> Как вариант, немного изменил макрос ZVI:  
> Sub TrimSpaces()  
 
Нет, Серж, это работает только с прямоугольнуми областями. Я на эти грабли наступил надавно:  
http://www.planetaexcel.ru/forum.php?thread_id=19446  
То есть надо либо со всем UsedRange (тогда формулы будут преобразованы в значения), либо по областям:  
 
Sub TrimSpaces()  
Dim a As Range  
For Each a In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants).Areas  
   a = Application.Trim(a)  
Next  
End Sub  
 
Приложен файл, на котором можно попробовать.
 
 
 
#16
25.09.2010 16:38:23
Кстати, с объединенными ячейками нормально работает.
 
 
 
#17
25.09.2010 16:39:19
Дык, а где шла речь о непрямоугольных областях? Кстати, я читал ту тему, где ты наступал на эти грабли;-). И Юра прав, я глянул только на дату последнего поста. Спросонок, после ночной... Это demos_fobos виноват:-)  
demos_fobos, вешайте макрос на событие листа Change.
Я сам - дурнее всякого примера! ...
 
 
 
#18
24.05.2011 16:56:33
{quote}{login=света}{date=23.03.2008 07:52}{thema=сжатие пробелов в VBA}{post}подскажите, пожалуйста, код, который будет убирать лишние пробелы во всех ячейках листа. Вот, например, в excel есть функция "сжпробелы", но она оставляет по одному пробелу между словами и убирает пробелы перед первой и последней буквами. А мне надо, чтобы это делалось в VBA, при вызове макроса. Вставлять лишние столбцы в excel мне нельзя, т.к. поедут все формулы. Хотелось бы, чтобы при запуске макроса, данные просто заменялись темиже, только без лишних пробелов.  
Напишите, пожалуйста, код для столбца А.{/post}{/quote}  
 
Лишние пробелы удаляются, как только они были введены в ячейку : )
 
 
 
#19
24.05.2011 16:57:42
{quote}{login=}{date=24.05.2011 04:56}{thema=Re: сжатие пробелов в VBA}{post}{quote}{login=света}{date=23.03.2008 07:52}{thema=сжатие пробелов в VBA}{post}подскажите, пожалуйста, код, который будет убирать лишние пробелы во всех ячейках листа. Вот, например, в excel есть функция "сжпробелы", но она оставляет по одному пробелу между словами и убирает пробелы перед первой и последней буквами. А мне надо, чтобы это делалось в VBA, при вызове макроса. Вставлять лишние столбцы в excel мне нельзя, т.к. поедут все формулы. Хотелось бы, чтобы при запуске макроса, данные просто заменялись темиже, только без лишних пробелов.  
Напишите, пожалуйста, код для столбца А.{/post}{/quote}  
 
Лишние пробелы удаляются, как только они были введены в ячейку : ){/post}{/quote}  
 
извиняюсь за флуд) Забыл ник написать ^_^
Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

https://github.com/nervgh
 
 
 
#20
25.05.2011 13:17:53
{quote}{login=ZVI}{date=23.03.2008 11:58}{thema=Re: Re: сжатие пробелов в VBA}{post}{quote}{login=ZVI}{date=23.03.2008 11:49}{thema=Re: сжатие пробелов в VBA}{post}{quote}{login=}{date=23.03.2008 10:49}{thema=}{post}Кто-нибудь помогите!{/post}{/quote}  
---  
Света, вот такой макрос поможет:  
 
' Удаление крайних и двойных пробелов  
Sub TrimSpaces()  
Dim v As Range  
For Each v In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)  
v.Value = Trim(v)  
While InStr(1, v, "  ", vbTextCompare) > 0  
v.Value = Replace(v, "  ", " ")  
Wend  
Next  
End Sub  
 
--  
ZVI{/post}{/quote}  
---  
Так как движок этого форума, похоже, сам удалает двойные пробелы (сразу после v в двойных кавычках должно быть 2 пробела), то прилагаю файл с функцией  
---  
ZVI{/post}{/quote}  
 
эта штука хороша когда длинна строки <= 255. ЧТобы работало всегда см. мой ответ выше
Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

https://github.com/nervgh
 
 
 
#21
25.05.2011 14:11:41
{quote}{login=Юрий М}{date=25.09.2010 04:02}{thema=}{post}Сегодня вечер "Выпускник-2008"?{/post}{/quote}Нет, сегодня "Выпускник-2011" :)
 
 
 
Страницы: 1
Читают тему
Наверх