文字操作 Split関数で文字列を分割
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
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 |