数组转换

江林 · 发表于 2024-5-1 09:24

想把数组转换成下面的样式，

zhangcheng6688 · 发表于 2024-5-1 11:09

学习一下数组，打扰了
Sub test()
arr = [a2].CurrentRegion
ReDim brr(1 To 1000, 1 To 4)
For i = 2 To UBound(arr)
For j = 3 To UBound(arr, 2)
   m = m + 1
   brr(m, 1) = arr(i, 1)
   brr(m, 2) = arr(i, 2)
   brr(m, 3) = arr(1, 2)
   brr(m, 4) = arr(i, j)
Next
Next
Range("h3:k" & Rows.Count).ClearContents
[h3].Resize(m, 4) = brr
End Sub

祝洪忠- · 发表于 2024-5-1 11:22

在即将更新的5月版本中，使用CROUPBY函数比较适合。

zpy2 · 发表于 2024-5-2 15:25

//select * from Sheet1 limit 20;
cli_one_dim~Sheet1~2;
select * from Sheet1union;

grf1973 · 发表于 2024-5-4 10:20

...........................

江林 · 发表于 2024-5-5 17:24

grf1973 发表于 2024-5-4 10:20
...........................

的确是我想要的效果，非常感谢！

lizhipei78 · 发表于 2024-8-3 18:57

今铭昔 · 发表于 2024-8-3 19:52

lizhipei78 · 发表于 2024-8-4 10:29

yangqianming · 发表于 2024-8-6 10:39

grf1973 发表于 2024-5-4 10:20
...........................

再转回去怎么转？

		自动登录	找回密码
密码			免费注册

[求助] 数组转换

评分

评分