excelの関数について

質問

EXCEL2010と2013を使っています。
例えばA列にAB001、AB002、AB003・・・と並んでいるものを、途中でAB001をAB002、AB002をAB003・・・という風に変更したいのですが、それぞれが一つずつとは限らなく、AB001が２つとか３つとかあったりします。なので、オートフィルが使えません。
今やっている方法が、まずB列でRIGHT関数で右側４つの数字を抜き出し、そのあとC列で1をそれぞれに=A1+1という式ですべて１ずつ足して、そのあとD列で　="AB"&002のようにABを付け加える数式で計算したあとA列にコピーするというやり方しかわかりません。それらをいっぺんにする方法は何かないのでしょうか？

回答No.3

bunjii · ベストアンサー

>それらをいっぺんにする方法は何かないのでしょうか？
B列に数字のみ抜き出す作業を関数で行っているのであればその数式に数値部の加算と先頭の文字列の連結を加えれば作業用の列は1列で済ませることができます。

B1=LEFT(A1,2)&TEXT(RIGHT(A1,3)+1,"000")
但し、A列の文字列は先頭2文字が固定で数値部は3桁固定の場合になります。
B1セルを下へ必要数コピーして、コピー後の選択状態から一括でコピーし、A列へ値のみを貼り付ければ良いでしょう。

直接A列の文字列を一括して書き換えるにはVBAで必要のつど実行する方がベターと思われます。
VBAについては不得手なので他の回答を待ってください。

お礼

ありがとうございます。作業が楽になりました。

回答No.2

tom04

こんにちは！

＞それらをいっぺんにする方法は何かないのでしょうか？

VBAでの一例です。
最後が必ず半角の数値になっているとします。

画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面のカーソルが点滅しているところに
↓のコードをコピー＆ペースト　→　Excel画面に戻り、必ず「範囲指定」をしてマクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）

Sub Sample() 'この行から
Dim c As Range, k As Long, str As String, myNum As Long
For Each c In Selection
If c <> "" Then
For k = 1 To Len(c)
If Mid(c, k, 1) Like "[0-9]" Then Exit For
Next k
If k > 0 Then
str = Left(c, k - 1)
myNum = Replace(c, str, "")
c = str & Format(myNum + 1, "000")
End If
End If
Next c
End Sub 'この行まで

こんな感じではどうでしょうか？m(_ _)m

お礼

ありがとうございます。マクロはまだやったことがないので、挑戦してみたいと思います。

回答No.1

noname#204879

添付図において、
１．次の“ユーザー定義”書式を設定
　　　　"AB"000
２．Ａ列に、数値の(例えば) 1、2、3、4、1、1 を入力
３．セル A1 を[コピー]して、此れをセル C1 に[貼り付け]
４．セル C1 を[コピー]
５．範囲 A1:A6 を選択
６．[形式を選択して貼り付け]メニューの“加算”に目玉入れ
７．Enterキーを「エイヤッ！」と叩き付け！

お礼

ありがとうございます。試してみたのですがうまくいきませんでした。もうちょっとやってみます。