EXCEL VBA 文字列操作で利用するVBA関数一覧(関数説明)
EXCEL VBA 文字列操作で利用するVBA関数一覧(関数説明)
●はじめに
EXCEL VBAで特に文字列を操作する関数の一覧を作成しました。一覧には関数名・使用例を実行した結果も記載しておりますので、EXCEL VBAプログラムで文字列を操作する時に参照して下さい。
●書式の説明 (文字列を操作する関数一覧)
機能 | 関数 | 使用例(簡易) | 結果 | 使用例説明(結果内容) |
---|---|---|---|---|
文字列の文字数を返す。 | Len(文字列) | Len(”ABCDE”) | 5 | 文字列数を返しましました。 |
文字列の右から文字数分の文字列を取り出します。 | Rigth(文字列,文字数) | Rigth("あいうえお",3) | うえお | 文字列の右側から3文字分取り出しました。 |
文字列の左から文字数分の文字列を取り出します。 | Left(文字列,文字数) | Left("あいうえお",3) | あいう | 文字列の左側から3文字分取り出しました。 |
指定した文字列位置から指定した文字数分文字列を返します。 | Mid(文字列,開始位置,文字数) | Mid("ABCDEFG",3,4) | CDEF | 文字列の3番目から4文字分を取り出します。 |
アルファベットの大文字を小文字に変換します。 | LCase(文字列) | LCase("ABCDEF") LCase("AbCdEf") | abcdef abcdef | 大文字から小文字に変換しました。 |
アルファベットの小文字を大文字に変換します。 | UCase(文字列) | UCase("abcdef") UCase("ABCdef") | ABCDEF ABCDEF | 小文字から大文字に変換しました。 |
文字列の先頭文字列(半角・全角)のスペースを削除する。 | LTrim(文字列) | LTrim(" Sunday") | Sunday | 先頭のスペース削除されました。 |
文字列の末尾文字列の(半角・全角)スペースを削除する。 | RTrim(文字列) | RTrim(”Monday ”) | Monday | 末尾のスペース削除されました。 |
文字列の先頭・末尾文字列の(半角・全角)スペースを削除する。 | Trim(文字列) | Trim(" Tuesday ") | Tuesday | 先頭と末尾のスペース削除されました。 |
指定した文字列に対して設定した数値に応じで半角スペースを入れいます。 | Space(数値) | ”UP” & Space(5) & "Down" | Up Down | 指定した半角スペースが追加されました。 |
指定した文字列を繰り返し数の数値分を繰り返します。 | String(繰り返し数,文字列) | String(3,"A") | AAA | ”A”の文字列を繰り返し数(3)で繰り返します。 |
指定した文字列の文字コードを返します。 | Asc(文字列) | Asc("X") | 88 | Xの文字コードを返します。 |
EXCEL VBA Len関数のサンプル
●プログラム説明 (Len関数)
下記のサンプルプログラムは、Len関数を使ったサンプルプログラムです。指定セルの文字列に対して文字数を返します。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
' '******** AKIRA55.COM ******* https://akira55.com/vba_function_moji/ ' Sub Len文字列() Dim I, L As Long For I = 2 To 8 L = Len(Range("A" & I)) Range("B" & I) = L Next I End Sub ' |
●実行前~実行後 ※プログラムの実行後、B列にA列の文字列数が表示されました。
(画面クリックして拡大)
(画面クリックして拡大)
EXCEL VBA Rigth関数のサンプル
●プログラム説明 (Rigth関数)
下記のサンプルプログラムは、Rigth関数を使ったサンプルプログラムです。A列の文字列から右から3文字数分、B列に表示します。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
' '******** AKIRA55.COM ******* https://akira55.com/vba_function_moji/ ' Sub Right文字列() Dim I As Long Dim L As String For I = 2 To 8 L = Right(Range("A" & I), 3) Range("B" & I) = L Next I End Sub ' |
●実行前~実行後 ※プログラム実行後、A列の文字列から右から3文字数分、B列に表示しました。
(画面クリックして拡大)
(画面クリックして拡大)
EXCEL VBA Left関数のサンプル
●プログラム説明 (Left関数)
下記のサンプルプログラムは、A列の文字列の左から文字数分の文字列を取り出します。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
' '******** AKIRA55.COM ******* https://akira55.com/vba_function_moji/ ' Sub Left文字列() Dim I As Long Dim L As String For I = 2 To 13 L = Left(Range("A" & I), 3) Range("B" & I) = L Next I End Sub ' |
●実行前~実行後 ※プログラム実行後、A列の文字列から左から3文字数分、B列に表示しました。
(画面クリックして拡大)
(画面クリックして拡大)
EXCEL VBA Mid関数のサンプル
●プログラム説明 (Mid関数)
下記のサンプルプログラムは、指定した文字列位置から指定した文字数分文字列を返します。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
' '******** AKIRA55.COM ******* https://akira55.com/vba_function_moji/ ' Sub Mid文字列() Dim I As Long Dim L As String For I = 2 To 6 L = Mid(Range("A" & I), 1, 2) '1文字目から2文字 Range("B" & I) = L L = Mid(Range("A" & I), 3, 2) '3文字目から2文字 Range("C" & I) = L Next I End Sub ' |
●実行前~実行後 ※プログラム実行後、B列には、A列の文字列の1文字目から2文字分を表示、C列には、A列の文字列の3文字目から2文字分を表示されました。
(画面クリックして拡大)
(画面クリックして拡大)
EXCEL VBA LCase関数のサンプル
●プログラム説明 (LCase関数)
下記のサンプルプログラムは、指定した文字列のアルファベットを大文字から小文字に変換します。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
' '******** AKIRA55.COM ******* https://akira55.com/vba_function_moji/ ' Sub LCase文字列() Dim I As Long Dim L As String For I = 2 To 13 L = LCase(Range("A" & I)) '大文字⇒小文字に変換 Range("B" & I) = L Next I End Sub ' |
●実行前~実行後 ※プログラム実行後、A列の文字列をB列に大文字から小文字に変換して表示されました。
(画面クリックして拡大)
(画面クリックして拡大)
EXCEL VBA UCase関数のサンプル
●プログラム説明 (UCase関数)
下記のサンプルプログラムは、指定した文字列のアルファベットを小文字から大文字に変換します。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
' '******** AKIRA55.COM ******* https://akira55.com/vba_function_moji/ ' Sub UCase文字列() Dim I As Long Dim L As String For I = 2 To 13 L = UCase(Range("A" & I)) '小文字⇒大文字に変換 Range("B" & I) = L Next I End Sub ' |
●実行前~実行後 ※プログラム実行後、A列の文字列をB列に小文字から大文字に変換して表示されました。
(画面クリックして拡大)
(画面クリックして拡大)
EXCEL VBA LTrim関数のサンプル
●プログラム説明 LTrim(関数)
下記のサンプルプログラムは、指定した文字列から文字列の先頭文字列(半角・全角)のスペースを削除する。(文字列の左側空白削除)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
' '******** AKIRA55.COM ******* https://akira55.com/vba_function_moji/ ' Sub LTrim文字列() Dim I As Long Dim L As String For I = 2 To 5 L = LTrim(Range("A" & I)) '先頭文字列(半角・全角)のスペースを削除 Range("B" & I) = L Next I End Sub ' |
●実行前~実行後 ※プログラム実行後、A列の文字列の先頭スペースを削除して、B列に表示しました。
(画面クリックして拡大)
(画面クリックして拡大)
EXCEL VBA RTrim(関数のサンプル)
●プログラム説明 RTrim関数
下記のサンプルプログラムは、指定した文字列から文字列の末尾文字列の(半角・全角)スペースを削除する。(文字列の右側空白削除)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
' '******** AKIRA55.COM ******* https://akira55.com/vba_function_moji/ ' Sub RTrim文字列() Dim I As Long Dim L As String For I = 2 To 5 L = RTrim(Range("A" & I)) '末尾の文字列(半角・全角)のスペースを削除 Range("B" & I) = L Next I End Sub ' |
●実行前~実行後 ※プログラム実行後、A列の文字列の末尾スペースを削除して、B列に表示しました。
(画面クリックして拡大)※セルの書式設定で右揃えにしています(A列・B列)
(画面クリックして拡大)※セルの書式設定で右揃えにしています(A列・B列)
EXCEL VBA Trim(関数のサンプル)
●プログラム説明 Trim((関数)
下記のサンプルプログラムは、指定した文字列の先頭と末尾の文字列から(半角・全角)スペースを削除する。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
' '******** AKIRA55.COM ******* https://akira55.com/vba_function_moji/ ' Sub Trim文字列() Dim I As Long Dim L As String For I = 2 To 6 L = Trim(Range("A" & I)) '左右のスペースを削除 Range("B" & I) = L Next I End Sub ' |
●実行前~実行後 ※プログラム実行後、A列の文字列の先頭と末尾スペースを削除して、B列に表示しました。
(画面クリックして拡大)
(画面クリックして拡大)
EXCEL VBA Space(関数のサンプル)
●プログラム説明 Space(関数)
下記のサンプルプログラムは、指定した文字列に対して設定した数値に応じで半角スペースを挿入します。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
' '******** AKIRA55.COM ******* https://akira55.com/vba_function_moji/ ' Sub Space数値() Dim I As Long Dim L As String For I = 2 To 8 L = Space(8 - I) & "Left" & Space(I * 2) & "Rigth" 'スペースを数値分空ける Range("B" & I) = L Next I End Sub ' |
●実行前~実行後 ※プログラム実行後、プログラムで指定した文字列に対して設定した数値のスペースを挿入します。
(画面クリックして拡大)
(画面クリックして拡大)
EXCEL VBA String(関数のサンプル)
●プログラム説明 String(関数)
下記のサンプルプログラムは、指定した文字列を繰り返し数の数値分を繰り返します。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
' '******** AKIRA55.COM ******* https://akira55.com/vba_function_moji/ ' Sub String数値() Dim I As Long For I = 2 To 7 Range("C" & I) = String(Range("A" & I), Range("B" & I)) Next I End Sub ' |
●実行前~実行後 ※プログラム実行後、B列の文字列に対してA列分の繰り返し数をC列に文字列を表示します。
(画面クリックして拡大)
(画面クリックして拡大)
EXCEL VBA Asc(関数のサンプル)
●プログラム説明 Asc(関数)
下記のサンプルプログラムは、指定した文字列の文字コードを返します。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
' '******** AKIRA55.COM ******* https://akira55.com/vba_function_moji/ ' Sub ASC文字列() Dim I As Long For I = 2 To 10 Range("B" & I) = Asc(Range("A" & I)) '文字コードを返します。 Next I End Sub ' |
●実行前~実行後 ※サンプルプログラム実行後は、A列の文字列に対して、B列に文字コードを表示します。
(画面クリックして拡大)
(画面クリックして拡大)
最後まで、ご覧いただきまして誠に有難うございました。
また、VBAに関するテクニックや便利な手法などをこのサイトに掲載していきますので、定期的に参照していただけると幸いです。
また、VBAに関するテクニックや便利な手法などをこのサイトに掲載していきますので、定期的に参照していただけると幸いです。