文字列の左端から一部を取得する（Left、LeftB）

Left、LeftB

Left関数とLeftB関数は文字列の左端から指定した長さの文字列を取得します。

Left関数とLeftB関数の違いは、Left関数は引数に取得する文字数を指定しますが、日本語圏の場合のLeftB関数は文字数×2を指定する点です。

Shift-JISとしての全角を2バイト、半角を1バイトとして処理したい場合は「VBAでバイト単位でのLenとMidとLeftとRight」にShift-JISの感覚で使えるLeft関数を紹介していますので参考にしてください。

日本語圏のLeftB関数はそのままではほとんど使い物になりません。上で紹介しているような使い方に限定されます。

LeftB関数はバイト単位という説明は間違い

よく、LeftB関数はバイト数を指定する、という説明を目にするのですが、日本語圏での説明としては不十分です。

実際にはバイト数ではなく、引数には文字数×２を指定することになります。

これはLeftB関数がShift-JIS換算のバイト数ではなく、2バイト言語ともいわれるDBCS言語のバイト数換算になっていることが原因です。

このことについては「VBAのByte単位用関数の問題点」に詳しく書いています。あなたがファイルや電文などをShift-JIS換算で判定しなければならないような場合は読んでみてください。

構文

Function Left(String, Length As Long) As Variant
Function Left$(String As String, Length As Long) As String
Function LeftB(String, Length As Long) As Variant
Function LeftB$(String As String, Length As Long) As String

Function Left(String, Length As Long) As Variant

Function Left$(String As String, Length As Long) As String

Function LeftB(String, Length As Long) As Variant

Function LeftB$(String As String, Length As Long) As String

String	取り出す元の文字列を指定します。
Length As Long	Left関数の場合は文字数、LeftB関数の場合は文字数×２を指定します。0未満を指定するとエラーになります。
戻り値	内部処理形式がStringのVariantの値を返します。

$ありと$なしの関数の両方を書いていますが通常は$なしで問題ありません。$ありなしの違いについては「VBA関数の$ドルマークの意味」を参照ください。

ワークシート関数のLeftB関数との違い

ワークシート関数にもLeftB関数がありますが、こちらは半角文字を1バイト、全角文字を2バイトとしてShift-JISコード体系の扱いになっています。

VBA関数のLeftB関数のDBCSコード体系とは異なりますので注意が必要です。

サンプルコード

Left関数とLeftB関数に偶数の4と奇数の3を指定した場合のサンプルです。LeftB関数に奇数を指定すると正しく取得できないことが分かります。

Sub LeftTest()
    Dim s
    Dim b
    
    '// Left関数
    b = "abあ1あ"
    s = Left(b, 4)
    Debug.Print "[" & s & "] " & LenB(s) & "  " & Len(s) & "  " & LenB(StrConv(s, vbFromUnicode))
    
    '// LeftB関数
    s = LeftB(b, 4)
    Debug.Print "[" & s & "] " & LenB(s) & "  " & Len(s) & "  " & LenB(StrConv(s, vbFromUnicode))
    
    '// Shift-JISのバイト数換算のLeft関数
    s = StrConv(LeftB(StrConv(b, vbFromUnicode), 4), vbUnicode)
    Debug.Print "[" & s & "] " & LenB(s) & "  " & Len(s) & "  " & LenB(StrConv(s, vbFromUnicode))
    
    '// Left関数
    b = "abあ1あ"
    s = Left(b, 3)
    Debug.Print "[" & s & "] " & LenB(s) & "  " & Len(s) & "  " & LenB(StrConv(s, vbFromUnicode))
    
    '// --誤ったサイズ指定--
    '// LeftB関数
    s = LeftB(b, 3)
    Debug.Print "[" & s & "] " & LenB(s) & "  " & Len(s) & "  " & LenB(StrConv(s, vbFromUnicode))
    
    '// Shift-JISのバイト数換算のLeft関数
    s = StrConv(LeftB(StrConv(b, vbFromUnicode), 3), vbUnicode)
    Debug.Print "[" & s & "] " & LenB(s) & "  " & Len(s) & "  " & LenB(StrConv(s, vbFromUnicode))
End Sub

Sub LeftTest()

Dim s

Dim b

'// Left関数

b = "abあ1あ"

s = Left(b, 4)