Как с помощью макроса преобразовать csv?

Question

[WebforSelf]

Есть такой файл в csv в котором идут 3 столбца данных.
Как с помощью макроса переделать его в прайс вот такого вида как на скрине.
То есть
1- объединить название первого столбца , а все его данные соединить во 2 и 3 через | учитывая пустые.



Данный макрос делает практически то что нужно , только первое поле он не соединяет в одно.

Sub SaveAsCSVinQuotes()
Dim r As Range, c As Range, s As String
s = Application.GetSaveAsFilename(, "CSV Files (*.csv),*.csv,All Files (*.*),*.*", , "CSV ? |")
If s = "False" Then Exit Sub
Open s For Output As #1
   s = ""
For Each r In ActiveSheet.UsedRange.columns
   s_row = ""
   For Each c In r.Cells
        s_row = s_row & c & "|"
   Next
  If s = "" Then
    s = s_row
  Else
    s = s & ";" & s_row
  End If
Next
Print #1, s
Close #1
End Sub

Answer 1

[VitalyChaikin]

См пример работы с файлом
https://excelvba.ru/code/TextFile2Array