Split関数を使用したプログラミング例を紹介します。
例題
氏名欄(A列)に氏名が記述されています。<実行>ボタンをクリックすると、苗字を苗字列(B列)に名前を名前欄(C列)に分割して表示します。
[実行前]:
[実行後]:
プログラミング
プログラミングは以下の通りとなります。
[記述例]:
Sub サンプル()
'↓処理①
Dim 配列 As Variant
Dim 行 As Long
'↓処理②
For 行 = 2 To 7
配列 = Split(Range("A" & 行), " ")
Range("B" & 行) = 配列(0)
Range("C" & 行) = 配列(1)
Next
End Sub
処理①:変数定義
変数を定義します。
処理②:氏名を苗字と名前に分割して表示
For~Next文を使用した2行目~7行目までのループ処理を行います。ループ処理の中ではSplit関数を使用して氏名を苗字と名前に分けて変数:配列にセットします。また、セットした変数:配列の中身を苗字欄(B列)と名前欄(C列)にセットします。
との内容になります。
※上記の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。また、ボタンにプログラムを割り当てるにはこちらを参考にして下さい。
ダウンロード
上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。