DicPut As Variant

VBA是Office自带的，无需再安装。若使用WPS，需安装VBA插件；以下是实现代码。Office或WPS电脑端用户须已安装VBA且必须启用宏才能使用。 工作表TEXTJOIN函数实现代码： Function TEXTJOIN(ByVal 分隔符, ByVal 忽略空值1不忽略0, ParamArray 字符串()) '每个参数都允许传入（1个字符串|N个单元格区域|1-60维数组），根据第二参数来输出，结果允许是1个字符串或一维数组或二维数组。（暂不支持输出≥3维的数组，请原谅我太懒） On Error Resume Next Dim 一维下标 As Long, 一维上标 As Long, 二维下标 As Long, 二维上标 As Long, di As Long, 计数 As Long Dim 忽略字符串空值 As Variant, 不忽略字符串空值 As Variant, 忽略or不忽略 As Boolean, 非数组 As Boolean Dim 子串 As Variant, 子串1 As Variant, DicPut() ' As Variant If...