Удалить пробелы макросом

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удалить пробелы макросом (Макросы/Sub)

Mark1976

Дата: Воскресенье, 26.03.2017, 23:09 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 738

Репутация: 3 ±

Замечаний: 0% ±

Excel 2010, 2013

Здравствуйте. Столкнулся с проблемой. Работаю удаленно с 1С, и вот при копировании чисел, они вставляются с пробелами. Вот так: 709 074,17. Найти и заменить работает не корректно. Если ставить пробел клавишей пробел ничего не заменяется, приходится этот пробел копировать и потом заменять. Такими кривыми числами я заполнил большую таблицу, и теперь мне надо удалить эти пробелы. Может есть макрос который может это сделать: Удалить пробелы из выделенных ячеек.

Сообщение отредактировал Mark1976 - Воскресенье, 26.03.2017, 23:10

Ответить

HoBU4OK

Дата: Воскресенье, 26.03.2017, 23:23 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 309

Репутация: 14 ±

Замечаний: 0% ±

Excel 2010

Попробуйте написать макрос через рекордер... Вам его поправят и это не сложно (и вам опыт

)
А ещё, возможно поможет, надстройка XLTools

Я думал, ты остроглазый лев, а ты слепая собака :-)

Ответить

Mark1976

Дата: Воскресенье, 26.03.2017, 23:26 | Сообщение № 3

Группа: Проверенные

Ранг: Ветеран

Сообщений: 738

Репутация: 3 ±

Замечаний: 0% ±

Excel 2010, 2013

HoBU4OK, [vba]

Код

Sub Макрос1()
'
' Макрос1 Макрос
'

'
    Range("V32:Z35").Select
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

[/vba]

Готово

Сообщение отредактировал Mark1976 - Воскресенье, 26.03.2017, 23:37

Ответить

HoBU4OK

Дата: Воскресенье, 26.03.2017, 23:32 | Сообщение № 4

Группа: Проверенные

Ранг: Обитатель

Сообщений: 309

Репутация: 14 ±

Замечаний: 0% ±

Excel 2010

Кнопочка другая для оформления) (вместоfx -#)
И как? Работает?

Я думал, ты остроглазый лев, а ты слепая собака :-)

Сообщение отредактировал HoBU4OK - Воскресенье, 26.03.2017, 23:33

Ответить

Саня

Дата: Понедельник, 27.03.2017, 01:56 | Сообщение № 5

Группа: Друзья

Ранг: Ветеран

Сообщений: 1068

Репутация: 560 ±

Замечаний: 0% ±

XL 2016

вот так попробуйте:

[vba]

Код

What:=chr(160)

[/vba]

Сообщение отредактировал Саня - Понедельник, 27.03.2017, 01:56

Ответить

_Boroda_

Дата: Понедельник, 27.03.2017, 03:57 | Сообщение № 6

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Первый макрос работает от ячейки V32 до последней заполненной ячейки столбца Z
Второй работает по выделенному диапазону (одну ячейку выделять нежелательно)
Меняет неразрывный пробел (как посоветовал выше Саня - действительно, из 1С он чаще всего и выгружается) и обычный. И потом преобразует полученное в числа
[vba]

Код

Sub tt()
    r0_ = 32
    r1_ = Range("Z" & Rows.Count(3)).End(3).Row
    With Range("V" & r0_ & ":Z" & r1_)
        .Replace What:=Chr(160), Replacement:=""
        .Replace What:=Chr(32), Replacement:=""
        .FormulaLocal = .FormulaLocal
    End With
End Sub
'======================
Sub tt1()
    With Selection
        .Replace What:=Chr(160), Replacement:=""
        .Replace What:=Chr(32), Replacement:=""
        .FormulaLocal = .FormulaLocal
    End With
End Sub

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Mark1976

Дата: Понедельник, 27.03.2017, 18:09 | Сообщение № 7

Группа: Проверенные

Ранг: Ветеран

Сообщений: 738

Репутация: 3 ±

Замечаний: 0% ±

Excel 2010, 2013

Boroda, спасибо. Макрос работает безупречно.

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удалить пробелы макросом (Макросы/Sub)

Страница 1 из 1
1