関数の入っている列で一番下のセルの値まで範囲指定

いつもお世話になります。
C1に=IF(A1="","",(A1+B1))の関数が入っていて、同様の関数がC10まで入ってます。
A1からB3までだけ数字が入っている状態で、C1からC3までの値があるセルをマクロで範囲指定した
いのですが、いい方法があれば教えて頂きたいです。お時間ある方いらっしゃいましたら
宜しくお願い致します。

No.1 ベストアンサー 回答者： tom04 回答日時： 2016/02/22 16:20

こんにちは！

質問文の解釈だと

Sub Sample1()
Dim i As Long
For i = 10 To 1 Step -1
If Cells(i, "C") <> "" Then Exit For
Next i
On Error Resume Next '←念のため
Range(Cells(1, "C"), Cells(i, "C")).Select
End Sub

でいいような気がしますが・・・
余計なお世話でもう一つ

Sub Sample2()
Dim i As Long
For i = Cells(Rows.Count, "C").End(xlUp).Row To 1 Step -1
If Cells(i, "C").HasFormula And Cells(i, "C") <> "" Then Exit For
Next i
On Error Resume Next
Range(Cells(1, "C"), Cells(i, "C")).Select
End Sub

でもOKだと思います。m(_ _)m

この回答へのお礼

On Error Resume Next このコード
初めて見ました！まだまだ勉強が足りないです。
完璧にできました。ありがとうございます！

お礼日時：2016/02/22 18:28