今回はReplace関数を使用して空白文字を削除します。Replace関数は特定の文字を検索して別の文字に変換する関数となります。この機能を利用して空白文字を削除する方法について紹介します。
構文
記述方法は以下の通りとなります。
Replace(”[文字列]”,”[変換対象文字]”,”[変換後文字]”)
[説明]:
任意の文字列に含まれる特定の文字を指定した文字に置き換えます。
[文字列] | 任意の文字列を記述します。 ※「”」(ダブルクォーテーション)で囲みます。 |
[変換対象文字] | [文字列]から変換する文字を記述します。 |
[変換後文字] | [変換対象文字]で指定した文字をを変換する文字を記述します。 |
[記述例]:
Replace("E x c e l V B A ", " ", "")
使い方
使い方について具体的に説明します。
[プログラミング例]:
Sub サンプル()
Dim 文字 As String
文字 = "E x c e l V B A"
MsgBox 文字
MsgBox Replace(文字, " ", "")
End Sub
「最初に文字列”E x c e l V B A”をMsgBoxで表示し、次に文字列”E x c e l V B A”に含まれる空白を削除した文字列をMsgBoxで表示して下さい。」との意味になります。
※上記の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。
[実行例]:
①<実行>ボタンをクリックします。
②最初のMsgBoxで「E x c e l V B A」が表示されます。(※空白を含んだ文字列が表示されます。)
③2回目のMsgBoxで「ExcelVBA」が表示されます。(※空白が削除された文字列が表示されます。)
[サンプル]:
上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。
文字列に含まれる空白文字を削除する方法についての説明は以上です。
プログラミング(サンプル)
プログラミング事例を紹介します。
おわりに
今回はReplace関数を使用した文字列内に含まれる空白文字を削除する方法について説明しました。文字列内の文字変換処理は、プログラミングをする上で多々使用します。是非覚えておいて下さい。