ExcelのＶＢＡで自動採番したいのですが

質問

Excel2003のＶＢＡを利用して、例えばコマンドボタンを押した時に、下記のＣ６の●部分にＣ列の最大数を検索して自動的に「５」を採番(max+1)入力したいのです。
ただしＣ２の様に途中に虫食いで空欄があり、またその空欄に後日数字が入る可能性もあります。（Ｃ列は多くても４０列程度）
数が多くなると採番ミスの恐れがあり、自動化したいのでよろしくお願いいたします。

　｜Ａ｜Ｂ｜Ｃ｜Ｄ
１｜X｜テ｜１｜
２｜Ｌ｜ス｜　｜
３｜V｜レ｜３｜
４｜Ｙ｜フ｜４｜
５｜N｜モ｜２｜
６｜S｜シ｜●｜
７｜

回答No.2

mshr1962 · ベストアンサー

選択した行でいいなら

Sub ボタン1_Click()
Dim RG As Range
Set RG = ActiveCell
Range("C" & RG.Row) = Application.WorksheetFunction.Max(Range("C:C")) + 1
End Sub

お礼

ありがとうございました。
思っていた通りに出来ました。
他の方のご回答でも処理できましたが、ご回答順でベストアンサーにさせて頂きました。またよろしくお願いいたします。

回答No.5

某HN クロメート(Chromate)（@CoalTar）

こんな感じかなあ
Sub test()
　　 If Cells(ActiveCell.Row, 3) = "" Then _
　　 Cells(ActiveCell.Row, 3) = WorksheetFunction.Max(Range("C:C")) + 1
End Sub
ボタンや図形を配置して 右クリック マクロの登録

お礼

ありがとうございました。
思っていた通りに出来ました。
他の方のご回答でも処理できましたので、今回は回答順で他の方をベストアンサーにさせて頂きました。またよろしくお願いいたします。

回答No.4

山田 太郎（@f_a_007）

Q、ExcelのＶＢＡで自動採番したいのですが・・・
A、単純に最後の番号を控えて置いてプラス１で！

＞Ｃ列の最大数を検索して自動的に「５」を採番(max+1)入力・・・

そんなやり方では上手くいかないのでは・・・。
ここは、セオリー通りに＜最後の番号を控えて置いてプラス１＞。

お礼

ご回答ありがとうございました。
他の方のご回答でうまく処理できました。

回答No.3

mu2011

本質問では番号入力の契機が曖昧です。
自動化ならわざわざマクロで組み込まなくても普通に関数の方が簡単だと思う。

例えば、対象範囲に=IF(入力条件,MAX(対象範囲)+１,"")を設定しておけば
よいと思われるが如何でしょうか。

お礼

ご回答ありがとうございました。
他の方のご回答でうまく処理できました。

回答No.1

keithin

マクロを実行したとき，具体的にどこが●のセルだと，どうやって判るようになっているのでしょうか。

作成例：
sub macro1()
range("C" & range("A65536").end(xlup).row).formulaR1C1 = "=1+MAX(R1C:R[-1]C)"
end sub

お礼

ご回答ありがとうございました。
他の方のご回答でうまく処理できました。