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

转载 2016年05月31日 15:38:18

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


相关文章推荐

AS3中public internal private protected的区别

protected Java與AS3中的一點不同。AS3中的protected修飾類型,於java中略有不同。 Java中使用protected修飾的类、类属变量及方法,包内的任何类,及包外的那些...

机器学习案例解析第一章笔记(ggplot,ggsave,merge,gsub,as.Date,read.*)

read.*read.*默认会把字符串转换成factor类型. 我们需要使用stringAsFactors=FALSE 来防止转换. ex:ufo ...

oracle笔记整理7——with as、case when、merge into、分析函数over()

1) with as a) WITH AS短语,也叫做子查询部分(subquery factoring),可以定义一个SQL片断,该SQL片断会被整个SQL语句所用到。b) 当查询中多次用到某一部...

AS3 中,Function.apply、call中第一个参数的作用;与什么时候用;

大家在使用Function.apply或是call时,是否发现,第一个参数不知道怎么用,赋值了也没反应; 没反应的情况,是因为你的这个Function是普通的类成员函数; 看apply,call的...

Your Server as a Function

概要建立一个庞大的具有伸缩性的服务软件,这里的系统展示了一个高度的并发性和环境的可变性,这对大多数有经验的编程人员来讲都是一个巨大的挑战。高效,安全和健壮性是最终的目标,它们和传统的模块化,重用性和灵...

Programs as Data: Function Pointers(函数指针)

原文链接:http://www.cprogramming.com/tutorial/function-pointers.html A function pointer is a variable t...

as3.0 Function.apply()与Function.call()方法简介

Function:函数是可在 ActionScript 中调用的基本代码单位。 ActionScript 中用户定义的函数和内置函数都由 Function 对象来表示,该对象是 Function 类的...

实习日志(2):AS语言面向对象的特性

学习了几个马士兵Flex视频,了解了AS语言面向对象的特性。但是由于Myeclipse和flex B的集合出现了一些问题,无法对ActionScript工程进行调试。 部分错误信息如下: !SUB...
  • lissdy
  • lissdy
  • 2012年10月10日 23:40
  • 728
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Public Function Merge2(rng As Range, splitter As String) As String
举报原因:
原因补充:

(最多只允许输入30个字)