求excel语句：如何将同一列中相同的字符串罗列到一行中，并用顿号隔开。

打开VBA编辑窗口，插入模块余碧，粘贴以下自定义函数代码：

Public 漏散Function CHr(Rng As Range) As 返毁氏String

Dim A, T

For Each A In Rng

If Left(A, 3) <> T Then

CHr = CHr & Left(A, 3) & "、"

T = Left(A, 3)

End If

Next

End Function

在E6单元格里使用自定义函数，用法：＝chr(A1:A12),其中“A1:A12”可以为任意连续的区域，详见附图。

对，就用替换功能!!!

诶，可惜你没有悬赏，所以我只能给你“渔”，而不能直接给你“鱼”咯，嘿嘿！！！

Word高级替换技巧

1、在Word里面，要替换的内容包括有回车换行段落文本或图片时，以常规方法在“替换为”框中是无法输入段落文本的，更不要说图片了，所以常规方法是是无法实现的。

具体方法是：先按Ctrl+C把段落文本或图片复制到剪贴板中，然后按Ctrl+H打开替换对话框，在“查找内容”框中输入将被替换的文字，接着在“替换为”框中输入“^c”（注意：c必须是小写的半角字符），单击替换即可。“^c”的含义是让Word

XP以剪贴板中的内容替换“查找内容”框中的内容，因此“^c”还可替换包括回车符在内的大段文本。

2、要把文章中的所有的“第一章”、“第二章”……等类似后面都加上一个顿号，如果按常规方法：查找所有的“章”字，把它替换成“章、”不就行了吗？于是打开文档，进行了一次全面替换，可是，结果并不如我所料，虽然所有的“第一章”、“第二章”都变成了“第一章、”、“第二章、”，可是全文中其他出现的“章”也变成了“章、”。这可怎么办呢？好几十页呀，总不能真要我一个一个地去改吧？

具体方法是：打开“查找和替换”对话框，盯仔选择“历则森替换”标签，在“查找内容”框中输入“第章”，然后把光标移到两个字之间，单击“高级”->“特殊字符”->“任意字符”，这时查找的内容就是“第^?章”。接下来，把光标移到“替换为”框中，单击“特殊字符”->“要查找的文字”，就会插入“^&”，在其后面加上一个顿号（意思就是把查找的内容替换成原来的查找内容加上一个肢亩顿号），这时替换的内容就是“^&

、”，按下“全部替换”按钮即可，真是太方便了！

！！！最后给你一个小提示，比如一般电子邮件地址都是以com结尾的，那么把com

替换成

com，不就可以了吗？！嘿嘿……

---