文字操作 Split関数で文字列を分割

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][文字操作 Split関数で文字列を分割]
Option Explicit


Sub LetterSplit()
'****************************
'Split関数で文字列を分割
'****************************
'引数が空白でもエラーは起りません
'引数内に区切り文字(検索文字)がない場合でもエラー無し

Dim moji As String
Dim FoundMoji As String
Dim Msg As String
Dim j As Variant
Dim i As Long

moji = "あ a v  GG"
FoundMoji = " "

'区切り文字(検索文字)がスペースの場合は引数不要
j = Split(moji)
'j = Split(moji, FoundMoji)
    For i = LBound(j) To UBound(j)
    Msg = Msg & i + 1 & vbTab & j(i) & vbCr
    Next i
MsgBox Msg

End Sub






Production Japan Import Application. Since 1998