Дублировать строки на основе своих данных

У меня есть файл excel, который я буду использовать для импорта сотен продуктов в электронный магазин. В excel есть столбцы, подобные этому

Название | SKU | Размер | Цена | и т.д

  • Libcurl или cURL не работает OSX Mavericks
  • Вкладка «Автозаполнение» в Mac OS X при использовании sftp в терминале
  • Как извлечь два числа из двух строк и рассчитать разницу в Bash?
  • Как вставить вкладку между кнопками в диалоговом окне Mac OS X
  • Как перенести приложение на фронт каждые 15 минут на Mac OS X Lion?
  • Отображение Super + hjkl клавишам со стрелками под X
  • Я попросил моих клиентов сделать excel в очень специфическом формате (особенно на строках). Я хотел, чтобы у каждого варианта продукта (размера) была своя строка. Предположим, что для рубашки, которая имеет 3 размера (S, M, L), она должна иметь 3 ряда для каждой вариации. Ну, они прислали мне excel с вариациями, чтобы быть в одном ряду, как это

    S / M / L

    Я полностью noob в Excel. Как я могу сделать макрос, скажем, проверить варианты, разделенные косой чертой, и сделать x число дублированных строк? А также, если (то, что сделало бы меня veeeery счастливым), может содержать только одну вариацию в каждом ряду.

    Спасибо 🙂

  • Можно ли использовать SQL для построения таблицы данных Excel из других файлов Excel?
  • Как создать отчет Excel за месяц
  • Как заставить многие формулы столбцов игнорировать те же строки в Excel?
  • Предотвратите удаление Excel скопированных данных для вставки после определенных операций без буфера обмена Office
  • Как ввести возврат каретки в файл Excel
  • Не идентичные случайные числа
  • One Solution collect form web for “Дублировать строки на основе своих данных”

    Щелкните правой кнопкой мыши имя листа и выберите «Показать код».

    Вставьте следующий код:

    Sub Expandrows() Dim sizes() As String For Each c In Selection With c If .Value <> "" Then sizes = Split(.Value, "/") If UBound(sizes) > 0 Then For i = UBound(sizes) To LBound(sizes) Step -1 Rows(.Row).Copy Rows(.Row + 1).Insert shift:=xlDown .Offset(1) = sizes(i) Next i Application.CutCopyMode = False Rows(.Row).Delete End If Else: Exit For End If End With Next c End Sub 

    Вернитесь к своему листу, выберите столбец «Размер», щелкнув его заголовок.

    В меню «Разработчик» запустите макрос из «Макросов».

    Давайте будем гением компьютера.