Как переделать csv файл в из столбцов в строку?

Question

[WebforSelf]

Есть исходная таблица и выглядит она следующим образом

Но такой формат не подходит для импорта моего, и требуется сделать так


Что я для этого сделал, добавил каждой строке в столбце разделитель "|" , а общую категорию, обьединяем в одно. Получается в принципе то что нужно, но есть проблема.
Если какое либо поле из названия или цены приходит пустым, то оно не записывается как пустое, а записывается следующее. И из за этого ломается в целом весь импорт таблицы. Как можно победить это? ведь по сути мне надо чтоб пустое поле тоже учитывалось
Импорт считывает только характеристики написанные через разделитель.

Comments

[Александр]

Показали вход и выход. А что посередине? Представьте своё решение, чтобы не начинать с самого начала.

[WebforSelf]

Александр, Решения как такового нету, все делаю в экселе, все руками.


Поэтому и спрашиваю, как данное действие автоматизировать.

[Александр]

WebforSelf, вручную или формулами?

[WebforSelf]

Александр, вручную через доп приложение Ёexcel

[WebforSelf]

Александр, аа, вы наверное имели ввиду как я хочу сделать, я хочу чтоб работало любым способом. Тут пока вопрос как пустые ячейки указать в виде |пустая ячейка| а то он значения берет следующее и получается что вся таблица не правильная и сьезжает.

Answer 1

[Даниил Бабкин]

Импортируйте файл через меню "Данные", кнопка "Из текстового/CSV файла".
На первом же шаге выберите разделитель "Пользовательский" и укажите разделитель - вертикальную черту ( | ).
И будет счастье :)

Comments

[WebforSelf]

подскажите что у вас за эксель, версия?


Ну и самая важная часть этого импорта, мне надо чтоб все столбцы обьединились в 1 строку, но только чтоб пустое значение тоже было значение1|значение2||значение4| как то так, вместо 3 значения должен быть пустой

[Даниил Бабкин]

WebforSelf, 2019. В 2016 аналогично выглядит, а в более ранних версиях - не помню. Но везде на одном из шагов можно задать произвольный разделитель.
На сколько я понял, вы объединяли строки вручную и также вручную проставляли разделитель?
Попробуйте сохранить через этот макрос:

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
For Each r In ActiveSheet.UsedRange.Rows
   s = ""
   For Each c In r.Cells
        s = s & c & "|"
   Next
   Print #1, s
Next
Close #1
End Sub

[WebforSelf]

Даниил Бабкин, почти то что нужно, но как сделать так, чтоб он оставлял все как есть, на 3 столбика (сейчас он все в один скомпоновал)


Ну чтоб были А,В,С столбцы
Первые 2 разделить этим "|" а последний оставлять в одном экземпляре и обьединить как тут

[Даниил Бабкин]

WebforSelf, в csv сохранение идет построчно. У вас же - по столбцам. Это не csv уже :)
Попробуйте макрос:

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
For Each r In ActiveSheet.UsedRange.Columns
   s = ""
   For Each c In r.Cells
        s = s & c & "|"
   Next
   Print #1, s
Next
Close #1
End Sub

[WebforSelf]

Даниил Бабкин, я понял) по сути мне надо тогда столбцы разделить еще на ";" и все. и тогда получится csv который мне нужен.
Строки разделяются ; а параметры - |

[Даниил Бабкин]

WebforSelf, какова задача - таково и решение :)
Пробуйте:

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

[Даниил Бабкин]

WebforSelf, чуть косякнул. Изменил, проверьте

[WebforSelf]

Даниил Бабкин, я дабы вас не тревожить уже VBA изучать начал)

[WebforSelf]

Даниил Бабкин,

Все равно ругается

[Даниил Бабкин]

WebforSelf, VBA странно относится к форматированию.
Проверил, работает. Но так ли, как надо?)

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

[WebforSelf]

Даниил Бабкин,

Первые работали норм)а этот что то ошибки выдает, может копирую не так?

[Даниил Бабкин]

WebforSelf, заново скопируйте код - несколько нижних строк не захватило.

[WebforSelf]

Даниил Бабкин, по сути то что нужно!


Осталось еще этот столбец одинаковые между собой обьединить как то) чтоб он один был и без разделителя.
По нему получается 2 столбца групируются)

[Даниил Бабкин]

WebforSelf, задавайте проверку содержимого переменной "с" перед тем, как ее публиковать в переменную s в этой строке:
s_row = s_row & c & "|"

Я верю в вас, вы справитесь :)

[WebforSelf]

Даниил Бабкин, спасибо за помощь! помню еще в институте мучали этот VBA) страшный синтаксис по сравнению с PHP))