office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

access将文本拆分转化为一个数组

2020-02-24 08:00:00
tmtony8
原创
182

有网友问到如何把文本转换成变量数组。

有下面文字“This website is office-cn”。我们希望把这段文字拆分单词后放入数组中。

拆分我们可以使用split函数。空白用space(1)即可


Sub TheSplitFunction()
  
  Dim vaWords As Variant
  Dim i As Long
  
  vaWords = Split("This website is office-cn.", Space(1))
  
  For i = LBound(vaWords) To UBound(vaWords)
    Debug.Print vaWords(i)
  Next i
  
End Sub




vawords变量将是包含四个元素的变量数组,这个元素分别是This、website、is、office-cn。

分隔符是一个空格,并未包含在元素中。


    分享