高手请进——EXCEL表格格式转换

solextrade

学一个A2
=IFERROR(LOOKUP(ROW(A1)-1,COUNTIF(OFFSET(源数据!B$2:M$2,,,ROW($1:$4)),">0"),源数据!A$3:A$5)&MOD(SMALL(IF(源数据!B$3:M$5,ROW($3:$5)/1%%+COLUMN(B:M)/1%+源数据!B$2:M$2),ROW(A1)),100),"")

624134745

如果楼主数据量比较大的话还是建议PQ吧。数据-从表格-选择第1列-逆透视其他列-合并品名和代码这2列-数量那1列筛选剔除0值。

q1579398897

PowerQuery逆透视其他列的方法数据源更新后直接刷新

fly0608

主要还是看数据量，这种公式能弄出来的都是大神，PQ要好理解的多

我走我流

静看流年RSSQ 发表于 2019-12-24 10:56
适合用PQ  或者VBA 。  一次操作倒是利用基础操作PQ出来了，要刷新就BUG了。肯定是不对的、
可惜都不会。 ...

静老师，试试PQ的逆透视其他列

静看流年RSSQ

我走我流 发表于 2019-12-24 11:54
静老师，试试PQ的逆透视其他列

嗯，谢我流老师指导。。我也是这样操作的，可能删除那里直接删除了。在筛选了，导致了后续数据不能按照原有的进行刷新。看了楼上的 也是基本操作法，增加了一步排序。

micch

1.part2.rar (200.93 KB, 下载次数: 4)

2019-12-24 12:40 上传

点击文件名下载附件

1.part1.rar (2 MB, 下载次数: 8)

2019-12-24 12:40 上传

点击文件名下载附件

录一个透视表操作

liyanghu

凑个暴力解法

cqyclj

q1579398897 发表于 2019-12-24 11:34
PowerQuery逆透视其他列的方法数据源更新后直接刷新

知道了 POWER QUERY 需要安装插件

wbperfect

1. Sub px()
   
2.     Dim i As Long
   
3.     Dim m As Long
   
4.     Dim n As Long
   
5.     Dim o As Long
   
6.     i = Sheets("源数据").[a1048576].End(xlUp).Row
   
7.     For m = 3 To i
   
8.         For n = 2 To 13
   
9.             o = Sheets("结果").[a1048576].End(xlUp).Row
   
10.             If Sheets("源数据").Cells(m, n) <> 0 Then
    
11.                
    
12.                 Sheets("结果").Cells(o + 1, 1) = Sheets("源数据").Cells(m, 1) & Sheets("源数据").Cells(2, n)
    
13.                 Sheets("结果").Cells(o + 1, 2) = Sheets("源数据").Cells(m, n)
    
14.                
    
15.             End If
    
16.             
    
17.         Next n
    
18.     Next m
    
19.    
    
20. End Sub

复制代码