|
▼Jaka さん:
>よく見ないでレスしちゃったけど、「データ」の値がごっちゃになっていませんか?
>どのブック対象かはっきりさせた方がいいと思います。
データの値は大丈夫のようです。
Jakaさんに頂いたコードと xlvalues で値の貼り付けはうまくいきました。
ありがとうございます。
データ = Range("A4").End(xlDown).Row
Dim File1 As Workbook
Set File1 = Workbooks.Open(Filename:="D:\Book2.xls")
File1.Worksheets("Sheet1").Range("A4:A" & データ).Copy _
sh1E = Worksheets("Sheet1").Range("A1").end(xlup).row + 1
Workbooks("Book1.xls").Worksheets("Sheet1").Range("A" & Sh1E).PasteSpecial Paste:=xlValues
File1.Close
データの最後尾へ移動させて続きを行う方法をもう少し考えてみます。
ご教授よろしくお願いします。
|
|