VBA/CSVなどの区切り文字がある文字列を配列に格納する Split関数の編集

#navi(../)
* CSVなどの区切り文字がある文字列を配列に格納する Split関数 [#ga767db5]
カンマ区切り、タブ区切り、パイプ区切りなど特定の区切り文字が含まれる文字列を~
区切り文字で分割し配列に格納するSplit関数についての記事になります。~
Split関数を使ったVBAサンプルコードと実行例を以下に記します。

#contents
#htmlinsert(office_ads_top.html)

* 関連サイト [#pc89be97]
-[[Microsoft Learn: Split 関数(Visual Basic for Applications)>https://learn.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/split-function]]

* 動作確認環境 [#d8059349]
- Windows 10 22H2
- Microsoft® Excel® for Microsoft 365 MSO (バージョン 2310 ビルド 16.0.16924.20054) 32 ビット

* Split関数の仕様 [#xc28ef5b]
[[Split 関数>https://learn.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/split-function]]ページの抜粋になります。

* VBAサンプルコードと実行結果 [#k53732cb]
以下にSplit関数を使ったVBAサンプルコードと実行結果を記します。

** VBA サンプルコード [#da7c9627]
 Option Explicit
 
 Sub SplitSample()
   
   
   Dim commaStr As String: commaStr = "Windows,macOS,Ubuntu,Debian,Arch Linux,FreeBSD,OpenBSD"
   Dim tabStr As String: tabStr = "Apples" & vbTab & "oranges" & vbTab & "bananas" & vbTab & "grapes" & vbTab & "pineapples"
   Dim pipeStr As String: pipeStr = "Toyota|Suzuki|Daihatsu|Honda|Nissan"
   
   
   Dim retArray() As String
   Dim msg As String: msg = ""
   Dim i As Long
   
   'Split comma string.
   retArray = Split(commaStr, ",")
   For i = 1 To UBound(retArray)
     msg = msg & i & ": " & retArray(i - 1) & vbCrLf
   Next i
   MsgBox msg, vbOKOnly, "Split(commaStr, "","")"
   
   'Split tab string.
   msg = ""
   retArray = Split(tabStr, vbTab)
   For i = 1 To UBound(retArray)
     msg = msg & i & ": " & retArray(i - 1) & vbCrLf
   Next i
   MsgBox msg, vbOKOnly, "Split(tabStr, vbTab)"
   
   'Split pipe string.
   msg = ""
   retArray = Split(pipeStr, "|")
   For i = 1 To UBound(retArray)
     msg = msg & i & ": " & retArray(i - 1) & vbCrLf
   Next i
   MsgBox msg, vbOKOnly, "Split(pipeStr, ""|"")"
   
 End Sub

** 実行結果 [#i1131e2d]
上記、VBAサンプルコードの実行結果です。

*** Split comma string. [#z26cf068]
#ref(01.png)
#br

***Split tab string. [#fd0f358f]
#ref(02.png)
#br

***Split pipe string. [#o949f4fe]
#ref(03.png)
#br

以上、Split関数のVBAサンプルコードでした。

#htmlinsert(office_ads_btm.html)

タイムスタンプを変更しない