[已解决]合并N个列数据

hrcyuyq

合并N个列数据

最佳答案

月排行榜 / 总排行榜

grf1973

2017-10-9 11:14

1. Sub tt()
   
2.     arr = [c6:j17]
   
3.     For j = 1 To UBound(arr, 2)
   
4.         x = ""
   
5.         For i = UBound(arr) To 1 Step -1
   
6.             x = x & arr(i, j)
   
7.         Next
   
8.         arr(1, j) = x
   
9.     Next
   
10.     [c5].Resize(1, UBound(arr, 2)) = Application.Index(arr, 1)
    
11. End Sub

复制代码

跳转到最佳答案楼层

qqyyh

why？

tgydslr

为什么又卖问题哦

zjdh

他是来玩的！！

hrcyuyq

tgydslr 发表于 2017-10-5 19:05
为什么又卖问题哦

不会玩搞反了

hrcyuyq

第二天。。。

grf1973

1. Sub tt()
   
2.     arr = [c6:j17]
   
3.     For j = 1 To UBound(arr, 2)
   
4.         x = ""
   
5.         For i = UBound(arr) To 1 Step -1
   
6.             x = x & arr(i, j)
   
7.         Next
   
8.         arr(1, j) = x
   
9.     Next
   
10.     [c5].Resize(1, UBound(arr, 2)) = Application.Index(arr, 1)
    
11. End Sub

复制代码