怎么把表格分解成数据表

朱志强

就是把(原表)的数据,按每个项目转换成3列的数据表(效果)

隔扣五人

PQ菜单操作

朱志强

隔扣五人 发表于 2023-7-7 10:30
PQ菜单操作

WPS....好像没这个功能,不过感觉很强大

高个子

1. =IF(B17="","",OFFSET(A$2,MOD(ROW(A1)-1,13),))

复制代码

1. =OFFSET(B$1,,INT(ROW(A13)/13)-1,)&""

复制代码

1. =IF(B17="","",OFFSET(B$2,MOD(ROW(A1)-1,13),INT(ROW(A13)/13)-1))&""

复制代码

三条公式全都写完就可以看到结果了

隔扣五人

函数就不懂了

1. Sub t()
   
2.     Dim ar, br, i, j, k, s
   
3.     ar = Range("a1:f" & Cells(Rows.Count, 1).End(3).Row)
   
4.     ReDim br(1 To UBound(ar) * 6, 1 To 3)
   
5.     For j = 2 To UBound(ar, 2)
   
6.         For i = 2 To UBound(ar)
   
7.             k = k + 1
   
8.             br(k, 1) = ar(i, 1)
   
9.             br(k, 2) = ar(1, j)
   
10.             br(k, 3) = ar(i, j)
    
11.         Next
    
12.     Next
    
13.     Range("h1:j1") = Array("机种", "项目", "数量")
    
14.     Range("h2").Resize(k, 3) = br
    
15. End Sub
    

复制代码

逐渐陌生

tchh666

1. =IFERROR(INDEX(EVALUATE("{"""&TEXTJOIN(""";""",,TRANSPOSE($A$2:$A$14&""","""&$B$1:$F$1&""","""&$B$2:$F$14))&"""}"),ROW(A1),COLUMN(A1)),"")

复制代码

数组三键结束，右拉下拉。。。

WPS 可用

renzidong

=HSTACK(TEXTBEFORE(TOCOL(A2:A14&"/"&B1:F1,,TRUE),"/"),TEXTAFTER(TOCOL(A2:A14&"/"&B1:F1,,TRUE),"/"),TOCOL(B2:F14,,TRUE))

ericxzhou