数据转置

己庚无咎

如何把一行横置的几组数据同时竖列起来？

牛掰

写个vba就解决了

己庚无咎

牛掰 发表于 2023-1-17 14:32
写个vba就解决了

麻烦您帮忙在附件里操作下，不会也

牛掰

己庚无咎 发表于 2023-1-17 14:43
麻烦您帮忙在附件里操作下，不会也

你有多少行数据？

己庚无咎

牛掰 发表于 2023-1-17 15:29
你有多少行数据？

至少有60多行吧，能运用公式吗？

牛掰

己庚无咎 发表于 2023-1-17 15:42
至少有60多行吧，能运用公式吗？

公式实现不了

39924168

己庚无咎 发表于 2023-1-17 14:43
麻烦您帮忙在附件里操作下，不会也

你把那行数据竖起来了，原来那列的数据直接被覆盖了？
还是你要把所有行列都转置？

gwjkkkkk

Sub TEST()
    Dim ar, br, i&, j&
    ar = Range([B4], Cells(Rows.Count, "P").End(3))
    ReDim br(1 To -Int(-UBound(ar, 2) / 4), 1 To UBound(ar) * 4 - 1)
   
    For i = 1 To UBound(ar)
       For j = 1 To -Int(-UBound(ar, 2) / 4)
           br(j, (i - 1) * 4 + 1) = ar(i, (j - 1) * 4 + 1)
           br(j, (i - 1) * 4 + 2) = ar(i, (j - 1) * 4 + 2)
           br(j, (i - 1) * 4 + 3) = ar(i, (j - 1) * 4 + 3)
       Next j
    Next i
    [T4].Resize(UBound(br), UBound(br, 2)) = br
   
    Beep
End Sub

gwjkkkkk

请楼主参考附件。。。