Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
макрос Сцепить и Убрать пробелы.
 
#1
11.03.2015 13:04:48
Добрый день.
Знаю что есть формула Сцепить и автозамена с " " на "" но было бы удобнее применять макрос для каждого листа.
Обычный такой макрос который бы сцеплял несколько столбцов и сцеплял бы в определенный.
На языке первобытного хотелось чтобы в макросе было следующее Сцепить(а1;а3;а4) в столбец а5
А также еще один макрос с убиранием пробелов во всем документе.
Есть документы, которые требуют подготовки и было бы удобно применять макросы, чем каждый раз вводить формулу.
Был бы очень благодарен.
Изменено: manager2007 - 11.03.2015 13:06:33
 
 
 
#2
11.03.2015 13:09:10
Цитата
manager2007 написал: макрос с убиранием пробелов во всем документе
Ctrl+h - Найти: " " - Заменить: ничего - Заменить все. Зачем макрос?
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
11.03.2015 13:10:44
Цитата
manager2007 написал: в столбец а5
Это что за столбец такой? )
 
 
 
#4
11.03.2015 13:13:28
В цикле пройтись по диапазонам (или по массивам, в которые загнаны эти диапазоны), сцепить данные.
при выполнении операций в цикле убирать лишние пробелы или делать это после выгрузки на лист с помощью
Replace или Replacement...
Как-то так.

Если сами в этом не разбираетесь и понять не хотите, можно тему перенести в раздел платных заказов.
Может, и здесь помощь придет. В любом случае, пример в файле Excel не помешает.
 
 
 
#5
11.03.2015 13:15:15
В PLEX есть функция MultiCat.
Про пробелы - запишите замену пробелов (Ctrl+H) на макрорекордер и будет вам макрос.
Работать надо не 12 часов, а головой.
 
 
 
#6
11.03.2015 13:20:32
Ну убирание пробелов хрен с ним, это уже я обленился наверное)))
столбец а5 образно. Или может коряво объяснил...  В одной строке значения первой второй и третьей ячеек сцепить без пробелов в четвертую и так далее до конца документа. Та же формула сцепить растянутая до низа.
 
 
 
#7
11.03.2015 13:25:18
manager2007, файл-пример в реальной структуре приложите, выделите что должно быть сцеплено  и куда вставлено. Или куда вставлено будет меняться?
Работать надо не 12 часов, а головой.
 
 
 
#8
11.03.2015 14:26:25
вот пример. в пятый столбец сцепляется из первых четырех.
проблема в том что подобных файлов много и в них по несколько листов.
 
 
 
#9
11.03.2015 15:19:36
Так что ли?
Можно на все листы какой-то книги это распространить.
Работать надо не 12 часов, а головой.
 
 
 
#10
11.03.2015 15:26:41
ага. оно. Можно и на все листы сразу
 
 
 
#11
11.03.2015 15:30:37
Вот так.
Код
Sub Сцепить()
For Each sh In ActiveWorkbook.Sheets
    lr = sh.Cells(Rows.Count, 1).End(xlUp).Row
    sh.[E1].Resize(lr).FormulaR1C1Local = "=СЦЕПИТЬ(RC[-4];RC[-3];RC[-2];RC[-1])"
Next
End Sub
Работать надо не 12 часов, а головой.
 
 
 
#12
11.03.2015 15:38:06
Можно для выделения сделать (а то вдруг не 4 столбца, а больше?)
Выделяете диапазон с данными, которые надо сцепить, и запускаете макрос.
Код
Sub manager2007()
Dim lngI As Long
Dim lngJ As Long
Dim strS As String
    For lngI = 1 To Selection.Rows.Count
        For lngJ = 1 To Selection.Columns.Count
            strS = strS & Selection.Cells(lngI, lngJ)
        Next lngJ
    Selection.Cells(lngI, lngJ) = strS
    strS = ""
    Next lngI
End Sub
Кому решение нужно - тот пример и рисует.
 
 
 
#13
12.03.2015 08:32:55
Прекрасно. Спасибо большое))
 
 
 
Страницы: 1
Наверх