电商店铺上传数据重排求助：Power Query/VBA商品变体整理

一、Power Query 实现方案（基于你现有进度优化） #

假设你的数据包含列：Parent SKU, SKU, 商品名称, 变体名称, 父商品图片, 变体图片（可根据实际列名调整），核心思路是通过分组+自定义函数处理父商品与变体的图片关联，自动生成符合要求的行结构：

1. 按Parent SKU分组，保留组内所有父商品和变体行
2. 自定义函数处理每组数据：
   • 提取组内父商品图片（从变体行中提取）
   • 为父商品行单独设置父商品图片字段，变体图片留空，变体名称清空
   • 为每个变体行关联统一的父商品图片，同时保留自身变体图片
3. 展开分组结果，按父商品在前、变体在后的规则排序

M代码示例（替换列名后即可使用） #

let
    // 加载数据源（替换为你的表名）
    源 = Excel.CurrentWorkbook(){[Name="原始数据"]}[Content],
    // 按Parent SKU分组，保留组内所有行数据
    分组 = Table.Group(源, {"Parent SKU"}, {{"组内数据", each _, type table [Parent SKU=text, SKU=text, 商品名称=text, 变体名称=text, 父商品图片=text, 变体图片=text]}}),
    // 自定义处理单组数据的函数
    处理组数据 = (组内数据 as table) as table =>
        let
            // 提取当前组的父商品图片（取组内第一行的父图字段）
            父图 = 组内数据{0}[父商品图片],
            // 标记父商品行（判断逻辑：Parent SKU与SKU一致的为父商品）
            添加父标记 = Table.AddColumn(组内数据, "是否父商品", each [Parent SKU] = [SKU]),
            // 处理父商品行：变体名称留空，父图赋值，变体图清空
            处理父行 = Table.AddColumn(添加父标记, "最终父图", each if [是否父商品] then 父图 else null),
            处理父行_变体图 = Table.AddColumn(处理父行, "最终变体图", each if [是否父商品] then null else [变体图片]),
            // 处理变体行：统一填充父商品图片
            处理变体行_父图 = Table.ReplaceValue(处理父行_变体图, null, 父图, Replacer.ReplaceValue, {"最终父图"}),
            // 清理临时列并重命名
            移除临时列 = Table.RemoveColumns(处理变体行_父图, {"是否父商品", "父商品图片", "变体图片"}),
            重命名列 = Table.RenameColumns(移除临时列, {{"最终父图", "父商品图片"}, {"最终变体图", "变体图片"}})
        in
            重命名列,
    // 为所有分组应用自定义函数
    应用函数 = Table.TransformColumns(分组, {"组内数据", each 处理组数据(_)}),
    // 展开所有行数据
    展开数据 = Table.ExpandTableColumn(应用函数, "组内数据", {"SKU", "商品名称", "变体名称", "父商品图片", "变体图片"}),
    // 排序：父商品行在前，变体行按SKU升序排列
    排序 = Table.Sort(展开数据,{{"Parent SKU", Order.Ascending}, {"SKU", Order.Ascending}})
in
    排序

二、VBA 实现方案（适合批量自动化处理） #

如果你觉得Power Query逻辑较复杂，VBA可以更直观地逐行遍历处理，以下代码会自动生成符合上架要求的行结构，并完成图片关联：

VBA代码示例（需启用宏） #

Sub 适配上架格式()
    Dim wsSource As Worksheet, wsResult As Worksheet
    Dim lastRow As Long, i As Long, j As Long
    Dim parentSKU As String, parentImg As String
    
    ' 定义源工作表和结果工作表（可根据实际修改表名）
    Set wsSource = ThisWorkbook.Worksheets("原始数据")
    Set wsResult = ThisWorkbook.Worksheets.Add(After:=wsSource)
    wsResult.Name = "上架数据"
    
    ' 复制表头到结果表
    wsSource.Rows(1).Copy wsResult.Rows(1)
    
    lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    j = 2 ' 结果表数据起始行
    
    For i = 2 To lastRow
        parentSKU = wsSource.Cells(i, "A").Value ' 假设Parent SKU在A列
        parentImg = wsSource.Cells(i, "E").Value ' 假设父商品图片在E列
        
        ' 写入父商品行
        wsResult.Cells(j, "A").Value = parentSKU
        wsResult.Cells(j, "B").Value = wsSource.Cells(i, "B").Value ' SKU列
        wsResult.Cells(j, "C").Value = wsSource.Cells(i, "C").Value ' 商品名称列
        wsResult.Cells(j, "D").Value = "" ' 变体名称留空
        wsResult.Cells(j, "E").Value = parentImg ' 父商品图片
        wsResult.Cells(j, "F").Value = "" ' 变体图片留空
        j = j + 1
        
        ' 遍历当前Parent SKU下的所有变体行
        Do While i < lastRow And wsSource.Cells(i + 1, "A").Value = parentSKU
            i = i + 1
            ' 写入变体行
            wsResult.Cells(j, "A").Value = parentSKU
            wsResult.Cells(j, "B").Value = wsSource.Cells(i, "B").Value ' 变体SKU
            wsResult.Cells(j, "C").Value = wsSource.Cells(i, "C").Value ' 商品名称
            wsResult.Cells(j, "D").Value = wsSource.Cells(i, "D").Value ' 变体名称
            wsResult.Cells(j, "E").Value = parentImg ' 关联父商品图片
            wsResult.Cells(j, "F").Value = wsSource.Cells(i, "F").Value ' 变体自身图片
            j = j + 1
        Loop
    Next i
    
    MsgBox "数据处理完成！结果已保存到'" & wsResult.Name & "'工作表"
End Sub

使用说明：

1. 打开Excel按Alt+F11进入VBA编辑器，插入模块后粘贴代码
2. 根据你的实际列位置，修改代码中的列标识（比如A列是Parent SKU、E列是父商品图片等）
3. 运行宏即可自动生成符合要求的上架数据

内容的提问来源于stack exchange，提问作者Tanner