いつもお世話になります。

A2:W2000 の表があります。
列によっては数式が入ったり入らなかったりがあります。

例えば値のない行が　53　だとしたとき、
　C54 をアクティブセルにするにご指導いただけませんか。

下記の参考コードですと C2001 がアクティブセルになります。


参考
ub 売上記入最終行()
 ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Select
 ActiveWindow.ScrollRow = Selection.Row - 1
  End Sub

Sub 売上記入最終行()
    With ActiveSheet
        .Range("A2:W2000").Find("*", , xlValues, xlWhole, xlByRows, xlPrevious).Offset(1).Select
        ActiveWindow.ScrollRow = Selection.Row - 1
    End With
End Sub


この記事にはVBAのコードが含まれています。

緑の太文字→注釈
茶色の太文字→条件分岐
赤の太文字→ループ
青の太文字→その他

Sub 売上記入最終行()
    With ActiveSheet
        .Cells(.Range("A2:W2000").Find("*", , xlValues, xlWhole, xlByRows, xlPrevious).Row + 1, "C").Select
        ActiveWindow.ScrollRow = Selection.Row - 1
    End With
End Sub


この記事にはVBAのコードが含まれています。

緑の太文字→注釈
茶色の太文字→条件分岐
赤の太文字→ループ
青の太文字→その他