一行三列，变成一列多行数据

七横六竖先生

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很简单！

阿洛舒华

OFFSET

墨武怡安

用PQ处理也不错

沙拉丁

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

迟道

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

科程

附件试一试？
工作簿1.rar (8.68 KB, 下载次数: 14)

2021-10-28 10:47 上传

点击文件名下载附件
工作簿1.rar

行走中

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

谢策

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

格菱传奇哥哥

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

乌日鲁克

OFFSET