Есть ли способ генерации повторяющихся строк в Excel на основе нескольких записей в значении ячейки - PullRequest
0 голосов
/ 18 апреля 2020

Это мой текущий формат

enter image description here

Я бы хотел, чтобы формула была такой:

enter image description here

1 Ответ

1 голос
/ 18 апреля 2020

С данными в столбцах A и B , попробуйте этот короткий макрос:

Sub SplitList()
    Dim i As Long, j As Long, N As Long
    Dim v As String, arr, a

    N = Cells(Rows.Count, "A").End(xlUp).Row
    j = 1

    For i = 1 To N
        v = Cells(i, 1).Value
        arr = Split(Cells(i, 2).Value, ",")
        For Each a In arr
            Cells(j, 3).Value = v
            Cells(j, 4).Value = a
            j = j + 1
        Next a
    Next i
End Sub

enter image description here

Вывод в столбцах C и D .

...