作者：绿色风
分类：
时间：2022-08-17
浏览：130
楼主
syz105729913 |
Q：如何按条件合并文本字符串，详见附件？
A：附件中有一个合并文本字符串自定义函数，可以方便地按给定条件合并文本字符串，供大家参考。
 合并字符.rar
- rg 查找区域
- ag 对比区域，即想通过一参数合并的文本字符串
- x 查找值
- y 连接过个数之间的符号
- Public Function AA(rg As Range, ag As Range, x As Range, y As String) '定义rg为查找区域，ag为对比区域，x为查找值,y为连接各个数之间的符号
- Dim i As Integer, arr() '定义i，arr()
- ReDim Preserve arr(rg.Cells.Count) '储存循环返回的每个arr()结果
- For i = 1 To rg.Cells.Count '在rg范围内循环
- If Cells(i + rg.Row - 1, rg.Column) = x Then '如果查找区域等于查找值，则返回对比区域
- arr(i) = Cells(i + rg.Row - 1, ag.Column)
- End If
- Next i
- AA = Replace(Application.Trim(Replace(Join(arr(), ","), ",", " ")), " ", y) '用","把生成的数组连接起来在把多余的","去掉
- End Function
|
2楼
apolloh |
谢谢分享
 |
3楼
无心为爱 |
好东东,学习中,嘿嘿 |
4楼
Aimin001 |
函数，代码可是高档！ |
5楼
aotuman2 |
我一直纳闷，都trim了，怎么还有" "。 |
6楼
benniao1229 |
这些代码写哪里呢？ |
7楼
gouweicao78 |
内置函数+辅助列解决方案，请参考：
怎样将满足条件的记录合并到一个字符串？ http://www.exceltip.net/thread-4659-1-1.html
|
8楼
ytjwl77 |
VBA接触中 |
9楼
7786910 |
谢谢分享，O(∩_∩)O~ |
10楼
zgwei050 |
学习.........
 |
11楼
歧路走天涯 |
小白不懂 |
12楼
wangxiasy |
代码不会写，可以用，谢谢啦！ |
13楼
kevin_yjl |
留着以后学 |
14楼
yaoihih |
来看看，谢谢分享 |
15楼
fanglilian |
虽然不是很懂，但是也静心看了一遍。 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一