[已解决]VBA用两种方法按列连接起来

laoau138

VBA用两种方法按列连接起来

最佳答案

月排行榜 / 总排行榜

dsmch

2017-2-22 16:43

方法一用循环连接，略

1. Sub Macro1()
   
2. Dim arr, brr, w, i&, j%
   
3. arr = Range("a1").CurrentRegion
   
4. ReDim brr(1 To UBound(arr, 2), 1 To 1)
   
5. For j = 1 To UBound(arr, 2)
   
6.     ReDim w(1 To UBound(arr))
   
7.     For i = 1 To UBound(arr)
   
8.         w(i) = arr(i, j)
   
9.     Next
   
10.     brr(j, 1) = Join(w, "-")
    
11. Next
    
12. Range("e1").Resize(UBound(brr)) = brr
    
13. End Sub

复制代码

跳转到最佳答案楼层

dsmch

方法一用循环连接，略

1. Sub Macro1()
   
2. Dim arr, brr, w, i&, j%
   
3. arr = Range("a1").CurrentRegion
   
4. ReDim brr(1 To UBound(arr, 2), 1 To 1)
   
5. For j = 1 To UBound(arr, 2)
   
6.     ReDim w(1 To UBound(arr))
   
7.     For i = 1 To UBound(arr)
   
8.         w(i) = arr(i, j)
   
9.     Next
   
10.     brr(j, 1) = Join(w, "-")
    
11. Next
    
12. Range("e1").Resize(UBound(brr)) = brr
    
13. End Sub

复制代码

laoau138

dsmch 发表于 2017-2-22 16:43
方法一用循环连接，略

第一种循环也不会

另外，第二种join函数，如何结果index一起用

dsmch

Sub Macro1()
Dim arr, brr, i&, j%
arr = Range("a1").CurrentRegion
ReDim brr(1 To UBound(arr, 2), 1 To 1)
For j = 1 To UBound(arr, 2)
    p = ""
    For i = 1 To UBound(arr)
        p = p & "-" & arr(i, j)
    Next
    brr(j, 1) = Mid(p, 2)
Next
Range("e1").Resize(UBound(brr)) = brr
End Sub

Sub Macro2()
Dim arr, brr, j%
arr = Range("a1").CurrentRegion
ReDim brr(1 To UBound(arr, 2), 1 To 1)
For j = 1 To UBound(arr, 2)
    brr(j, 1) = Join(Application.Transpose(Application.Index(arr, 0, j)), "-")
Next
Range("e1").Resize(UBound(brr)) = brr
End Sub

laoau138

dsmch 发表于 2017-2-22 17:23
Sub Macro1()
Dim arr, brr, i&, j%
arr = Range("a1").CurrentRegion

确实高手啊，VBA武功练得好扎实

爱疯

建议：http://www.excelpx.com/thread-305534-1-1.html

laoau138

dsmch 发表于 2017-2-22 17:23
Sub Macro1()
Dim arr, brr, i&, j%
arr = Range("a1").CurrentRegion

这一句为什么要Transpose

Join(Application.Transpose(Application.Index(arr, 0, j)), "-")

laoau138

爱疯 发表于 2017-2-22 17:32
建议：http://www.excelpx.com/thread-305534-1-1.html

好啊  下一次再讲

laoau138

laoau138 发表于 2017-2-22 17:53
这一句为什么要Transpose

Join(Application.Transpose(Application.Index(arr, 0, j)), "-")

为什么要转置一维数组          而且 只转置一次

什么时候要转两次

dsmch

Join函数
      

描述

返回一个字符串，该字符串是通过连接某个数组中的多个子字符串而创建的。

语法

Join(sourcearray[, delimiter])

Join函数语法有如下命名参数：

部分 描述
sourcearray 必需的。包含被连接子字符串的一维数组。
delimiter 可选的。在返回字符串中用于分隔子字符串的字符。如果忽略该项，则使用空格(" ")来分隔子字符串。如果delimiter是零长度字符串("")，则列表中的所有项目都连接在一起，中间没有分隔符。