Sub 文字数を数える()

    文字列 = Range("A1")
        
    Range("A2") = Len(文字列)

End Sub