Есть такой файл в 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
