请教一个简单又头痛的VBA问题

willingmo · 发表于 2010-10-24 19:04

我想把A2、C2、E2、G2单元格的值之间再用“+”串联起来，如果是空的就忽略！但是这个单元格之中有可能是一个空的，或是两个空的，也有可能是三个空的。例如在单元格I11中就是错的！
请问这里的高手们我这个问题可以实现吗？谢谢。。。。。。

LangQueS · 发表于 2010-10-24 19:17

可以使用自定义函数

建议楼主压缩上传Excel问题附件并加以说明或做出模拟结果，以便大家了解和解答。(编辑已发贴即可补充上传附件)

如何发表新话题和上传附件:
http://club.excelhome.net/thread-45649-1-1.html

发帖的技巧:
http://club.excelhome.net/thread-176339-1-1.html

LangQueS · 发表于 2010-10-24 19:23

Book4.rar (6.21 KB, 下载次数: 107)

yvhgydn · 发表于 2010-10-24 19:32

Function lj(rng As Range) As String
ReDim arr(Application.CountA(rng) - 1) As Variant
For Each m In rng
      If m <> "" Then
         arr(i) = m.Value
         i = i + 1
      End If
Next m
lj = Join(arr, "+")
End Function
自定义函数

十四口 · 发表于 2010-10-24 22:59

学学学习了，谢谢

willingmo · 发表于 2010-11-2 12:33

问题终于解决,谢谢......

woainisway · 发表于 2012-3-10 09:35

LangQueS 发表于 2010-10-24 19:23

版主，好像这个不行，能否解释下，谢谢！

LangQueS · 发表于 2012-3-10 17:14

woainisway 发表于 2012-3-10 09:35
版主，好像这个不行，能否解释下，谢谢！

说的是3楼附件么？这是自定义函数。在文件模块中加入如下代码后，直接使用公示即可

Function MyCon(rng As Range) As String
Dim str As String
For Each c In rng
If c.Value = "" Then
str = str
Else '否则
str = str & "+" & c.Value
End If
Next
MyCon = Right(str, Len(str) - 1)
End Function

复制代码

这个自定义函数是合并区域文本，例如3楼附件中使用的公式=mycon(A1:I1)……

longevity · 发表于 2014-7-10 10:52

很实用，支持一下！！！

		自动登录	找回密码
密码			免费注册

[求助] 请教一个简单又头痛的VBA问题