☰

根据数据重复行

tag-icon • tag-icon microsoft-excel worksheet-function macros
根据数据重复行

我有一个 excel 文件，我将使用它来导入电子商店中的数百种产品。excel 有这样的列

标题 | SKU | 尺寸 | 价格 | 等等

我要求我的客户以非常具体的格式（尤其是行）制作 Excel。我希望产品（尺寸）的每个变体都有自己的行。假设一件衬衫有 3 个尺寸（S、M、L），每个变体应该有 3 行。好吧，他们给我发了一个 Excel，其中的变体在一行中，就像这样

小/中/大

我对 Excel 完全是菜鸟。我怎样才能制作一个宏，比如说，检查由斜线分隔的变体并产生 x 个重复行？并且如果（这会让我非常高兴）每行只保留一个变体。

谢谢 ：）

答案1

右键单击工作表的名称并选择“显示代码”。

粘贴以下代码：

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

返回工作表，单击标题选择“大小”列。

在“开发人员”菜单下，从“宏”运行宏。

相关内容