Excel

【Excel】エクセルで左から1文字を削除(先頭の1文字を消す:前:最初:関数、マクロ:)する方法

当サイトでは記事内に広告を含みます
技術ブログ特化メルマガはこちら

この記事ではエクセルで左から1文字を削除する方法について解説していきます。

ポイントは以下です。

・RIGHT関数とLEN関数を組み合わせて左から1文字を削除する方法

・左から1文字を削除するマクロ

エクセル操作は1つ1つ追っていけば必ずうまくできるため、ぜひ本記事を参考にスキルアップにつなげてくださいませ♪

エクセルで左から1文字を削除する方法【RIGHT関数とLEN関数】

それでは以下のサンプルを用いて関数を使った左から1文字削除の方法を確認していきます。

まずA列に元データを入力します。そしてB2セルに以下の数式を入力します。

=RIGHT(A2,LEN(A2)-1)

RIGHT関数は文字列の右端から指定した文字数分の文字列を取り出します。

LEN関数は文字列の文字数を返します。

この例ではLEN(A2)-1で元データの文字数から1を引いた文字数分、右端から文字列を取り出すことで、左から1文字を削除しています。

ENTERで処理を確定させます。

B2セルの右下にカーソルを合わせてドラッグorダブルクリックし、オートフィルでB列全体に数式をコピーします。

これでA列の元データから左1文字を削除した結果がB列に表示されます。

元データを変更すれば、B列の結果も自動的に更新されますね(^^)/

RIGHT関数とLEN関数の組み合わせは、文字列の左端からn文字削除したい場合に応用できる便利なテクニックです。

RIGHT関数とLEN関数で左から1文字を削除する方法【マクロ自動化】

関数を使った左から1文字削除をマクロで自動化する方法を見ていきます。

VisualBasicエディタを開き、以下のコードを入力します。


Sub DeleteFirst1Character()
Dim lastRow As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row  
Range("B2").Formula = "=RIGHT(A2,LEN(A2)-1)"
Range("B2").AutoFill Destination:=Range("B2:B" & lastRow)  
End Sub

このマクロは、A列の最終行を自動判定し、B2セルに左から1文字を削除する数式を入力後、オートフィルでB列全体に数式をコピーします。

マクロを実行すれば、左から1文字削除が一発で完了します。

削除する文字数を変更したい場合も、マクロのコードを一部修正するだけで済むため、作業効率が格段に上がります。

まとめ エクセルで先頭の1文字を削除(最初の1文字を消す:マクロ、n文字目)する方法

以上、エクセルで左から1文字を削除する方法と左から1文字目だけを削除する方法を関数とマクロで実現する方法を紹介しました。

関数とマクロを状況に応じて使い分けることが大切です。

RELATED POST