| |
いまアクティブなシートの[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
|
|
kanabun
- 15/6/15(月) 23:17 -
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
