Left/Right関数

にメンテナンス済み

Left 関数と Right 関数は、文字列の先頭または末尾から指定した文字数を抽出する VBA の関数です。プレフィックスの確認、拡張子の取得、電話番号の市外局番抽出など、様々な場面で活用できます。

プレイグラウンドで試す

抽出する文字数を変更すると、Left/Right のどちらからどれだけ取得されるかが色付きで表示されます。両者の振る舞いの違いを見比べてみましょう。

Left / Right 関数を試す

文字数を変えて、Left と Right でどの範囲が抽出されるかを見比べられます。

部分取得
長さ
Left(string, length)

文字列の先頭から指定文字数を取り出します。

文字位置 (1 始まり) と処理範囲
取得範囲
1H
2e
3l
4l
5o
6,
7·
8V
9B
10A
11·
12W
13o
14r
15l
16d
17!
結果String
Hello
生成された VBA コード
Dim s As String
s = "Hello, VBA World!"
Debug.Print Left(s, 5)

基本構文

Left 関数

Left(文字列, 文字数)
引数型必須説明
文字列String○対象の文字列
文字数Long○先頭から抽出する文字数

Right 関数

Right(文字列, 文字数)
引数型必須説明
文字列String○対象の文字列
文字数Long○末尾から抽出する文字数

戻り値

抽出された部分文字列（String 型）

チェック

Left関数は先頭から、Right関数は末尾から指定した文字数を取得します。どちらも、指定した文字数が文字列全体の長さを超える場合は、文字列全体を返します。

Left 関数の基本的な使い方

先頭からの抽出

left_basic.bas
Sub LeftBasicExample()
    Dim text As String
    Dim result As String

    text = "Hello World"

    ' 先頭から5文字を抽出
    result = Left(text, 5)
    Debug.Print result  ' Hello

    ' 先頭から1文字を抽出
    result = Left(text, 1)
    Debug.Print result  ' H

    ' 先頭から8文字を抽出
    result = Left(text, 8)
    Debug.Print result  ' Hello Wo
End Sub

プレフィックスの確認

left_prefix_check.bas
Function HasPrefix(text As String, prefix As String) As Boolean
    If Len(text) >= Len(prefix) Then
        HasPrefix = (Left(text, Len(prefix)) = prefix)
    Else
        HasPrefix = False
    End If
End Function

Sub TestHasPrefix()
    Debug.Print HasPrefix("https://example.com", "https://")  ' True
    Debug.Print HasPrefix("http://example.com", "https://")   ' False
    Debug.Print HasPrefix("ftp://server.com", "ftp://")       ' True
End Sub

年月の抽出

left_date_extract.bas
Sub ExtractYearMonth()
    Dim dateText As String
    Dim yearMonth As String

    dateText = "2025-10-20"

    ' 先頭から7文字（yyyy-mm）を抽出
    yearMonth = Left(dateText, 7)
    Debug.Print "年月: " & yearMonth  ' 2025-10

    ' 年だけを抽出
    Dim year As String
    year = Left(dateText, 4)
    Debug.Print "年: " & year  ' 2025
End Sub

Right 関数の基本的な使い方

末尾からの抽出

right_basic.bas
Sub RightBasicExample()
    Dim text As String
    Dim result As String

    text = "Hello World"

    ' 末尾から5文字を抽出
    result = Right(text, 5)
    Debug.Print result  ' World

    ' 末尾から1文字を抽出
    result = Right(text, 1)
    Debug.Print result  ' d

    ' 末尾から8文字を抽出
    result = Right(text, 8)
    Debug.Print result  ' lo World
End Sub

ファイル拡張子の取得

right_extension.bas
Function GetExtension(fileName As String) As String
    Dim dotPos As Long

    ' 末尾から最初の.を検索
    dotPos = InStrRev(fileName, ".")

    If dotPos > 0 Then
        ' .以降を取得
        GetExtension = Right(fileName, Len(fileName) - dotPos)
    Else
        GetExtension = ""
    End If
End Function

Sub TestGetExtension()
    Debug.Print GetExtension("report.xlsx")       ' xlsx
    Debug.Print GetExtension("data.csv")          ' csv
    Debug.Print GetExtension("file.backup.txt")   ' txt
    Debug.Print GetExtension("README")            ' （空文字列）
End Sub

電話番号の末尾 4 桁

right_phone_last4.bas
Function GetPhoneLastFour(phoneNumber As String) As String
    ' ハイフンやスペースを除去
    phoneNumber = Replace(phoneNumber, "-", "")
    phoneNumber = Replace(phoneNumber, " ", "")

    ' 末尾4桁を取得
    If Len(phoneNumber) >= 4 Then
        GetPhoneLastFour = Right(phoneNumber, 4)
    Else
        GetPhoneLastFour = phoneNumber
    End If
End Function

