【ExcelVBA】文字列の右側(末尾)をn文字削除する - 和風スパゲティのレシピ

文字列の右側をn文字削除するコードを解説します。 基本の書き方 実行サンプル 解説 Len関数の恐ろしい罠 おまけ：文字列処理は関数化しておくと便利 基本の書き方 右から3文字消した文字列 = Left(元の文字列, Len(元の文字列) - 3) 実行サンプル 商品名 = "愛媛みかん" 産地 = Left(商品名, Len(商品名) - 3) MsgBox 産地 ' ← 「愛媛」が表示されます。 解説 解説がなくても読めそうですが一応。 右から3文字消す = 左から(文字数-3)文字取ってくる です。 ちなみに元の文字列が2文字しかない場合はエラーで止まってしまいますので、 それを回避したい場合は If Len(商品名) >= 3 Then 産地 = Left(商品名, Len(商品名) - 3) Else 産地 = "" End If のように、最初に文字数を調べてIf文で分岐してく