ブック間の転記がうまくいかない

Question

ブック間の転記について教えてください。
ブックAにブックＢの情報を転記する作業をＶＢＡで行いたいのですがうまくいかない箇所があります。

ブックＡ、Ｂは同じフォルダに格納されています。
ブックＡにＶＢＡを書いています。

ブックＢを開き、シート１のＡ列をコピー
ブックＡのＡ２に貼り付ける
ブックＢを開き、シート２のＣ列をコピー
ブックＡの最終行＋１行目に貼り付ける※ここがうまくいかない

デバックしながら進めると、シート１の情報はうまく貼りつくのですが、
貼り付けた時の範囲選択が解除されず？範囲選択の色がついています。この為、シート２のA列もブックAのセルＡ２から貼りついてしまいます。
（シート１で貼り付けたものの上に上書きされてしまう）

貼付け先の行をnewrow =cells(rows.count,"A").end(xlup).row+1として
繋げていきたいのですが、どこが間違っていますでしょうか。

sub test()

dim fname as string
dim ws1,ws2 as worksheet

fname = dir(thisworkbook.path & "\B*.xlsx")
workbooks.open thisworkbook.path & "\" & fname

Set ws = ThisWorkbook.Worksheets("sheet1")
set ws1 = workbooks(fname).worksheets("sheet1")
set ws2 = workbooks(fname).worksheets("sheet2")


endrow = ws1.cells(rows.count,"A").end(xlup).row
endrow1 = ws2.cells(rows.count,"A").end(xlup).row
newrow = ws.cells(rows.count,"A").end(xlup).row + 1

ws1.Range("A2:A" & endrow1).copy
ws.Range("A" & newrow).pastespecial paste:=xlpastevalues
Application.CutCopyMode = False

ws2.Range("C2:C" & endrow1). Copy
’ここで、Ａ列の最終行＋１から貼付けたいのですが、デバックでみてみるとnewrowに2が入っていて
Ａ２から貼りついてしまう。
ws.Range("A" & newrow).PasteSpecial paste:=xlpastevalues
Application.CutCopy Mode = false

End sub

宜しくお願いします。

Answer 1

ws1,ws2を定義して処理していますから、記述は全てこのシート名を付けて記載した方が良いです。
cells、range、rowsという単体ではなく、
ws1.cells、ws1.range、ws1.rowsと言う様にします。
先ずは、どのシートか明確にした記述を行い、曖昧さを無くすことが必要と思います。
（下記参考URL）
https://teratail.com/questions/261430

Comments

[退会済みユーザー]

有難うございます。ほかにもミスがありましたので併せて修正しました。
が、やはりできません。
変数newrowがうまく動いていないようです。newrow =cells(rows.count,"A").end(xlup).row + 1で下に繋げていきたいのですが、どこが間違っていますでしょうか。

[tosi]

newrow =cells(rows.count,"A").end(xlup).row + 1
は
newrow =ws1.cells(ws1.rows.count,"A").end(xlup).row + 1
としないと駄目だと思います。
(ws1かｗｓ2にするかはプログラムを良く見ない分かりませんが･･･)

[退会済みユーザー]

ありがとうございます。
Set ws = ThisWorkbook.Worksheets("sheet1")を追加したので、
newrow =ws.cells(ws1.rows.count,"A").end(xlup).row + 1としてみたのですが、
最終行＋１が取得できませんでした、、、

[tosi]

ws.Select
ws.Cells(ws.Rows.Count, "A").End(xlUp).Select
newrow = Selection.Row+1
ではどうですか。
尚、ws1.rows.countはws.rows.countにした方が良いです。
(追記)
.end(xlup)は画面セル移動させるコマンドなので、selectでシートを選択させて処理前に画面を出す必要があるかも知れません。

[退会済みユーザー]

シート選択でできました！！
勉強になりました。ありがとうございました。