用数组和循环连接逗号

laoau138

用数组和循环连接逗号

baksy

附件

laoau138

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

结果也是错误的，而且用VBA不是用函数

amzxfgh9632

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

回答了还招一顿打，真的无语了

小小水皮1

也不知怎么就被我给弄出来了，数组多写锻炼脑子。不过以下代码可以用就是了，请看下吧
Sub ds90()
Dim arr, k%
k = Cells(Cells.Rows.Count, "f").End(xlUp).Row
ReDim arr(1 To k)
    For i = 1 To k
   arr = Range("a" & i, "f" & i)
   ar = Application.Transpose(Application.Transpose(arr))
   Cells(i, "i") = Join(ar, "，")
Next
End Sub

laoau138

小小水皮1 发表于 2016-9-9 14:42
也不知怎么就被我给弄出来了，数组多写锻炼脑子。不过以下代码可以用就是了，请看下吧
Sub ds90()
Dim ar ...

分两种情况：

第一种:最后一个数字没有逗号       1,2,3,4,5,6


第二种:最后一个数字有逗号         1,2,3,4,5,6,


你写的是：第一种


第二种你还没有写

小小水皮1

那就在最后&上一个逗号吧,可以吗

Sub ds901()
Dim arr, k%
k = Cells(Cells.Rows.Count, "f").End(xlUp).Row
ReDim arr(1 To k)
    For i = 1 To k
   arr = Range("a" & i, "f" & i)
   ar = Application.Transpose(Application.Transpose(arr))
   Cells(i, "i") = Join(ar, "，") & ","
Next
End Sub

laoau138

小小水皮1 发表于 2016-9-9 17:38
那就在最后&上一个逗号吧,可以吗

Sub ds901()

原来如此容易，我怎么会做不来

laoau138

小小水皮1 发表于 2016-9-9 14:42
也不知怎么就被我给弄出来了，数组多写锻炼脑子。不过以下代码可以用就是了，请看下吧
Sub ds90()
Dim ar ...

美女再做一条，好吧


用VBA重新筛选条件保存结果

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

小小水皮1

laoau138 发表于 2016-9-9 17:43
原来如此容易，我怎么会做不来

哈哈哈 我也正在学习当中