用数组和循环连接最后一个数字不需要逗号

laoau138

用数组和循环连接最后一个数字不需要逗号

baksy

附件

laoau138

baksy 发表于 2016-9-8 20:54
附件

用VBA不要函数

laoau138

方法一


Public Sub test()
Dim arr, brr
Dim i&, j&

arr = Range("A1").CurrentRegion
ReDim brr(1 To UBound(arr), 1 To 1) As String

For i = 1 To UBound(arr)
    For j = 1 To 6
        brr(i, 1) = brr(i, 1) & "," & arr(i, j)
    Next j
    brr(i, 1) = Mid(brr(i, 1), 2)
Next i

Range("H1").Resize(UBound(arr)) = brr

End Sub






方法二


Sub test()
    Dim arr, i%, str$, d As New Collection
    arr = Range("A1").CurrentRegion
    For i = 1 To UBound(arr)
        str = Join(Application.Index(arr, i, 0), ",")
        d.Add str
     Next
     Columns("H").Clear
     For i = 1 To d.Count
        Cells(i, "H") = d.Item(i)
     Next
End Sub

d346836673

献丑了！

1. Sub 链接()
   
2. Rng = Cells.CurrentRegion
   
3. ReDim ar(1 To UBound(Rng), 1 To 1)
   
4. For i = 1 To UBound(Rng)
   
5.     For j = 1 To 6
   
6.         ar(i, 1) = ar(i, 1) & Rng(i, j) & ","
   
7.     Next
   
8.     ar(i, 1) = Left(ar(i, 1), Len(ar(i, 1)) - 1)
   
9. Next
   
10. Range("h1").Resize(UBound(ar), 1) = ar
    
11. End Sub

复制代码

laoau138

d346836673 发表于 2016-9-11 20:49
献丑了！

做这条

http://www.excelpx.com/thread-424362-1-1.html