|
いまアクティブなシートの[B1]セルを含む表範囲を配列に入れ、
指定シートに貼り付ける...
イメージとして、こんな処理を想定しましたが、いかがでしょうか?
Public Sub tryA()
Dim ArrayData As Variant
'表範囲を配列に取り込む
ArrayData = Range("B1").CurrentRegion.Value
'このBookのSheet1に配列データを貼りつける
ArrayToSheet ArrayData, ThisWorkbook.Worksheets("Sheet1")
End Sub
'配列データを指定ワークシートの[A1]セルから貼り付け
Public Sub ArrayToSheet(ArrayData As Variant, ws As Excel.Worksheet)
Dim RowNum As Long
Dim ColNum As Long
RowNum = UBound(ArrayData, 1)
ColNum = UBound(ArrayData, 2)
With ws
.UsedRange.Clear
.Cells(1).Resize(RowNum, ColNum).Value = ArrayData
End With
End Sub
|
|