Как сцепить текст если ячейка объединена - VBA
Формулировка задачи:
имеется таблица, первый столбец может содержать объединенные ячееки, может содержать простые. во втором пояснения для ячейки в 1 ом, т.е. для ячейки 1:1 (состоит из трех объед. ячеек 1:1,2:1,3:1 ) соотносится текст во втором(три раздельных ячейки 1:2,2:2,3:2) и т.д. в рандомном порядке.
необходимо на основании этой таблицы заполнить вторую, при чем 1 столбец содержит значения 1 столб. из 1 й (объединение не используется). а для второго столбца берутся значения второго, а в случае нескольких значения перечисляются через запятую.
прошу простить если непонятно изложил. пример таблицы прилагаю.
Мыслей полно, а свести воедино чего то не получается. help!!
Решение задачи: «Как сцепить текст если ячейка объединена»
textual
Листинг программы
Sub Объединение_2столбца() Dim i&, k&, A, B A = ActiveSheet.UsedRange.Columns("A:B").Value ReDim B(1 To UBound(A), 1 To 2) For i = 1 To UBound(A) If A(i, 1) <> "" Then k = k + 1 B(k, 1) = A(i, 1) B(k, 2) = A(i, 2) ElseIf A(i, 2) <> "" Then B(k, 2) = B(k, 2) & ", " & A(i, 2) End If Next i [E:F].UnMerge [E1].Resize(UBound(A), 2).Value = B End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д