二维数据表转二维数据表

marsgao

这个真不会了，那位老师可以给指导一下，

zpy2

二维转一维，在合并转二维

with 一维表 as (SELECT 序号,联系人,备注,'前腱子' AS 属性,[前腱子] AS [数量] FROM 二维表 WHERE [前腱子] NOT LIKE '' AND 前腱子 NOT LIKE '0' UNION SELECT 序号,联系人,备注,'后腱子' AS 属性,[后腱子] AS [数量] FROM 二维表 WHERE [后腱子] NOT LIKE '' AND 后腱子 NOT LIKE '0' UNION SELECT 序号,联系人,备注,'实际重量' AS 属性,[实际重量] AS [数量] FROM 二维表 WHERE [实际重量] NOT LIKE '' AND 实际重量 NOT LIKE '0' UNION SELECT 序号,联系人,备注,'牛小肉' AS 属性,[牛小肉] AS [数量] FROM 二维表 WHERE [牛小肉] NOT LIKE '' AND 牛小肉 NOT LIKE '0' UNION SELECT 序号,联系人,备注,'上脑' AS 属性,[上脑] AS [数量] FROM 二维表 WHERE [上脑] NOT LIKE '' AND 上脑 NOT LIKE '0' UNION SELECT 序号,联系人,备注,'牛尾肉' AS 属性,[牛尾肉] AS [数量] FROM 二维表 WHERE [牛尾肉] NOT LIKE '' AND 牛尾肉 NOT LIKE '0' UNION SELECT 序号,联系人,备注,'里脊' AS 属性,[里脊] AS [数量] FROM 二维表 WHERE [里脊] NOT LIKE '' AND 里脊 NOT LIKE '0' UNION SELECT 序号,联系人,备注,'胸口' AS 属性,[胸口] AS [数量] FROM 二维表 WHERE [胸口] NOT LIKE '' AND 胸口 NOT LIKE '0' UNION SELECT 序号,联系人,备注,'子盖' AS 属性,[子盖] AS [数量] FROM 二维表 WHERE [子盖] NOT LIKE '' AND 子盖 NOT LIKE '0' UNION SELECT 序号,联系人,备注,'板架' AS 属性,[板架] AS [数量] FROM 二维表 WHERE [板架] NOT LIKE '' AND 板架 NOT LIKE '0' UNION SELECT 序号,联系人,备注,'白板' AS 属性,[白板] AS [数量] FROM 二维表 WHERE [白板] NOT LIKE '' AND 白板 NOT LIKE '0' UNION SELECT 序号,联系人,备注,'眼肉' AS 属性,[眼肉] AS [数量] FROM 二维表 WHERE [眼肉] NOT LIKE '' AND 眼肉 NOT LIKE '0' UNION SELECT 序号,联系人,备注,'牛筋' AS 属性,[牛筋] AS [数量] FROM 二维表 WHERE [牛筋] NOT LIKE '' AND 牛筋 NOT LIKE '0' UNION SELECT 序号,联系人,备注,'牛腩' AS 属性,[牛腩] AS [数量] FROM 二维表 WHERE [牛腩] NOT LIKE '' AND 牛腩 NOT LIKE '0' UNION SELECT 序号,联系人,备注,'肋条' AS 属性,[肋条] AS [数量] FROM 二维表 WHERE [肋条] NOT LIKE '' AND 肋条 NOT LIKE '0')
select 序号,联系人,备注,group_concat(属性||'</td><td>'||数量,'</td><td>') '品名</td><td>数量' from 一维表 group by 联系人

hcm19522

M2:R9 {=IFERROR(INDEX(IF(MOD(COLUMN(A1),2),$1:$1,2:2),SMALL(IF($C2:$J2>0,COLUMN($C:$J)),INT(COLUMN(B1)/2))),"")

zky890320

用数据透视表可以快速转化。选择【数据】~【数据分析表】~【使用多重合并数据】~选择【新工作表】确认~【选定区域】~|【添加】确认~~双击右下角【29】~~筛选【值】的空白列

上传步骤图

zky890320

结果如下，觉得效果不错，简单容易学

marsgao

zky890320 发表于 2020-8-30 17:50
结果如下，觉得效果不错，简单容易学

万分感谢，你的方法我试用了，可以实现二维转一维，谢谢。我想要的一维再转二维

marsgao

hcm19522 发表于 2020-8-30 17:15
M2:R9 {=IFERROR(INDEX(IF(MOD(COLUMN(A1),2),$1:$1,2:2),SMALL(IF($C2:$J2>0,COLUMN($C:$J)),INT(COLUMN(B ...

能用VBA实现解决吗

marsgao

hcm19522 发表于 2020-8-30 17:15
M2:R9 {=IFERROR(INDEX(IF(MOD(COLUMN(A1),2),$1:$1,2:2),SMALL(IF($C2:$J2>0,COLUMN($C:$J)),INT(COLUMN(B ...

测试成功，真的方便，如果改写成VBA方式再新页中实现，怎么写。

marsgao

zpy2 发表于 2020-8-30 09:39
二维转一维，在合并转二维

with 一维表 as (SELECT 序号,联系人,备注,'前腱子' AS 属性,[前腱子] AS [数 ...

谢谢，提供的方法，这样使用需要调用SQL的写法，这个对我来说还没整明白，怎么调用，是否有VBA方式实现

zpy2

marsgao 发表于 2020-8-30 19:41
谢谢，提供的方法，这样使用需要调用SQL的写法，这个对我来说还没整明白，怎么调用，是否有VBA方式实现

上传数据，点击 分享报表的链接。
vba有点困难，界面是html标签。。。