エクセルのマクロで

質問

こんばんわ
エクセルのマクロ？でこんな事できますか
シート２のＮ列の最後に入力があるセルを探して
シート１のＪ４に貼り付ける事ってできますか

シート２
　　Ｎ
１ ６
２ ５
３ ４
４ ７
５
６
この場合は　7 をシート１の　Ｊ４に　７と入力したいのです
尚　入力先は常にシート１の　Ｊ４です
よろしくお願いいたします

回答No.2

rukuku · ベストアンサー

できますよ
こんな感じです

「シート１」と「シート２」はそれぞれ「Sheet1」「Sheet2」とさせて頂きました。

Sub sample()
Sheet1.[J4] = Sheet2.[N65536].End(xlUp)
End Sub

ただし、N65536には値が入っていないことが条件です。
[N65536].End(xlUp) というのはSheet2のセルN65536を選択しおいて「Ctrl＋↑」のキーを押したときの移動先という意味です。

Excelについての質問は
Ｑ＆Ａラウンジ
http://www.fuji.ne.jp/~excelyou/exrounge.htm
モーグＱ＆Ａ掲示板
http://www.moug.net/boards/index.htm
等もお勧めします。

参考URL：

http://www.fuji.ne.jp/~excelyou/exrounge.htm

お礼

ありがとう　ございました
思った通りのことができました

回答No.3

marumaru_a_w

はじめましてmarumaru_a_wといいます。
結論から言いますと出来ます。

VBEで書けばすぐ出来ると思います。
値が入っていないかを判定するには「VBA.vbEmpty」を使って判定すればいいと思います。

回答No.1

koukoku1

?

はっきりとした。回答、を、求めます。