Как сцепить текст если ячейка объединена - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 3.857 из 5
Похожие ответы