求帮忙：用VB实现将多行多列数据转化成一行

youliangjuan

具体数据见附近，谢谢

张伟_Struggle

1. Sub trans()
   
2. Dim i As Integer
   
3. Dim rng As Range
   
4. i = 2
   
5. Do While Cells(i, "b") <> ""
   
6.     Range("b" & i).Resize(1, 4).Select
   
7.     Set rng = Range("xfd1").End(xlToLeft).Offset(0, 1)
   
8.     Selection.Copy rng
   
9.     i = i + 1
   
10. Loop
    
11. 
    
12. End Sub
    

复制代码

看一下可行不？

youliangjuan

可以了，非常感谢哦。