[已解决]将一行多列数据（列数不固定）拼接起来

wenwen000424

将一行多列数据（列数不固定）拼接起来 求助.rar (1.86 KB, 下载次数: 30)

2013-1-7 14:49 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

zhoucs00

2013-1-7 15:00

1. Function zhoucs00(rng As Range)
   
2. Dim rngg As Range, str As String
   
3. For Each rngg In rng
   
4.    If Len(rngg.Value) > 0 Then
   
5.       str = str & rngg.Value & ","
   
6.    End If
   
7. Next rngg
   
8. zhoucs00 = Left(str, Len(str) - 1)
   
9. End Function
   

复制代码

自定义函数，用法如图

跳转到最佳答案楼层

zhoucs00

1. Function zhoucs00(rng As Range)
   
2. Dim rngg As Range, str As String
   
3. For Each rngg In rng
   
4.    If Len(rngg.Value) > 0 Then
   
5.       str = str & rngg.Value & ","
   
6.    End If
   
7. Next rngg
   
8. zhoucs00 = Left(str, Len(str) - 1)
   
9. End Function
   

复制代码

自定义函数，用法如图

hwc2ycy

可以考虑用join,不过得是一维数组。

wenwen000424

zhoucs00 发表于 2013-1-7 15:00
自定义函数，用法如图

谢谢如此快的帮助！

zhoucs00

wenwen000424 发表于 2013-1-7 15:26
谢谢如此快的帮助！

亲，那就赏个最佳吧。。

zhoucs00

wenwen000424 发表于 2013-1-7 15:26
谢谢如此快的帮助！

又得了个最佳，谢谢哈。嘿嘿

wenwen000424

如何将a160105003056,a170106009001,a170106009002,a170106009003,a170106009004,a170106009005,a170106009006,a170106009007,a170106009008,a170106009009
中的a用查找替换代码去掉而不变为科学记数法？