Доброго времени суток! Суть проблемы такая: Имеется файл с таблицей с указанием в столбцах наименования товара, производитель, единица измерения. Нужно объединить эти 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 столбцов - обьединение произошло построчно. Прикрепляю файл с этими тремя столбцами. Заранее Спасибо!
Доброго времени суток! Суть проблемы такая: Имеется файл с таблицей с указанием в столбцах наименования товара, производитель, единица измерения. Нужно объединить эти 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 столбцов - обьединение произошло построчно. Прикрепляю файл с этими тремя столбцами. Заранее Спасибо!Ilsur
Вопрос 1 А результирующая ячейка то какая? =)) Вы выделяете 2-4 ячейки используете макрос и куда вы результат хотите получить? Во все 2-4 выделенных ячейки? =)
Вопрос 2 Вы хотите делать такую процедуру в ручную? Взять, выделить, макрос, готово, следующая строка... А обработка всего листа сразу не страивает? )
Ilsur,
Вопрос 1 А результирующая ячейка то какая? =)) Вы выделяете 2-4 ячейки используете макрос и куда вы результат хотите получить? Во все 2-4 выделенных ячейки? =)
Вопрос 2 Вы хотите делать такую процедуру в ручную? Взять, выделить, макрос, готово, следующая строка... А обработка всего листа сразу не страивает? )Timber_Wolf
Сообщение отредактировал Timber_Wolf - Четверг, 24.11.2016, 09:49
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
