使用 Excel 365
我有一个小的 VBA 用户定义函数，可以根据逗号作为分隔符将字符串解析为子字符串。我正在尝试用工作表公式替换 UDF 以制作无宏的工作簿。
UDF 是：
Public Function parsee(s As String)
Dim i As Long, arr, a
arr = Split(s, ",")
ReDim output(1 To 1, 1 To UBound(arr) + 1)
i = 1
For Each a In arr
output(1, i) = a
i = i + 1
Next a
parsee = output
End Function
在 Excel 365 中，这以类似于以下方式溢出TextToColumns：
基于此之前的帖子：
我一直在使用：
=TRANSPOSE(FILTERXML("<t><s>"&SUBSTITUTE(A1,",","</s><s>")&"</s></t>","//s"))
除非输入字符串包含&字符（如A2中的字符串） ，否则此方法的工作方式相同。在这种情况下FILTERXML()返回#VALUE！
是否有一个简单的解决方法可以像任何其他角色一样FILTERXML()接受& ？
替换
&为&