エクセルで、『年』の文字を自動で付加したい。

質問

エクセルで、『年』の文字を自動で付加したい。
エクセル2000ですが、大きな名簿があります。
Ｍ1～Ｍ1875の列に年号が入力されています。平成十五とか昭和五十三というふうに、年を省略して入力されています。これに『年』を付け加えているのですが、なかなか大変です。それで自動的に付加する方法はないものでしょうか?
別の列に、＝Ｍ1＆"年" とつくるのではなく、あくまでＭ列のデータに、『年』を付加したいのです。
また、表示形式を『年』付きで表すようにする、という方法でもありません。

回答No.5

NOBNNN · ベストアンサー

＃4 のかたも答えていますけど

マクロ　つまり　ＶＢＡで作成すると応用できます。

ワークシート上の関数ですと　循環式のエラーになります。

作り方

　メニューバーのツール／マクロ

　 マクロ名　に　「M年_追加」　と入力
　　作成ボタンを押してください。

ＶＢＡの画面が開きます

Sub M年_追加()

End Sub

ここに　以下のとおり入力

============================================<サンプル> =========================
Sub M年_追加()

Const Nen = "年", Retu = "M"

Dim strMJ As String

Dim RCnt As Double

Worksheets("Sheet1").Activate

RCnt = Columns(Retu).CurrentRegion.Rows.Count 'M列の行数（入力データ）を求める 指定行数にする場合は数字を設定

Dim I As Integer

Dim strCell As String

For I = 2 To RCnt 'ヘッダーを含まない行数、２行目から

strCell = "$" & Retu & I 'セルの指定

strMJ = Trim(Range(strCell).Value)

If Len(strMJ) > 0 Then

If Right(strMJ, 1) <> Nen Then '右側１文字が"年"であるか調べる

strMJ = strMJ & Nen

Range(strCell).Value = strMJ

End If

End If
Next I
End Sub

============================================================================
毎回、"年"が付加されないようにする場合は　上記のようにすれば空のセルと"年"がふくまれる
セルは、"年"が付加されません。

行数は　変数　Rcnt で指定しています。　上記では　表の行数を数えて作業しています。

使い方は　ツール／マクロ
　　　　M年_追加 を選択して　実行してください。

自動的に付加されます。

お礼

大変高級な方法をご指導いただいてありがとうございました。
すでに年を入力しているセルもありますので、年があるセルとか空白のセルには年を記入しない、という機能は実際に大変に助かる自動動作です。こういうのをホントにコンピューター的だなって、感心します。
ありがとうございました。

補足

#4のかたにつづいて、さらにくわしい、ごしどうを、ありがとうございます。
ちかいうちにトライしてみて、ごほうこくします。
ありがとうございました。

回答No.4

okormazd

VBAなら、
Sub fuka()
For Each c In Range("M1:M1875")
c.Value = c.Value + "年"
Next
End Sub
だけだけどな。

お礼

ありがとうございました。
ちょっと、いそがしいので、すぐにはできませんが、ちかいうちに、やってみます。
ウインドウズ7にしてから、げんごにしている、ふじつうのOAKがダメで、ひらがなばかりです。
よみづらくって、すみません。
ありがとうございました。
また、ごほうこくします。

回答No.3

P5Q

M1～M1875 を範囲指定
　　　範囲指定上で、
　右クリックで　セルの書式設定　を選択
　　　次に、　分類欄の　ユーザー定義　を選択

　　種類の下の所に
　　　　　　　　　0"年"　　と入力し　OKボタン

補足

あけましておめでとうございます。
ごかいとうありがとうございました。pcがふちょうで、ひらがなですみません。
ごしどうのほうほうは、ひょうじが、『ねん』つきになるだけで、データはかわらないとおもいます。
『いちたろう』への、さしこみデータにつかいますので、データそのものに『ねん』がないと、ぐあいがわるいのです。
いかがてしょうか?
また、ごいけんくださいませ。
ありがとうございました。

回答No.2

soixante

別の列に＝Ｍ１＆"年"
として、1875行目までコピーしたあと、

Ｍ１に形式を選択して貼付（値）

すればよいのではないでしょうか。

補足

え゛～っ、そのほうほうで、できるのでしょうかっ。
パソコンがふちょうで、かなばかりで、よみにくくってすみません。

ひょうじけいしきとして、あらわれた『ねん』はコピーで、データとしてあつかわれるのですね。
きがつきませんでした。やってみます。
ありがとうございました。

回答No.1

中京区 桑原町（@l4330）

セルの書式設定でユーザ設定を選び
@"年"
これでどうです？