Поворачивая CSV в строках столбцов

@Джони, Если вы будете использовать TextToColumns, чтобы распространить accountnumbers по различным столбцам. Затем перейдите в меню "Экран" и нажмите значок над макросом справа. Введите имя макроса и нажмите кнопку "Создать". Затем вставьте код ниже между двумя строками с sub. Закройте окно VBA, чтобы вернуться к данным. Щелкните в любом месте данных. Щелкните значок макроса еще раз, выберите macroname и нажмите кнопку Выполнить.

Dim data As Range
Dim i As Integer
Dim j As Integer

Set data = ActiveCell.CurrentRegion 'Selecting the active region

For i = data.Rows.Count To 1 Step -1 'for all row (start at bottom)
    For j = 3 To data.Columns.Count 'for all columns (start at third column)
        If Not IsEmpty(data(i, j)) Then 'if there is a value
            data.Rows(i + 1).Insert 'insert a new row below
            data(i + 1, 1) = data(i, 1) 'copy the company
            data(i + 1, 2) = data(i, j) 'copy the account number
            data(i, j).Clear 'delete the original value
        End If
    Next j
Next i

это должно привести к списку

company A; accno 1
company A; accno 2
company B; accno 3
company C; accno 4