【Excel】エクセルで右から2文字を削除（下2桁：後ろ：最後：末尾：関数：2文字目だけも消す：、マクロ、n文字目）する方法

この記事ではエクセルで右から2文字を削除する方法と右から2文字目だけを削除する方法について解説していきます。

ポイントは、以下の4つです。

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

エクセルで右から2文字を削除する方法【LEFT関数とLEN関数】

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

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

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

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

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

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

B2セルの右下にカーソルを合わせてドラッグorダブルクリックし、オートフィルでB列全体に数式をコピーします。これでA列の元データから右2文字を削除した結果がB列に表示されます。

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

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

エクセルで右から2文字目「だけ」を削除する方法【LEFT関数とLEN関数】

続いては、関数を使って「右から2文字目だけ」を削除する方法を確認していきます。

A列に元データが入力された状態で、B2セルに以下の数式を入力します。

LEFT関数とLEN関数を組み合わせて右から2文字目より前の文字列を取り出し、RIGHT関数で右端から1文字を取り出します。

&で2つの文字列を結合することで、右から2文字目を削除しています。

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

オートフィルでB列全体に数式をコピーします。

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

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

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

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

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

Sub DeleteLast2Characters() 
Dim lastRow As Long

lastRow = Cells(Rows.Count, 1).End(xlUp).Row

Range("B2").Formula = "=LEFT(A2,LEN(A2)-2)"
Range("B2").AutoFill Destination:=Range("B2:B" & lastRow)
End Sub

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

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

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

LEFT関数とLEN関数で右から2文字目だけを削除する方法【マクロ自動化】

最後は関数を使った右から2文字目だけの削除をマクロで自動化する方法です。

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

Sub DeleteSecondCharacterFromRight()
Dim lastRow As Long

lastRow = Cells(Rows.Count, 1).End(xlUp).Row

Range("B2").Formula = "=LEFT(A2,LEN(A2)-2) & RIGHT(A2,1)"  
Range("B2").AutoFill Destination:=Range("B2:B" & lastRow)
End Sub

このマクロを実行すれば、A列の元データから右から2文字目だけを自動削除できます。

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

まとめ　エクセルで後ろ・末尾から2文字を削除（消す最後：関数、マクロ、n文字目）する方法

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

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