Строки в столбце в Excel по идентификатору

Question

Доброе утро, я хочу задать вопрос о Excel.У меня есть этот стол.И что я хочу, чтобы переключить строки в столбец, сохранив идентификатор.Найдите пример ниже:

id  year    topic
1   2001    peras // manzanas   
2   2002    peras // manzanas   
3   2003    peras // manzanas // platano    
4   2004    peras // manzanas // platano    
5   2005    peras // manzanas // platano    
6   2006    peras // manzanas   

Вот чего я хочу достичь:

id  Col2
1 peras
1 manzanas
2 peras
2 manzanas
3 peras
3 manzanas
3 platano

Я проверил на форуме различные примеры с функцией индекса, но она не сработала.Любое предложение будет приветствоваться!Лучший,

Answer 1

Сначала нужно разделить ячейку «тема» с помощью меню «Данные» -> «Текст в столбец».

Затем выбрать ячейки данных без заголовков и использовать эти макросы:

Sub CopyFilledRows()
 On Error Resume Next
    new_row = 1
    Set Rng = Application.Selection
    With Sheets(2)
        For r = 1 To Rng.Rows.Count
            For c = 3 To Rng.Columns.Count
                If Rng.Cells(r, c) <> "" Then
                    .Cells(new_row, 1) = Rng.Cells(r, 1)
                    .Cells(new_row, 2) = Rng.Cells(r, c)
                    new_row = new_row + 1
                End If
            Next
        Next
    End With
End Sub

Теперь лист 2 содержит то, что вам нужно.