Sub 左から◯文字削除する() 文字列 = Range("A1") 削除文字数 = 3 Range("A2") = Right(文字列, Len(文字列) - 削除文字数) 'Right(あいうえお, 5 - 3 ) 右から2文字抜く End Sub