文字入力セルにのみに番号を順に付ける

質問

ExcelでD3:D12に文字が入力されたあとボタン押しで同じ行B列のB1:B12に入力された文字のセル分だけ順番に番号を入力したいのですがVBAコードが解る方ご教授宜しくお願いします。
office2013です。

回答No.2

imogasi · ベストアンサー

Private Sub CommandButton1_Click()
lr = Range("D10000").End(xlUp).Row
n = 1
For i = 2 To lr
If Cells(i, "D") = "" Then
Else
Cells(i, "B") = n
n = n + 1
End If
Next
End Sub
>文字入力セルにのみ
の「文字」に、力点を置いtないが。
力点をおくなら
https://www.google.co.jp/search?source=hp&ei=XvTyWqv_BMuB8wW9-qQI&q=VBA%E3%80%80%E6%96%87%E5%AD%97%E3%81%AB%E9%99%90%E5%AE%9A%E3%80%80%E5%88%A4%E5%88%A5&oq=VBA%E3%80%80%E6%96%87%E5%AD%97%E3%81%AB%E9%99%90%E5%AE%9A%E3%80%80%E5%88%A4%E5%88%A5&gs_l=psy-ab.3...4955.20383.0.21125.29.29.0.0.0.0.730.4023.0j11j1j1j2j1j1.17.0..2..0...1.1j4.64.psy-ab..12.7.2275...0j0i131k1j0i4k1j0i4i37k1j0i23k1j0i4i30i23k1j33i160k1.0.G-mpllF8NZc
VBAで文字列かどうかを判定する－VarType関数
などを使ったらどうか。
とりあえず、初歩的なコードでのForNextでやってみた。

回答No.5

HohoPapa

D列には必ず、上詰めでデータを埋める
（途中の行に空白行が無い）という条件があるなら
よりシンプルに、

B3セルに

=IF(D3<>"",row()-2)

と埋め、必要数下方向に複写するという解もあると思います。

VBAでということであれば、私なら、

Sub sample()
　Dim wkLCnt As Long
　With ThisWorkbook.Sheets(1)
　　wkLCnt = 3
　　Do
　　　If .Cells(wkLCnt, 4).Value = "" Then Exit Do
　　　.Cells(wkLCnt, 2).Value = wkLCnt - 2
　　　wkLCnt = wkLCnt + 1
　　Loop
　End With
End Sub

といったコードにします。

お礼

ありがとうございます。勉強になりました。

回答No.4

chie65535

D列に飛び飛びに文字列を入力する場合は、B3を以下の式に変更してB4以降にコピーして下さい。
=IF(ISBLANK(D3),"",MAX(B$2:B2)+1)

お礼

ありがとうございます。

回答No.3

chie65535

B3セルに
=IF(ISBLANK(D3),"",IF(ISNUMBER(B2),B2+1,1))
という式を入力して、B3セルをB4～B12セルにコピーして下さい。

ボタンやVBAでの記述は不要です。

D列に何か入力すると、入力と同時にB列に数字が表示されます。

お礼

ありがとうございます。

回答No.1

f272

こんな感じ？
Sub aaa()
Set r = Range("D3:D21")
n = 1
For Each x In r
If Not IsEmpty(x) Then
x.Offset(, -2) = n
n = n + 1
End If
Next
End Sub
そして，ボタンにマクロを割り当ててください。
ボタンを作るのは，[開発] タブの [コントロール] グループの[挿入] からどうぞ。
[開発] タブがない場合の出し方は，検索してください。

お礼

ありがとうございます。勉強になりました。