VBA Cのセルが空白でなかったら、Ａのセルに順番に数値を入力

お世話になります。
Cのセルが空白でなかったら、Ａのセルに順番に数値を入力したいのですが
このコードを実行すると、画像右のようにCの空白部分で
Ａの番号が飛んでしまいます。
　
左の画像のようにしたいのですが、どなたか手直しを
していただけないでしょうか。
よろしくお願いします。

Sub NO1()
Dim i As Long
i = 9
For i = 9 To 35
If Range("C" & i).Value = "" Then
Range("A" & i).Value = ""
Else
Range("A" & i).Value = i - 8
End If
Next
End Sub

No.1 ベストアンサー 回答者： Qchan1962 回答日時： 2020/05/20 17:24

入力する番号を別変数に割り当てれば良いかと

一例です
Sub NO1()
　 Dim i As Long, n As Long
　 For i = 9 To 35
　　 If Range("C" & i).Value = "" Then
　　　　Range("A" & i).Value = ""
　　 Else
　　　　n = n + 1
　　　　Range("A" & i).Value = n
　　 End If
　 Next
End Sub

この回答へのお礼

Qchan 1962さん
早速、回答していただきありがとうございました。
うまくできました。
お世話になりました。

お礼日時：2020/05/21 08:22

No.2 回答者： fujillin 回答日時： 2020/05/20 17:31

こんにちは

入力する数字を、「i - ８」としているので、「行番号 - 8」となっていますね。
別に番号をカウントする変数（例えばn）を設けておけばよろしいかと思います。

Dim i As Long, n As Long
n = 1
For i = 9 To 35
If Range("C" & i).Value = "" Then
Range("A" & i).Value = ""
Else
Range("A" & i).Value = n
n = n + 1
End If
Next

でも、この程度であれば、A9セルに
　=IF(C9="","",COUNT(A$8:A8)+1)
を入力して、下方にフィルコピーでもこと足りると思います。
（これなら、Ｃ列に追加入力があると自動的に附番されます）

※ 上式はA1:A8が空白であるという仮定で作成しています。そうでない場合は「+1」の部分の数値を調整することで対応できると思います。

この回答へのお礼

fujillinさん、早速回答していただきありがとうございました。
ご指摘のようにこれまでは、数式を入力してやっていたのですが
事情があってマクロですることにしました。
A1:A8は空白でないので、「+1」の部分の数値を変えて
やってみます。
お世話になりました。

お礼日時：2020/05/21 08:32

No.3 回答者： 銀鱗 回答日時： 2020/05/20 18:09

そのコードは単に「上から何番目の行」という物ですね。

別にカウンタを設けましょう。
そのカウンタの値を書き出せば良い。
　j=j+1
でも良いし、
　count関数で上からいくつ値の入ったセルがあるかを数えてもいい。
それで解決すると思います。

この回答へのお礼

銀鱗さん、早速、回答していただきありがとうございます。
j=j+1を追加してやってみます。
お世話になりました。

お礼日時：2020/05/21 08:36

No.4 回答者： めぐみん_ 回答日時： 2020/05/20 20:17

ちょっと違った方法で。

Sub megu()
Dim r As Range, rr As Range
Dim n As Long

n = 0

For Each r In Range("C9:C35").SpecialCells(xlCellTypeConstants).Areas
For Each rr In r
n = n + 1
rr.Offset(, -2).Value = n
Next
Next

End Sub

この回答へのお礼

めぐみんさん
早速、回答していただきありがとうございました。
色んなやり方があって、素人には勉強になります。
お世話になりました。

お礼日時：2020/05/21 08:44

No.5 回答者： ママチャリ 回答日時： 2020/05/20 20:55

こんなのでも行けるかも・・・。

Sub sample()
With Range("C9:C35").SpecialCells(xlCellTypeConstants, 23).Offset(, -2)
.Cells(1).Value = 1
.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1
End With
End Sub

この回答へのお礼

ママチャリさん、早速回答していただきありがとうございました。
色んな方法があって、素人には勉強になります。
この方法でもやってみます。

お礼日時：2020/05/21 08:47

No.6 回答者： tom04 回答日時： 2020/05/20 21:10

こんばんは！

すでに色々回答は出ていますが・・・
わざわざVBAでなくてもNo.2さんの数式でできると思います。

A9セルに
=IF(C9="","",COUNTA(C$9:C9))

としてフィルハンドルで下へコピー！

C列に数式が入っていて、数式によって空白に見えているのであれば
=IF(C9="","",COUNTIF(C$9:C9,"?*"))

という数式で対応できると思います。

どうしてもVBAでやりたい！というコトであれば

Sub Sample1()
　Dim lastRow As Long
　　lastRow = Cells(Rows.Count, "C").End(xlUp).Row
　　　With Range(Cells(9, "A"), Cells(lastRow, "A"))
　　　　.Formula = "=IF(C9="""","""",COUNTA(C$9:C9))"
　　　　.Value = .Value
　　　End With
End Sub

でもいけると思います。
※　C列に数式が入っている場合は
コード内の数式の行も変えます。m(_ _)m

この回答へのお礼

tom04さん、早速回答ありがとうございました。
たくさんの方々に、色々な方法を教えていただき
勉強になります。
この方法でもやってみたいと思います。

お礼日時：2020/05/21 08:59