请教Excel公式实现Split构造内存数组

loquat

使用Excel公式实现以下功能

1. Function mySplit(str$, splitChar$, Optional aType As String = "横向")
   
2. 'TODO 多个分隔符
   
3. 'TODO 连续分隔符视为单个处理
   
4. 'TODO 固定长度分列
   
5. If aType = "横向" Then
   
6.     mySplit = VBA.Split(str, splitChar)
   
7. ElseIf aType = "竖向" Then
   
8.     mySplit = Application.Transpose(VBA.Split(str, splitChar))
   
9. Else
   
10.     mySplit = "类型限制：横向/竖向"
    
11. End If
    
12. End Function

复制代码

随心_201320085

分列功能！！

loquat

随心_201320085 发表于 2016-1-10 11:23
分列功能！！

分列只能是唯一选择吗？公式的话就灵活得多想知道这个的数组解法

随心_201320085

loquat 发表于 2016-1-10 11:44
分列只能是唯一选择吗？公式的话就灵活得多想知道这个的数组解法

函数的话没有这个功能的函数。。

kane027

1. =TRIM(MID(SUBSTITUTE($A$2,"/",REPT(" ",99)),COLUMN(A1)*99-98,99))

复制代码

1. =TRIM(MID(SUBSTITUTE($A$2,"/",REPT(" ",99)),ROW(A1)*99-98,99))

复制代码

kane027

Excel公式Split.rar (11.26 KB, 下载次数: 78)

2016-1-10 12:25 上传

点击文件名下载附件

loquat

kane027 发表于 2016-1-10 12:25

拜服，谢谢

loquat

kane027 发表于 2016-1-10 12:25

还有个疑问，本公式用在数据有效性里面怎么使用？
不是内存数组，似乎没法在数据有效性中引用

kane027

loquat 发表于 2016-1-10 12:53
还有个疑问，本公式用在数据有效性里面怎么使用？
不是内存数组，似乎没法在数据有效性中引用

不明白你的意思，按你附件中的={"A";"B";"C";"D"}的写法，你是想要指写ABCD到数据有效性中去吗？
如是，那直接在数据有效性-序列中写入A,B,C,D不就可以实现了？
否则，我也不明白你的意思了，，，

gefa06

易失性函数ROW()，COLUMN()的原因