Sub TestPhoneLastFour()
    Debug.Print GetPhoneLastFour("090-1234-5678")  ' 5678
    Debug.Print GetPhoneLastFour("03-1234-5678")   ' 5678
End Sub

実践的な活用例

URL のプロトコル判定

left_protocol.bas
Function GetProtocol(url As String) As String
    If Left(url, 8) = "https://" Then
        GetProtocol = "https"
    ElseIf Left(url, 7) = "http://" Then
        GetProtocol = "http"
    ElseIf Left(url, 6) = "ftp://" Then
        GetProtocol = "ftp"
    Else
        GetProtocol = "unknown"
    End If
End Function

Sub TestGetProtocol()
    Debug.Print GetProtocol("https://www.example.com")  ' https
    Debug.Print GetProtocol("http://example.com")       ' http
    Debug.Print GetProtocol("ftp://ftp.example.com")    ' ftp
    Debug.Print GetProtocol("www.example.com")          ' unknown
End Sub

ファイル名からベース名を取得

left_basename.bas
Function GetBaseName(fileName As String) As String
    Dim dotPos As Long

    dotPos = InStrRev(fileName, ".")

    If dotPos > 1 Then
        ' 拡張子を除いたベース名を取得
        GetBaseName = Left(fileName, dotPos - 1)
    Else
        GetBaseName = fileName
    End If
End Function

Sub TestGetBaseName()
    Debug.Print GetBaseName("report.xlsx")      ' report
    Debug.Print GetBaseName("data.backup.csv")  ' data.backup
    Debug.Print GetBaseName("README")           ' README
End Sub

郵便番号の前半・後半

left_right_zipcode.bas
Sub ParseZipCode()
    Dim zipCode As String
    Dim firstPart As String
    Dim secondPart As String

    ' ハイフンなしの郵便番号
    zipCode = "1234567"

    ' 前半3桁
    firstPart = Left(zipCode, 3)
    Debug.Print "前半: " & firstPart  ' 123

    ' 後半4桁
    secondPart = Right(zipCode, 4)
    Debug.Print "後半: " & secondPart  ' 4567

    ' フォーマット
    Debug.Print "郵便番号: " & firstPart & "-" & secondPart  ' 123-4567
End Sub

商品コードの接頭辞・接尾辞

left_right_product_code.bas
Sub ParseProductCode()
    Dim code As String
    Dim prefix As String
    Dim suffix As String

    code = "PRD-2025-ABC"

    ' プレフィックス（最初の3文字）
    prefix = Left(code, 3)
    Debug.Print "プレフィックス: " & prefix  ' PRD

    ' サフィックス（最後の3文字）
    suffix = Right(code, 3)
    Debug.Print "サフィックス: " & suffix  ' ABC

    ' 判定
    If prefix = "PRD" Then
        Debug.Print "製品コードです"
    End If
End Sub

クレジットカード番号の表示

right_credit_display.bas
Function FormatCreditCardLast4(cardNumber As String) As String
    ' 空白やハイフンを除去
    cardNumber = Replace(cardNumber, " ", "")
    cardNumber = Replace(cardNumber, "-", "")

    If Len(cardNumber) >= 4 Then
        ' 最後の4桁のみ表示
        FormatCreditCardLast4 = "**** **** **** " & Right(cardNumber, 4)
    Else
        FormatCreditCardLast4 = cardNumber
    End If
End Function

Sub TestCreditDisplay()
    Debug.Print FormatCreditCardLast4("1234567890123456")
    ' 出力: **** **** **** 3456

    Debug.Print FormatCreditCardLast4("4111-1111-1111-1111")
    ' 出力: **** **** **** 1111
End Sub

バージョン番号の比較

left_version.bas
Function GetMajorVersion(version As String) As Integer
    Dim dotPos As Long

    ' 最初の.の位置を検索
    dotPos = InStr(version, ".")

    If dotPos > 0 Then
        ' メジャーバージョンを取得
        GetMajorVersion = CInt(Left(version, dotPos - 1))
    Else
        GetMajorVersion = CInt(version)
    End If
End Function

Sub TestMajorVersion()
    Debug.Print GetMajorVersion("2.5.1")    ' 2
    Debug.Print GetMajorVersion("10.0.0")   ' 10
    Debug.Print GetMajorVersion("3")        ' 3
End Sub

両関数の組み合わせ

中間部分の抽出（Left と Right の組み合わせ）

left_right_combo.bas
Function ExtractMiddle(text As String, leftChars As Long, rightChars As Long) As String
    Dim temp As String

    ' 左側を除去
    temp = Right(text, Len(text) - leftChars)

    ' 右側を除去
    ExtractMiddle = Left(temp, Len(temp) - rightChars)
End Function

Sub TestExtractMiddle()
    Dim text As String
    text = "【重要】お知らせ【必読】"

    ' 最初の3文字と最後の3文字を除去
    Debug.Print ExtractMiddle(text, 3, 3)  ' お知らせ
