如何实现 选取几个单元格内容合并到一起，并用英文逗号隔开

heathzo

求租怎么实现 选取几个单元格内容（单元格是分散的）合并到一起，并用英文逗号隔开。

linyh1742595842

上传附件，模拟效果。

heathzo

linyh1742595842 发表于 2015-4-28 10:35
上传附件，模拟效果。

已上传~请查看，就是我有一堆联系人的手机，我现在要选择其中一些，把他们的手机号码合并到一起，用英文逗号隔开

linyh1742595842

heathzo 发表于 2015-4-28 15:35
已上传~请查看，就是我有一堆联系人的手机，我现在要选择其中一些，把他们的手机号码合并到一起，用英文逗 ...

ACE=C5&","&C7&","&C9
ABE=C5&","&C6&","&C9

heathzo

linyh1742595842 发表于 2015-4-28 15:50
ACE=C5&","&C7&","&C9
ABE=C5&","&C6&","&C9

这个我知道，问题是我的数据量很多！！是想要通过VBA 或者函数实现。

doitbest

Public Sub abc()
Dim str, x
For Each x In Selection
    If IsNumeric(x) Then
        str = str & IIf(str = "", "", ",") & x
    End If
Next
MsgBox str
End Sub

heathzo

doitbest 发表于 2015-4-28 15:56
Public Sub abc()
Dim str, x
For Each x In Selection

你好，这个可以了，但是如何把结果输出到A1单元格？？

doitbest

Public Sub abc()
Dim str, x
For Each x In Selection
    If IsNumeric(x) Then
        str = str & IIf(str = "", "", ",") & x
    End If
Next
[a1]=str
End Sub

燕雀安知

百无聊赖，写个另类串接，写后，无聊更甚，原本不想传，想想，还是凑个热闹吧，或许有人认为这挺有意思。

1.容错码。即便Selection非RangeSelection也不出错哦；
2.试着按Ctrl键重复选择某个单元格区域（重复单击某个单元格亦可）。即便选择了重复的单元格，也不生成多余的串接哦。

结论：端滴是无聊之人百无聊赖时写的狗屁代码啊，^_^。

kongl931030

doitbest 发表于 2015-4-28 16:18
Public Sub abc()
Dim str, x
For Each x In Selection

把结果输出在选中某一行数据的最后一个单元格怎么写？