Sub 右から◯文字削除する() 文字列 = Range("A1") 削除文字数 = 3 Range("A2") = Left(文字列, Len(文字列) - 削除文字数) 'Len(文字列)5 - 削除文字数3 = 2 End Sub