Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Объединение данных нескольких ячеек столбца - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Объединение данных нескольких ячеек столбца (Макросы/Sub)
Объединение данных нескольких ячеек столбца
drugojandrew Дата: Воскресенье, 23.12.2018, 14:59 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 102
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый день.
Пытаюсь автоматизировать процесс объединения ячеек. Есть таблица, в первом столбце которой даты. Во втором столбце находятся данные в нескольких строках, т.е. напротив одной ячейки с датой несколько ячеек с данными (иногда одна дата - одна ячейка с данными). Нужно объединить данные во втором столбце так, чтобы все они были в одной ячейке напротив даты. В приложенном примере есть вкладка "До" и "После" (в последней показан желаемый результат). Помогите реализовать, пожалуйста.
К сообщению приложен файл: Primer1.xls(56.5 Kb)
 
Ответить
СообщениеДобрый день.
Пытаюсь автоматизировать процесс объединения ячеек. Есть таблица, в первом столбце которой даты. Во втором столбце находятся данные в нескольких строках, т.е. напротив одной ячейки с датой несколько ячеек с данными (иногда одна дата - одна ячейка с данными). Нужно объединить данные во втором столбце так, чтобы все они были в одной ячейке напротив даты. В приложенном примере есть вкладка "До" и "После" (в последней показан желаемый результат). Помогите реализовать, пожалуйста.

Автор - drugojandrew
Дата добавления - 23.12.2018 в 14:59
KuklP Дата: Воскресенье, 23.12.2018, 16:32 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2359
Репутация: 483 ±
Замечаний: 0% ±

2003-2010
[vba]
Код
Sub www()
    Dim a As Range, b
    For Each a In ActiveSheet.UsedRange.Columns("A:A").SpecialCells(4).Areas
        b = a.Offset(-1, 1).Resize(a.Rows.Count + 1)
        a.Offset(-1, 1).Resize(a.Rows.Count + 1).ClearContents
        b = Join(Application.Transpose(b))
        a(1).Offset(-1, 1) = b
    Next
End Sub
[/vba]


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
Сообщение[vba]
Код
Sub www()
    Dim a As Range, b
    For Each a In ActiveSheet.UsedRange.Columns("A:A").SpecialCells(4).Areas
        b = a.Offset(-1, 1).Resize(a.Rows.Count + 1)
        a.Offset(-1, 1).Resize(a.Rows.Count + 1).ClearContents
        b = Join(Application.Transpose(b))
        a(1).Offset(-1, 1) = b
    Next
End Sub
[/vba]

Автор - KuklP
Дата добавления - 23.12.2018 в 16:32
drugojandrew Дата: Воскресенье, 23.12.2018, 19:19 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 102
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
KuklP, спасибо! То что надо!
 
Ответить
СообщениеKuklP, спасибо! То что надо!

Автор - drugojandrew
Дата добавления - 23.12.2018 в 19:19
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Объединение данных нескольких ячеек столбца (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!