Public Function Merge2(rng As Range, splitter As String) As String

Public Function Merge(rng As Range, splitter As String) As String
'Merge = ThisWorkbook.Name
Dim Str As String
Str = ""
Dim n As Range
For Each n In rng
   Str = Str & n.Value & splitter
Next n
Str = Left(Str, Len(Str) - 1)
Merge = Str

End Function


Public Function Merge2(rng As Range, splitter As String) As String
'Merge = ThisWorkbook.Name
Dim Str As String
Str = ""
Dim n As Range
For Each n In rng
   If n.Value <> "" Then
   Str = Str & n.Value & splitter
   End If
Next n

'If Right(Str, 1) = splitter Then
  Str = Left(Str, Len(Str) - 1)
'End If

Merge2 = Str

End Function


阅读更多
个人分类: vb
想对作者说点什么? 我来说一句

一段用VB生成GUID的代码

2011年06月29日 2KB 下载

GB2BIG5.DCU

2006年02月23日 206KB 下载

delphi 简单工厂模式

2011年06月20日 196KB 下载

DES 加密 解密 源码

2011年12月07日 13KB 下载

在 Vb.Net 中读写 Ini 文件

2006年02月23日 7KB 下载

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