Объединение данных нескольких ячеек столбца

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

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

Объединение данных нескольких ячеек столбца (Макросы/Sub)

drugojandrew

Дата: Воскресенье, 23.12.2018, 14:59 | Сообщение № 1

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

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

Сообщений: 141

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

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

Excel 2013

Добрый день.
Пытаюсь автоматизировать процесс объединения ячеек. Есть таблица, в первом столбце которой даты. Во втором столбце находятся данные в нескольких строках, т.е. напротив одной ячейки с датой несколько ячеек с данными (иногда одна дата - одна ячейка с данными). Нужно объединить данные во втором столбце так, чтобы все они были в одной ячейке напротив даты. В приложенном примере есть вкладка "До" и "После" (в последней показан желаемый результат). Помогите реализовать, пожалуйста.

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

Ответить

KuklP

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

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

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

Сообщений: 2369

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

Замечаний: 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

Ответить

drugojandrew

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

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

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

Сообщений: 141

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

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

Excel 2013

KuklP, спасибо! То что надо!

Ответить

Объединение данных нескольких ячеек столбца (Макросы/Sub)

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