макрос объединения столбцов в один построчно

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

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

макрос объединения столбцов в один построчно (Макросы/Sub)

Ilsur

Дата: Среда, 23.11.2016, 23:34 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

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

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

Excel 2010

Доброго времени суток! Суть проблемы такая:
Имеется файл с таблицей с указанием в столбцах наименования товара, производитель, единица измерения. Нужно объединить эти 3 столбца в один построчно. Я так думаю макросом. Примерный код я нашел, но он при выделении нескольких строк обьеденяет все ячейки в одну. Вот он:
[vba]

Код

Sub MergeCell()
Const sDELIM As String = " "
Dim rCell As Range
Dim sMergeStr As String
If TypeName(Selection) <> "Range" Then Exit Sub
With Selection
For Each rCell In .Cells
sMergeStr = sMergeStr & sDELIM & rCell.Text
Next rCell
Application.DisplayAlerts = False
.Merge Across:=False
Application.DisplayAlerts = True
.Item(1).Value = Mid(sMergeStr, 1 + Len(sDELIM))
End With

End Sub

[/vba]

Может тут что-то нужно изменить, чтобы при выделении всех значений 3 столбцов - обьединение произошло построчно. Прикрепляю файл с этими тремя столбцами. Заранее Спасибо!

К сообщению приложен файл: 6207947.xls (58.0 Kb)

с благодарностью Ilsur

Сообщение отредактировал Ilsur - Среда, 23.11.2016, 23:36

Ответить

_Boroda_

Дата: Четверг, 24.11.2016, 00:00 | Сообщение № 2

Группа: Админы

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

Сообщений: 16711

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

А формулой в соседнем столбце не пойдет? Потом оттуда можно скопировать и вставить значениями в нужно место

Код

=D7&J$6&" "&E7&J$6&" "&F7

В J$6 - разделитель у меня в файле точка с запятой

К сообщению приложен файл: 6207947_1.xls (59.0 Kb)

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

Ответить

Ilsur

Дата: Четверг, 24.11.2016, 00:11 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

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

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

Excel 2010

Конечно можно, я как вариант рассматривал его, но желательно с использованием макроса

с благодарностью Ilsur

Ответить

Timber_Wolf

Дата: Четверг, 24.11.2016, 09:48 | Сообщение № 4

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

Ранг: Форумчанин

Сообщений: 107

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

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

Excel 2010

Ilsur,

Вопрос 1
А результирующая ячейка то какая? =)) Вы выделяете 2-4 ячейки используете макрос и куда вы результат хотите получить? Во все 2-4 выделенных ячейки? =)

Вопрос 2
Вы хотите делать такую процедуру в ручную? Взять, выделить, макрос, готово, следующая строка... А обработка всего листа сразу не страивает? )

Сообщение отредактировал Timber_Wolf - Четверг, 24.11.2016, 09:49

Ответить

Wasilich

Дата: Четверг, 24.11.2016, 12:32 | Сообщение № 5

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

Ранг: Старожил

Сообщений: 1232

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

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

2003

Сама тема начинается со слова "макрос" но, почему то здесь!
Так пойдет?
[vba]

Код

Sub Макрос1()
  Dim I&, TX$
  Application.ScreenUpdating = False:  Application.DisplayAlerts = False
  For I = 7 To Range("D" & Rows.Count).End(xlUp).Row
    TX = Cells(I, 4) & "  " & Cells(I, 5) & "  " & Cells(I, 6)
    Range("D" & I & ":F" & I).Merge Across:=True
    Cells(I, 4) = TX
  Next
  Application.ScreenUpdating = True: Application.DisplayAlerts = True
End Sub

[/vba]