データのコピー

質問

お世話になります。
任意の範囲の中（A1～A5）で同じ列にあるデータで、一番下にある列の数値をほかのセルにコピーする
簡単な方法はあるでしょうか？
下の例で言えばA3の"6"をB1にコピーしたり

　　A　　　B　　　C
1　 5　　　○

2 　6

3 　6

4 　空欄

5 空欄

また、下の例でしたら、A2の"6"をB1にコピーするといったような方法です。

　　A　　　B　　　C
1　 5　　　○

2 　6

3 　空欄

4 　空欄

5 空欄

どうか宜しくお願いいたします。

回答No.4

imogasi

（１）)操作では
その列の十分下の方のセルをポイントし
ENDキー、CTRL+C
コピー先のセルをポイントして
CTRL+V
（２）VBA
これをVBA化して
Sub test01()
Range("A65536").End(xlUp).Copy Range("B2")
End Sub
（２）関数
ユーザー関数
Function lstr(a)
lstr = Cells(65536, a.Column).End(xlUp)
End Function
例えばB2セルに
=lstr(A1)
ーー
関数
例えばB2に
=INDEX($A$1:$A$100,MAX(IF(A1:A100<>"",ROW(A1:A100),"")))
と入れて
SHIFT,CTRL,ENTERｎキーを同時押しする。

お礼

ご丁寧にありがとうございます。
参考になりました。

回答No.3

maron--5

=LOOKUP(10^10,A:A)
◆データが数値限定の式ですが、途中に空欄があっても大丈夫

お礼

ありがとうございます。
問題が解決しました。

回答No.2

Shimalis

空欄が途中に入っていない場合に限りますが、Ｂ１に以下の関数を入力すると、最下行の値が表示されるようになります。

=INDEX(A:A,COUNTA(A:A))

この関数の意味は、
まずCOUNTA関数で、Ａ列に空白でないセルが何個あるかを数えます。（ｘ個あるとします。）
次にINDEX関数で、Ａ列の上からｘ行目の値を求めます。

空欄が途中にある場合は……
マクロを使う方法だとできますが、関数では思いつきません。

お礼

ありがとうございました。

回答No.1

tux_the_penguin

該当範囲内のセル(のひとつ)が選択されている状態から・・（ご提示の例だとA1かな？）
１．　空白でないセルまで移動して　（ctrl+↓）
２．　そこをコピーし、　　　　　　（ctrl+c）
３．　目的のセルにジャンプして　　（ctrl+g→セルアドレス入力）
４．　ペーストする。　　　　　　　（ctrl+v）
５．　コピー元を解除　　　　　　　（ESC）
だけでいいんじゃないでしょうか？（５は必要ないかもだけど）

繰り返し同じ事をしたければマクロに記録すればいいし、ショートカットキーを割り当てればさらに便利かもです。

お礼

ありがとうございました。