求大佬帮助~如何把横向数据统一成竖向数据

一只猫！

如图，如何快速把几万条的数据转为为只保留4列，快速匹配呢

蓝桥玄霜

转换的例子：

shiruiqiang

Sub test()
Dim arr, brr(1 To 1000, 1 To 4)
Dim x, y, k
arr = [a1].CurrentRegion

For y = 2 To 4
  For x = 4 To UBound(arr)
    If arr(x, y) <> "" Then
    k = k + 1
    brr(k, 1) = arr(x, 1)
    brr(k, 2) = arr(x, y)
    brr(k, 3) = arr(2, y)
    brr(k, 4) = arr(3, y)
    End If
  Next
Next

[h2].Resize(k, 4) = brr
End Sub

洋务德雷

使用Excel中的多重合并计算和分列就可以完美解决，何必用vba

1、先用公式把上面两行转换成一行标题
javascript:;


2、多重合并计算（alt+d+p）
javascript:;

3、双击右下角合计单元格，得出结果，然后分列即可
javascript:;