求解释SPLIT用法

05050818

蓝桥玄霜 发表于 2010-12-2 13:58
第1.35例 Split 函数
一、题目：
　　要求编写一段代码，运用 Split  函数返回一个一维数组。

大神，如果需要分列的是一个用“-”连接起来的数据怎么分列呢？看了您的讲解，感觉懂了，可是实操的时候，又不知道出了什么问题。
Set d = CreateObject("Scripting.Dictionary")

mya = sht.Range("b6:f" & sht.Range("f65536").End(xlUp).Row)

For i = 1 To UBound(mya)

    If d.exists(mya(i, 1) & "-" & mya(i, 2) & "-" & mya(i, 3)) Then
   
       d(mya(i, 1) & "-" & mya(i, 2) & "-" & mya(i, 3)) = ""
      
    Else

    d.Add mya(i, 1) & "-" & mya(i, 2) & "-" & mya(i, 3), i
   
    End If
   
    Next
   
   dk = d.Keys
   
   myb = Split(dk, "-", 3)(1) ‘这里过不去’
   
   she.Range("d7").Resize(UBound(myb), 1) = Application.Transpose(myb)
   

蓝桥玄霜

dk = d.Keys
   
   myb = Split(dk, "-", 3)(1) ‘这里过不去’
改为：
dk = d.Keys    'dk是一个一维数组，需要一个一个来
Redim myb(Ubound(dk))
For i=0 to ubound(dk)   
   myb(i) = Split(dk(i), "-")(1)
Next

chengshanming

不错，学习了！

宝贝万岁

蓝桥玄霜 发表于 2010-12-2 17:12
可以把代码改为如下：
Sub test_split()
Dim a As String, b

一看就懂，好解释，split还有这用法，学习了，留给记号~

K呆呆

受教，感谢版主！

zfq2100

看了很受教。。。。。。。。。

zhangjinsong

学会了Split的用法了，多谢各位了！！！！！！！！！！！！！！！！

huangling888

蓝桥玄霜 发表于 2016-10-20 09:58
dk = d.Keys
   
   myb = Split(dk, "-", 3)(1) ‘这里过不去’

蓝主，这里有句redim myb(Ubound(dk))  我的理解是定义数组大小，不知道理解对不对。如果是这个意思的话，那么假如不定义有什么后果，谢谢指教。

蓝桥玄霜

ReDim是重新定义变量，你的理解是对的；
如果不定义，则不能使用数组myb
不能在下面的循环中与关键字配对赋值。

山羊比尔

这个帖子把Split函数的使用讲的特别透彻。