エクセルのマクロ

質問

以下のマクロを教えて下さい。
よろしくお願いします。

[1] Book1のSheet1のA列のデータを、Book2のSheet1のB列にコピーする(B列の先頭から)。

[2] Book1のSheet2のA列のデータを、Book2のSheet1のB列にコピーする([1]で貼り付けたものの次行から)。

[3] Book1のSheet3のA列のデータを、Book2のSheet1のB列にコピーする([2]で貼り付けたものの次行から)。

＊A列はデータがない場合はありません。途中に空行があることもありません。
＊[1][2][3]は一括処理で結構です。
＊マクロ自体はBook3に作成する予定です。

回答No.4

papayuka · ベストアンサー

Book1.xls と Book2.xls は開いている
Book1.xls の Sheet1～3 は一番左から並んでいる
Book2.xls の Sheet1 は一番左にある

上記の前提で、Book3のマクロ

Sub Test()
Dim cBook As Workbook, pBook As Workbook
Dim pR As Range
　Set cBook = Workbooks("Book1.xls")
　Set pBook = Workbooks("Book2.xls")
For i = 1 To 3
　With pBook.Worksheets(1).Range("A65536")
　　If .End(xlUp).Row = 1 Then
　　　Set pR = .End(xlUp)
　　Else
　　　Set pR = .End(xlUp).Offset(1, 0)
　　End If
　End With
　With cBook.Worksheets(i)
　　.Range("A1:A" & .Range("A65536").End(xlUp).Row).Copy
　　pR.PasteSpecial xlPasteAll
　End With
Next i
　Application.CutCopyMode = False
End Sub

お礼

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

回答No.5

papayuka

#4 です。

B列だったようで、、

For i = 1 To 3
　With pBook.Worksheets(1).Range("A65536")
を
For i = 1 To 3
　With pBook.Worksheets(1).Range("B65536")

に。

回答No.3

imogasi

値だけをコピーするで良ければ下記をどうぞ。
同時に書式も移すことは簡単でしょうが略。
（仮定等）
（１）Ｂｏｏｋ１（名前つけて保存したものを呼び出している）のＳｈｅｅｔ１のＡ列－－＞Ｂｏｏｋ（名前をつけて保存する前）のＳｈｅｅｔ１へ書き出している。
（２）Ｂｏｏｋ１（名前つけて保存したものを呼び出している）のＳｈｅｅｔ２－－＞Ｂｏｏｋ（名前をつけて保存する前）のＳｈｅｅｔ１へ書き出している。
（３）質問ではＳｈｅｅｔ３も対象ですが、手抜き省略。
Ｄｉｍ、Ｓｅｔの追加、ＦｏｒＮｅｘｔ部コピーと手直しで直ぐ追加可能。
（４）質問ではＢｏｏｋ２のＢ列に移しますが、私のは
Ａ列に移してます。”Ａ”－－＞”Ｂ”に変えるだけです。
（５）Ｂｏｏｋ３（第３のブック）にはマクロを作成してません。どうしてそうする必要があるのか。
非常に難しくなるかどうか判りません。
（６）物足りないロジックです（コピーメソッドも使っていません）。しかし他ブックの参照法や、保存前のブックを対象にするなど、他の面で私にとって手探りでテストした面があり、参考までに載せます。
このＶＢＡは、新規ブックの側（ＢＯＯＫ１）に書いています。
Sub test01()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim sh3 As Worksheet
Set sh1 = Workbooks("Book1.xls").Worksheets("sheet1")
Set sh2 = Workbooks("Book1.xls").Worksheets("sheet2")
Set sh3 = Workbooks("Book1").Worksheets("sheet1")
j = 1
For i = 1 To 65000
If sh1.Cells(i, "A") = "" Then GoTo p01
' MsgBox sh1.Cells(i, "A")
sh3.Cells(j, "A") = sh1.Cells(i, "A")
j = j + 1
Next i
p01:
For i = 1 To 65000
If sh2.Cells(i, "A") = "" Then GoTo p02
' MsgBox sh2.Cells(i, "A")
sh3.Cells(j, "A") = sh2.Cells(i, "A")
j = j + 1
Next i
p02:
End Sub

お礼

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

回答No.2

Hageoyadi

マクロの記録でイケます。
「・・・で貼り付けたものの次行から」については
A65536セルを選択して[Ctrl]+[↑]キーを押した操作で、そのセルの行をRowプロパティを使って取得することができます。
lastRow = Range("A65536").End(xlUp).Row
ですね。

お礼

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

回答No.1

kotetsu2

単純にBook1の各シートのＡ列データをBook2の
シート１のＢ列に順番に貼り付けていく処理の
ようですが

>以下のマクロを教えて下さい。
ではなく「マクロを作ってくれ」的な内容のようです
がご自分ではどの程度努力されて、不明な点はどの
部分なのでしょうか？

想像できる部分としては
　Book2　Sheet1のＢ列で[2]以降での処理の時の
　貼り付け行の取得ぐらいですが・・・たぶん