文字列の左端から一部を取得する【Left関数】【LeftB関数】【ExcelVBA】

構文

Left(String, LengthAs Long) As Variant

LeftB(String, LengthAs Long) As Variant

LeftB関数はバイト数単位の抜出だが、注意が必要

ワークシート関数のLeftB関数(Shift-JIS形式)
→半角文字を1Byte、全角文字を2Byteとして取得。
VBA関数のLeftB関数(DBCS形式)
→半角文字を2Byte、全角文字を2Byteとして取得。

Left関数、LeftB関数のサンプルコード

Public Sub test_Left_LeftB()
    
    Dim lng As Long
    
    '■数値は正常に表示可能
    lng = 12345
    MsgBox Left(lng, 3)     '123　 正常表示だがバイト数を加味していない
    MsgBox StrConv(LeftB(StrConv(lng, vbFromUnicode), 3), vbUnicode)    '123　　正常表示(バイト数も加味)
    
    Dim str As String
        
    '■文字列は偶数なら問題なし
    str = "あいうえお"
    MsgBox Left(str, 4)     'あいうえ　正常表示だがバイト数を加味していない
    MsgBox StrConv(LeftB(StrConv(str, vbFromUnicode), 4), vbUnicode)    'あい　正常表示(バイト数も加味)
    
    '■文字列は奇数なら文字化けしてしまうケースがある(仕様通り)
    str = "あいうえお"
    MsgBox StrConv(LeftB(StrConv(str, vbFromUnicode), 3), vbUnicode)    'あ・　3バイト目が全角文字なので文字化けしてしまう
    str = "あ12うえお"
    MsgBox StrConv(LeftB(StrConv(str, vbFromUnicode), 3), vbUnicode)    'あ1　正常表示(バイト数も加味)

    '■LeftB関数のみだと正常表示できない
    lng = 12345
    MsgBox LeftB(lng, 3)    '12　　→3バイト目だと「123」と表示されないといけない
    str = "あ12うえお"
    MsgBox LeftB(str, 6)    'あ12　→6バイト目だと「あ12う」と表示されないといけない

End Sub

注意点

• バイト数で取得する(LeftB関数)場合、且つ全角文字がある場合は注意が必要です。
  ■LeftB関数の注意点
  DBSC→Shift-JISに変換しないと使用できない
  Shift-JISに変換しても全角文字が含まれる、且つ文字数が奇数の場合は注意必要
  ※例
  「あいう」は全角文字3→6Byte、3Byte目まで取得しようとすると
  2文字目の「い」の半分までしか対象にできず、実行結果が文字化けしています。

関連記事

文字列の前後を空白埋めで 桁数を揃える(Space関数/Right関数)
0埋めして桁数を揃える(Format関数/Right関数)
「フルパスから、パス、ファイル名、拡張子を分ける処理」をパーツ化する【ExcelVBA】