VBA/CSVなどの区切り文字がある文字列を配列に格納する Split関数
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
開始行:
#navi(../)
* CSVなどの区切り文字がある文字列を配列に格納する Split関...
カンマ区切り、タブ区切り、パイプ区切りなど特定の区切り文...
区切り文字で分割し配列に格納するSplit関数についての記事に...
Split関数を使ったVBAサンプルコードと実行例を以下に記しま...
#contents
#htmlinsert(office_ads_top.html)
* 関連サイト [#pc89be97]
-[[Microsoft Learn: Split 関数(Visual Basic for Applicati...
* 動作確認環境 [#d8059349]
- Windows 10 22H2
- Microsoft® Excel® for Microsoft 365 MSO (バージョン 231...
* Split関数の仕様 [#xc28ef5b]
[[Split 関数>https://learn.microsoft.com/ja-jp/office/vba...
-構文
Split(expression, [ delimiter, [ limit, [ compare ]]])
|~パーツ|~説明|
|expression|必ず指定します。&br;サブ文字列と区切り記号が...
|delimiter|オプション。&br;サブ文字列の制限を識別するため...
|limit|オプション。&br;返される部分文字列の数。-1 は、す...
|compare|省略可能。&br;サブ文字列を評価するときに使用する...
#br
-設定~
compare 引数には、次の値を指定できます。
|~定数|~値|~説明|
|vbUseCompareOption|-1|Option Compare ステートメントの設...
|vbBinaryCompare|0|バイナリ比較を実行します。|
|vbTextCompare|1|テキスト比較を実行します。|
|vbDatabaseCompare|2|Microsoft Access のみ。&br;データベ...
* VBAサンプルコードと実行結果 [#k53732cb]
以下にSplit関数を使ったVBAサンプルコードと実行結果を記し...
** VBA サンプルコード [#da7c9627]
Option Explicit
Sub SplitSample()
Dim commaStr As String: commaStr = "Windows,macOS,Ubun...
Dim tabStr As String: tabStr = "Apples" & vbTab & "ora...
Dim pipeStr As String: pipeStr = "Toyota|Suzuki|Daihat...
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)
終了行:
#navi(../)
* CSVなどの区切り文字がある文字列を配列に格納する Split関...
カンマ区切り、タブ区切り、パイプ区切りなど特定の区切り文...
区切り文字で分割し配列に格納するSplit関数についての記事に...
Split関数を使ったVBAサンプルコードと実行例を以下に記しま...
#contents
#htmlinsert(office_ads_top.html)
* 関連サイト [#pc89be97]
-[[Microsoft Learn: Split 関数(Visual Basic for Applicati...
* 動作確認環境 [#d8059349]
- Windows 10 22H2
- Microsoft® Excel® for Microsoft 365 MSO (バージョン 231...
* Split関数の仕様 [#xc28ef5b]
[[Split 関数>https://learn.microsoft.com/ja-jp/office/vba...
-構文
Split(expression, [ delimiter, [ limit, [ compare ]]])
|~パーツ|~説明|
|expression|必ず指定します。&br;サブ文字列と区切り記号が...
|delimiter|オプション。&br;サブ文字列の制限を識別するため...
|limit|オプション。&br;返される部分文字列の数。-1 は、す...
|compare|省略可能。&br;サブ文字列を評価するときに使用する...
#br
-設定~
compare 引数には、次の値を指定できます。
|~定数|~値|~説明|
|vbUseCompareOption|-1|Option Compare ステートメントの設...
|vbBinaryCompare|0|バイナリ比較を実行します。|
|vbTextCompare|1|テキスト比較を実行します。|
|vbDatabaseCompare|2|Microsoft Access のみ。&br;データベ...
* VBAサンプルコードと実行結果 [#k53732cb]
以下にSplit関数を使ったVBAサンプルコードと実行結果を記し...
** VBA サンプルコード [#da7c9627]
Option Explicit
Sub SplitSample()
Dim commaStr As String: commaStr = "Windows,macOS,Ubun...
Dim tabStr As String: tabStr = "Apples" & vbTab & "ora...
Dim pipeStr As String: pipeStr = "Toyota|Suzuki|Daihat...
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)
ページ名:
![[PukiWiki]](image/logo.png "[PukiWiki]"){kind=logo}
