求教各位老师，怎么将2维表转换成1维表？

AbleZeng

请教各位老师，手中有一份部门的18年销售指标，是按照2维数据表格式排列的，想转化为1维数据表，便于数据分析，转换方法不限，效率越高越好。
在网上看到多重透视表，不会操作，文件在最下面，希望各位老师赐教。

转换为下图：

求教：2维数据转换为1维数据.rar (20.56 KB, 下载次数: 90)

2018-8-13 15:17 上传

点击文件名下载附件

梦残留影

power query 逆透视

zpy2

http://e.anyoupin.cn/pdo/eh/a06/a06e/import_commit_a.php
可以试试这个

wangweihebtu

1. Private Sub CommandButton1_Click()
   
2. Dim i%, arr
   
3. arr = Application.InputBox("选择区域", Type:=8)
   
4. t1 = UBound(arr)
   
5. t2 = UBound(arr, 2)
   
6. ReDim brr(1 To t1 * t2, 1 To 6)
   
7. For i = 2 To t1
   
8.     m = 4
   
9.     For k = i To i + t2 - 5
   
10.         n = n + 1
    
11.         m = m + 1
    
12.         brr(n, 1) = arr(i, 1)
    
13.         brr(n, 2) = arr(i, 2)
    
14.         brr(n, 3) = arr(i, 3)
    
15.         brr(n, 4) = arr(i, 4)
    
16.         brr(n, 5) = arr(1, m)
    
17.         brr(n, 6) = arr(i, m)
    
18.     Next k
    
19. Next i
    
20. tishi = Application.InputBox("选择存放起始单元格", Type:=8).Address(0, 0)
    
21. Range(tishi).Offset(1, 0).Resize(UBound(brr), 6) = brr
    
22. End Sub
    

复制代码

wangweihebtu

1. Private Sub CommandButton1_Click()
   
2. Dim i%, arr
   
3. arr = Application.InputBox("选择区域", Type:=8)
   
4. t1 = UBound(arr)
   
5. t2 = UBound(arr, 2)
   
6. ReDim brr(1 To t1 * t2, 1 To 6)
   
7. For i = 2 To t1
   
8.     m = 4
   
9.     For k = i To i + t2 - 5
   
10.         n = n + 1
    
11.         m = m + 1
    
12.         brr(n, 1) = arr(i, 1)
    
13.         brr(n, 2) = arr(i, 2)
    
14.         brr(n, 3) = arr(i, 3)
    
15.         brr(n, 4) = arr(i, 4)
    
16.         brr(n, 5) = arr(1, m)
    
17.         brr(n, 6) = arr(i, m)
    
18.     Next k
    
19. Next i
    
20. tishi = Application.InputBox("选择存放起始单元格", Type:=8).Address(0, 0)
    
21. Range(tishi).Offset(1, 0).Resize(UBound(brr), 6) = brr
    
22. End Sub
    

复制代码

cabcyvr

H18=IFERROR(IF(COLUMN(A1)<5,INDEX($A$2:$P$13,ROW(A12)/12,COLUMN(A1)),IF(AND(COLUMN(A1)=5,G18<>""),INDEX($E$1:$P$1,MOD(ROW(A12),12)+1),INDEX($E$2:$P$13,ROW(A12)/12,MOD(ROW(A12),12)+1))),"")  

向右复制6列，之后向下复制直到见到空白

AbleZeng

梦残留影 发表于 2018-8-13 15:31
power query 逆透视

能给一下具体的操作步骤吗？

AbleZeng

wangweihebtu 发表于 2018-8-13 23:45

十分感谢，这两天出差，才回复请见谅。

AbleZeng

zpy2 发表于 2018-8-13 17:20
http://e.anyoupin.cn/pdo/eh/a06/a06e/import_commit_a.php
可以试试这个

没有看明白。请详解

梦残留影

AbleZeng 发表于 2018-8-15 16:11
能给一下具体的操作步骤吗？