エクセルのコピー貼り付け

質問

aa.xlsのシート１へbb.xlsのシート２のデータをコピーして貼り付けたいのですが・・・

aa.xlsのシート１のデータ件数は変動するので、シート１の最後のセルの
次から貼り付けたいと思います。
a1セルの空白セルを検索方法を教えていただけますか？
宜しくお願いします。

回答No.5

imogasi · ベストアンサー

VBAの質問らしい。
（１）Ｃｕｒｒｅｎｔｒｅｇｉｏｎ
（２）ＵｓｅｄＲａｎｇｅ
（３）最下行や最右列からＥｎｄ（xlUp)やＥｎｄ（ｘｌＴｏＬｅｆｔ）でデータのある範囲を割り出す。
ただしたや右が凸凹であると複雑になるが、ケースは少なかろう。Ｅｎｄ（ｘｌＤｏｗｎ）でもつ変える場合は在ろう。
これらはＧｏｏｇｌｅで上記語句で照会し勉強すること。
ＶＢＡで処理する場合に、まず始めに必要になる必須のことだから、勉強のこと（使用例や答えは、ここにはあえて書かない）
＞a1セルの空白セルを検索方法を
これは質問の前後からして何のこと？
Ａ列の初めて現れる空白行の行番号を知りたいのか。それなら上記のEnd(xlDownの場合だとすると
Sub test02()
d = Range("A2").End(xlDown).Row
MsgBox d
End Sub
ただしこれは欠点あり（空白行は通常データ列の中で起こるよね）。だから危険。

お礼

色々参考にさせて頂きます。
ありがとうございました。

回答No.4

chiizu2

すみません
Visual Basicのカテゴリーでしたね
先ほどの回答は無視して下さい

お礼

これからも宜しくお願いします。

回答No.3

chiizu2

細かいことが書いていないので
bbのデータをaaに手動でコピー&ペーストするとして回答します
aaのA1から連続でデータが入っているのだったら
A1のセルを選択してして「Endキー」を押した後
方向キーの↓(下)を押すと
A列の連続データの一番下に移動しますので
その下の空白セルにペーストすれば良いと思います

お礼

エクセル初心者ですので又よろしくお願いします。

回答No.2

nattocurry

Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Select

これで、列Aの中でデータが入っている一番下のセルを選択することが出来ます。

お礼

仕事が忙しくお礼が遅くなり申し訳ありません。
エクセル初心者ですが色々勉強させて頂きます。
ありがとうございました。

回答No.1

imo8001

最終セルの次のセル　という意味でいいのですか？

A列で検索するならば

Cells(1,Range("a65536").End(Xlup).Row+1)

となります

お礼

取引先からエクセルシートで納品データが届き基本は良くにているのですが
・・・
別のシステムへ取り込むのに一つのシートに纏めたかったので下記の様にしてコピー先の最後の次のセルを確定させました。
ありがとうございます。

D = Range("A2").End(xlDown).Row
C = D + 1
MsgBox C
Range("A" & C).Select