|
▼山中成利 さん:
こんばんは
転記元のシート名を"Sheet1"にしてあります。
Sample1 は 1〜100 を。Sample2 は data.xls 側のデータ行数分。
そして Sample3 は、もしかしたら、こういうこと? というコードです。
Sub Sample1()
Dim i As Long
Dim n As Long
Dim shT As Worksheet
Set shT = Workbooks("calculation.xls").Sheets("data2")
shT.Cells.ClearContents 'コピー前にコピー先をクリア
n = 100 'コピー行数指定
For i = 1 To 100 '1行目から100行目まで
shT.Rows(i).Value = Workbooks("data.xls").Sheets("Sheet1").Rows(i).Value
Next
End Sub
Sub Sample2()
Dim i As Long
Dim n As Long
Dim shT As Worksheet
Set shT = Workbooks("calculation.xls").Sheets("data2")
shT.Cells.ClearContents 'コピー前にコピー先をクリア
With Workbooks("data.xls").Sheets("Sheet1")
n = .UsedRange.Row + .UsedRange.Rows.Count - 1 'data.xls側のデータ最終行番号
For i = 1 To n '1行目から最終行まで
shT.Rows(i).Value = Workbooks("data.xls").Sheets("Sheet1").Rows(i).Value
Next
End With
End Sub
Sub Sample3()
Workbooks("data.xls").Sheets("Sheet1").Cells.Copy _
Workbooks("calculation.xls").Sheets("data2").Range("A1")
End Sub
|
|