こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

エクセルの範囲指定内の最終行を探す方法

VBA初心者です。
指定範囲内のデータがある最終行を取得する方法についてご教授ください。
B7、C7、D7、に外部データが入って来ます。
そのデータを更新毎に9行目にコピーします。
8行目は行挿入する為に空けます。

セルに式を入れる方法で試みましたが、上手く出来ず不慣れなVBAで挑戦しています。
問題は蓄積データを使って平均値を採り、その傾向を知るために20ステップ前のデータと
比較したいと思っています。

平均は出来たのですが、20ステップ前のデータが出来るまで、最終行のデータを使いたいのですが方法が分かりません。

IF Then とxlrow を組み合わせる見当を付けたのですが、そこから先へ進めず困っております。

色々検索しましたが該当するケースを見つけることが出来ませんでした。

お詳しい方、ご指導の程をお願いします。


Sub test1()
Application.ScreenUpdating = False

Sheets("Sheet1").Rows("9:9").Insert Shift:=xlDown
Sheets("Sheet1").Range("b9").Resize(1, 8).Value = _
Sheets("Sheet1").Range("b7").Resize(1, 8).Value

Worksheets("Sheet1").Select

'平均 --------------------------------------
With Worksheets("sheet1")
Dim MA50 As Variant
'50平均
MA50 = WorksheetFunction.Average(Range(Cells(9, 3), Cells(58, 3)))

Cells(7, 4).Value = MA50

End With

'比較------------------------------------------
Dim a As Integer
Dim b As Integer

a = Cells(28, 4).Value
b = MA50 - a
Cells(7, 5).Value = b

End Sub

投稿日時 - 2008-06-11 01:22:57

QNo.4091272

困ってます

このQ&Aは役に立ちましたか?

5人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

Cells(9, 4).End(xlDown).Value

投稿日時 - 2008-06-11 02:59:08

補足

あれ?これは最終セルを探す方法ですよね。
範囲Cells(28,4)Valu との比較が必要ですよね。

投稿日時 - 2008-06-11 09:10:17

お礼

ご回答ありがとうございます。

2件ご回答を戴きましたが、IF文は必要ないんですね。
勉強になりました。

投稿日時 - 2008-06-11 09:08:56

ANo.1

A9~A列最終行までの範囲指定
Range("A1", Range("A1").End(xlDown)).Select

投稿日時 - 2008-06-11 01:56:51

お礼

早速のご回答ありがとうございます。
試してみます。

投稿日時 - 2008-06-11 09:02:13

あなたにオススメの質問