竖直排列数据转为横置请教。

清晨散步

我录制了一个视频，请问要如何才能实现我要的功能，并自动向下填充，谢谢大家。
录像1.rar (282.7 KB, 下载次数: 9)

2021-8-29 13:58 上传

点击文件名下载附件

车型.rar (17.79 KB, 下载次数: 7)

2021-8-29 13:59 上传

点击文件名下载附件

良良

B1=INDEX($A:$A,4*ROW(A1)+COLUMN(A1)-4)&""，右拉、下拉。

清晨散步

良良 发表于 2021-8-29 14:58
B1=INDEX($A:$A,4*ROW(A1)+COLUMN(A1)-4)&""，右拉、下拉。

感谢回复，我按你的方法试了一下，好像哪里有问题，

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   With Worksheets("sheet3")
   
5.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.     arr = .Range("a1:a" & r)
   
7.     ReDim brr(1 To UBound(arr), 1 To 3)
   
8.     For i = 1 To UBound(arr) Step 4
   
9.       brr(i, 1) = arr(i, 1)
   
10.       brr(i, 2) = arr(i + 1, 1)
    
11.       brr(i, 3) = arr(i + 2, 1)
    
12.     Next
    
13.     .Range("c1").Resize(UBound(brr), UBound(brr, 2)) = brr
    
14.   End With
    
15. End Sub
    

复制代码

chxw68

详见附件。

rarnma

用了power query，最好用2016以上版本的office，13和10版本请下载插件后使用。

清晨散步

chxw68 发表于 2021-8-29 15:16
详见附件。

感谢分享，老大，这个能不能录个视频教程给我，我好学着做？

清晨散步

rarnma 发表于 2021-8-29 15:53
用了power query，最好用2016以上版本的office，13和10版本请下载插件后使用。

感谢分享，论坛里真是高手如云，请问大佬这个power query好学吗？

rarnma

清晨散步 发表于 2021-8-29 16:06
感谢分享，论坛里真是高手如云，请问大佬这个power query好学吗？

我也是刚刚开始自学，也就几个月吧，总体来说日常应用不难，有点像excel，就是记住函数记住语法，然后就可以自己写一些公式代码了。日常工作用图形界面就能解决不少。反正有条件的话还是建议学一下，付不多，收获很大的东西。

chxw68

清晨散步 发表于 2021-8-29 16:00
感谢分享，老大，这个能不能录个视频教程给我，我好学着做？

按alt+F11打开VBE窗口，照着我的代码敲进去就行了。