End Sub

電話番号の市外局番と下 4 桁

left_right_phone.bas
Sub FormatPhoneDisplay(phoneNumber As String)
    Dim areaCode As String
    Dim lastFour As String

    ' ハイフンを除去
    phoneNumber = Replace(phoneNumber, "-", "")

    ' 市外局番（最初の2-3桁）
    If Left(phoneNumber, 1) = "0" Then
        If Left(phoneNumber, 2) = "03" Or Left(phoneNumber, 2) = "06" Then
            areaCode = Left(phoneNumber, 2)
        Else
            areaCode = Left(phoneNumber, 3)
        End If
    End If

    ' 下4桁
    lastFour = Right(phoneNumber, 4)

    Debug.Print "市外局番: " & areaCode
    Debug.Print "下4桁: " & lastFour
End Sub

Sub TestPhoneFormat()
    FormatPhoneDisplay("0312345678")   ' 市外局番: 03, 下4桁: 5678
    FormatPhoneDisplay("09012345678")  ' 市外局番: 090, 下4桁: 5678
End Sub

注意点と Tips

文字数が長すぎる場合

left_right_overflow.bas
Sub LeftRightOverflow()
    Dim text As String
    Dim result As String

    text = "Hello"

    ' 指定文字数が文字列長を超える場合
    result = Left(text, 100)
    Debug.Print "Left: [" & result & "]"  ' Hello（全体）

    result = Right(text, 100)
    Debug.Print "Right: [" & result & "]"  ' Hello（全体）
End Sub
チェック

指定した文字数が文字列全体の長さを超える場合、Left関数とRight関数はエラーにならず、文字列全体を返します。

空文字列の処理

left_right_empty.bas
Sub LeftRightEmpty()
    Dim text As String
    Dim result As String

    text = ""

    ' 空文字列に対する操作
    result = Left(text, 5)
    Debug.Print "Left: [" & result & "]"  ' 空文字列

    result = Right(text, 5)
    Debug.Print "Right: [" & result & "]"  ' 空文字列
End Sub

全角・半角の処理

left_right_fullwidth.bas
Sub LeftRightFullwidth()
    Dim text As String
    Dim result As String

    ' 全角文字も1文字としてカウント
    text = "こんにちは世界"

    result = Left(text, 5)
    Debug.Print result  ' こんにちは

    result = Right(text, 2)
    Debug.Print result  ' 世界
End Sub
チェック

Left関数とRight関数は、全角文字も半角文字も同じく1文字としてカウントします。バイト単位で処理したい場合は、LeftB関数やRightB関数を使用します。

エラー処理

left_right_error.bas
Function SafeLeft(text As String, length As Long) As String
    On Error Resume Next

    If length < 0 Then
        SafeLeft = ""
    ElseIf length = 0 Then
        SafeLeft = ""
    ElseIf length >= Len(text) Then
        SafeLeft = text
    Else
        SafeLeft = Left(text, length)
    End If

    On Error GoTo 0
End Function
チェック

文字数に負の値を指定するとエラーが発生します。ユーザー入力を受け取る場合は、必ず事前に値をチェックしてください。

パフォーマンス比較

Left/Right vs Mid

left_right_performance.bas
Sub ComparePerformance()
    Dim text As String
    Dim i As Long
    Dim startTime As Double
    Dim endTime As Double

    text = "1234567890"

    ' Left関数
    startTime = Timer
    For i = 1 To 100000
        Dim temp As String
        temp = Left(text, 5)
    Next i
    endTime = Timer
    Debug.Print "Left: " & Format(endTime - startTime, "0.000") & "秒"

    ' Mid関数（先頭から）
    startTime = Timer
    For i = 1 To 100000
        temp = Mid(text, 1, 5)
    Next i
    endTime = Timer
    Debug.Print "Mid: " & Format(endTime - startTime, "0.000") & "秒"
End Sub
チェック

先頭または末尾からの抽出には、Mid関数よりもLeft/Right関数の方がコードの意図が明確になります。パフォーマンス差はほとんどありません。

まとめ

Left 関数と Right 関数は、文字列の先頭や末尾から部分文字列を抽出する基本的な関数です。

重要なポイント：

  • Left：先頭から指定文字数を抽出
  • Right：末尾から指定文字数を抽出
  • 指定文字数が文字列長を超えても、エラーにならず全体を返す
  • プレフィックス・サフィックスの確認に最適
  • InStr/InStrRev と組み合わせて動的な抽出が可能

関連関数：

Left 関数と Right 関数を使いこなすことで、様々な文字列処理が簡潔かつ明確に記述できます。

#VBA #Left #Right #文字列操作 #抽出
前のページ
配列を文字列に結合する方法(Join関数)
次のページ
文字列の長さを取得する方法(Len関数)