自定义函数
答案:1 悬赏:80 手机版
解决时间 2021-12-29 06:47
- 提问者网友：低吟詩仙的傷
- 2021-12-28 23:33
你好，能不能把“excel表格数据汇总合并”解决方法中“=contxt(IF(Sheet1!$A$2:$A$22=Sheet2!A2,CHAr(10)&Sheet1!$B$2:$B$22,""))”的源代码发给我一下，我打开你的附件总是报错，提示VB模块丢失
最佳答案
- 五星知识达人网友：想偏头吻你
- 2021-12-29 00:54
Option Explicit
Public Function ConTxt(ParamArray args() As Variant) As Variant '联结文本
Dim tmptext As Variant, i As Variant, cellv As Variant
Dim cell As Range
tmptext = ""
For i = 0 To UBound(args)
If Not IsMissing(args(i)) Then
Select Case TypeName(args(i))
Case "Range"
For Each cell In args(i)
tmptext = tmptext & cell
Next cell
Case "Variant()"
For Each cellv In args(i)
tmptext = tmptext & cellv
Next cellv
Case Else
tmptext = tmptext & args(i)
End Select
End If
Next i
ConTxt = tmptext
End Function
Alt+F11，插入一个模块，把代码粘贴进去就可以
Public Function ConTxt(ParamArray args() As Variant) As Variant '联结文本
Dim tmptext As Variant, i As Variant, cellv As Variant
Dim cell As Range
tmptext = ""
For i = 0 To UBound(args)
If Not IsMissing(args(i)) Then
Select Case TypeName(args(i))
Case "Range"
For Each cell In args(i)
tmptext = tmptext & cell
Next cell
Case "Variant()"
For Each cellv In args(i)
tmptext = tmptext & cellv
Next cellv
Case Else
tmptext = tmptext & args(i)
End Select
End If
Next i
ConTxt = tmptext
End Function
Alt+F11，插入一个模块，把代码粘贴进去就可以
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