@WebforSelf

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

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

6066ea2f98372137283142.png

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

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
  • Вопрос задан
  • 48 просмотров
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы