上のセルのコピーのマクロについて

質問

下記コードで、B列（数値）の空白のセルにその上の値をコピーしているんですが、C列（日付）で行ったところ、できませんでした。
Integerが違うと思って変えたんですが、ほかにも関連して変えるところがありますか？？

宜しくお願いいたします。

Sub 上のセルコピー()

Dim i As Integer

For i = 1 To Range("B" & Rows.Count).End(xlUp).Row
If Cells(i, 2).Value = "" Then
Cells(i, 2).Value = Cells(i - 1, 2).Value

End If
Next i

End Sub

回答No.1

kkkkkm · ベストアンサー

Cells(i, 2)
は
Cells(行, 列)
になります。
列はA列を1として右へ何列目かの値になりますからC列なら
Cells(i, 3)
になります。

Cells(i, "C")
の方がわかりやすいかもです。

Range("B" & Rows.Count).End(xlUp).Row

これはB列の最終行までになります。
記述をCells(行, 列)で統一したければ
Cells(Rows.Count,"B").End(xlUp).Row
です。

ちなみに1行目が空白の場合
Cells(i - 1, 2)
が
Cells(0, 2)
指定になるので
エラーになります。

お礼

ありがとうございます。
全然検討違いでした・・・
助かります！！

回答No.2

kkkkkm

あと、iはLongがいいです