'单元格与单元格用逗号分开合并后如果遇到空数值的单元格就会产生多余的逗号去除方法,在VBA模块里复制下面代码，就可引用model自定义函数去除
'去除字符串中多余的逗号，例如“= model1（”，1，，2，，，3，，，，，”）”变为“1，2，3”
Function model1(text)
Do
text = Replace(text, \
If InStr(text, \
Loop
If Left(text, 1) = \
text = Right(text, Len(text) - 1)
End If
If Right(text, 1) = \
text = Left(text, Len(text) - 1)
End If
model1 = text
End Function
因篇幅问题不能全部显示，请点此查看更多更全内容