エクセルで自動的に範囲選択させるには？

質問

職場のエクセルの表を壊してしまいました。チカラを貸してください。

SHEETaに表があります。
常に表の最終行にデータを入力しています。
　A10　　　　　B10　　　　C10　　　　D10　　　E10
３月３日　　　りんご　　　８個　　　みかん　　５個

この一部を同じブックのSHEETbの表の最終行に
=IF(SHEETa!A10="","",SHEETa!A10)といったふうに返しています。
　A15　　　　　B15　　　　C15
３月３日　　　みかん　　　５個
ちなみにSHEETaとSHEETbのデータの並び順は違います。
行の番号も違います。

作業としては、SHEETaを入力したあと、SHEETbの最終行を1行だけ
印刷します。
SHEETaを入力すると自動的にSHEETbの最終行が選択されるようにするにはどうしたらいいのでしょうか？

回答No.4

okormazd

>SHEETaを入力したあと、
SHEETaのどこでもということか。
SHEETaを入力したあと、というのがどういうことなのか。
文字通り解釈すれば、下記のようになると思うが、これでは困るだろう。
SHEETaを入力すると自動的にSHEETbの最終行が選択されるようしたのだが。

これをsheetaのコードモジュールに貼り付ける。

Private Sub Worksheet_Change(ByVal Target As Range)

Set shb = ActiveWorkbook.Sheets("sheetb")

'sheetaの入力範囲

ri = 5
re = 100
ci = 1
ce = 10

'sheetbの最終行の選択範囲

c21 = 1
c22 = 10

r1 = Target.Row
c1 = Target.Column

If (r1 >= ri And r1 <= re) And (c1 >= ci And c1 <= ce) Then

With shb

.Activate

r2 = .Cells(65536, 1).End(xlUp).Row '最終行の取得、これでいいとは限らない。実情に合わせて取得する。

.Range(.Cells(r2, c21), .Cells(r2, c22)).Select

End With

End If

End Sub

>もう少しくわしくお願いします。
というのは、私のほうのお願いかな。

回答No.3

okormazd

Worksheet_Change
イベントを使うよ。

補足

もう少しくわしくお願いします。

回答No.2

134

失礼しました。　シートｂの最終行を表示でしたね。
下の回答は取り消します。

回答No.1

134

=offset(a!a1,counta(a!a:a)-1,0)
とか
=index(a!a:a,counta(a!a:a)
とかという関数を入力してみてはいかがでしょうか。