Loading... 用VBA编一个自定义函数进行处理。 1、打开Excel文件,按“Alt F11”打开VBA编辑窗口,然后在左侧空白处点击右键,“插入”,“模块”。  2、右侧空白处粘贴下面的代码: ```vb Function HeBing(rng1 As Range, s As String, rng2 As Range, f As String) As String Dim Arr1, Arr2 Dim r As Long r = rng1.End(xlDown).Row - rng1.Row + 1 Arr1 = rng1.Resize(r, 1): Arr2 = rng2.Resize(r, 1) Dim i As Long For i = 1 To UBound(Arr1) If Arr1(i, 1) = s Then If HeBing = "" Then HeBing = Arr2(i, 1) Else HeBing = HeBing & f & Arr2(i, 1) End If Next End Function ``` 3、用法: > =HEBING(在哪里查找,查找什么,返回对应的什么数据,在单元格内用什么隔开) > > eg:=hebing(A:A,C1,B:B,",") 最后修改:2019 年 05 月 09 日 © 允许规范转载 打赏 赞赏作者 支付宝微信 赞 0 如果觉得我的文章对你有用,请随意赞赏
5 条评论
文章不错支持一下吧
文章不错支持一下,非常喜欢
文章不错支持一下吧
写什么都不重要,因为写什么都有人看。贵在坚持,谢谢分享
写的很好,支持一下