Excel VBA 文字列の中から先頭の数文字を指定して取り出したい(Left関数)

下記は「12345ABC」などの文字列から「12345」部分だけを取り出したい場合の一例。

1列目に格納された「11111xxx」形式の文字列から、先頭5桁の値を取り出し、隣の2列目にその値を格納する。

 

 

 

Sub a()

 

    Dim str As String

    Dim i As Integer

    

    str = ""

    i = 1

    

    For i = 1 To 10

        

        str = Worksheets(1).Cells(i, 1)

        

        If Trim(str) <> "" Then

            Worksheets(1).Cells(i, 2) = Left(str, 5)

        End If

    

    Next

    

End Sub