七横六竖先生 发表于 2021-12-6 03:44:29

Sub fuz()
Dim i%
Dim a%
Dim x%
Dim y%
y = 1
x = Range("A1").CurrentRegion.Rows.Count
For i = 1 To x
For a = 2 To 4
      Cells(i, a).Copy Cells(y, 8)
      y = y + 1
Next a
Next i
End Sub
用vba很简单！

阿洛舒华 发表于 2021-12-6 21:07:50

OFFSET

墨武怡安 发表于 2021-12-13 07:35:38

用PQ处理也不错

沙拉丁 发表于 2021-12-17 11:47:59

=OFFSET($A$1,(ROW(A1)-1)/3,MOD(ROW(A1)-1,3))&""
自己试着弄了一下

迟道 发表于 2021-12-20 09:48:31

pq之前搞过，但是电脑的问题，每次都显示文件有问题，自动关闭

科程 发表于 2021-12-26 02:37:03

附件试一试？

行走中 发表于 2021-12-28 09:30:57

谢谢，后面自己也想了一个

谢策 发表于 2022-1-6 20:57:45

测试了一下，透视表的多重数据合并也可以达到要求

格菱传奇哥哥 发表于 2022-1-14 00:51:58

试试：
=OFFSET($B$2,MOD(ROW(A1)-1,COUNTA(B:B)),INT(ROW(A1)-1)/COUNTA(B:B))

乌日鲁克 发表于 2022-1-15 00:39:16

OFFSET
页: 1 [2] 3
查看完整版本: 一行三列，变成一列多行数据