这个用获取与转换功能可以处理（最好是office 2016版本及以上版本，2010版本需要下载插件）
操作步骤如下：
将光标定位在数据区域，菜单功能区【数据】，【从表格】，勾选【表包含标题】，进入到power query操作界面，如下图所示：
菜单【主页】，【高级编辑器】，将如下代码粘贴到编辑框中，确定后即可得到附图所示的效果
let
源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
更改的类型 = Table.TransformColumnTypes(源,{{"商品", type text}, {"规格", type text}, {"单价", type number}, {"数量", Int64.Type}, {"店铺券", Int64.Type}, {"收件人", type text}}),
已添加自定义 = Table.AddColumn(更改的类型, "自定义", each {1..[数量]}),
#"展开的“自定义”" = Table.ExpandListColumn(已添加自定义, "自定义"),
已添加自定义1 = Table.AddColumn(#"展开的“自定义”", "自定义.1", each 1),
重排序的列 = Table.ReorderColumns(已添加自定义1,{"商品", "规格", "单价", "自定义.1", "数量", "店铺券", "收件人", "自定义"}),
删除的列 = Table.RemoveColumns(重排序的列,{"数量", "自定义"}),
重命名的列 = Table.RenameColumns(删除的列,{{"自定义.1", "数量"}})
in
重命名的列
最后将菜单【主页】，【关闭并上载】将处理好的数据导出到excel表格中，如图所示：
这个需要数组公式完成，
或VBA追问
数组公式是指？具体怎么做呢
追答行列号都没有怎么写？
弄个有实际行列号的截图
这个意思？
对的就这意思
追答=INDEX(A:A,SMALL(IF($D$2:$D$5<COLUMN($A$1:$AZ$1),4^8,ROW($2:$5)),ROW(A1)))&""
同时按CTRL SHIFT 回车键，出现结果，然后下拉