Excel vba：範囲の配列からセルにすべてのプロパティを割り当てます

Question

私の目標は、セルとすべてのプロパティと値を範囲の配列に保存し、このセルのすべてのプロパティと値を別のセルに書き戻すことです（コピー貼り付け機能のように、配列から貼り付ける）。ここで

は、簡単な試験手順です：

Sub Test() 
    Dim Range_Grid(1) As Range 
    Dim CellAdress As String 
    Dim i As Long 

    Set Range_Grid(1) = ActiveSheet.Cells(2, 3) 
    ActiveSheet.Cells(4, 1) = Range_Grid(1) 
End Sub 

だからここRange_Gridは、（1）、私は本当に完全な範囲が保存されますと、私はすべてのプロパティに元の範囲ActiveSheetにアクセスすることができ、配列の最初の要素インチ

しかし、この範囲を別の空のセルに書き込もうとすると、値が書き込まれるだけです。

配列のようにすべてのプロパティを書く方法シートからコピー/貼り付け？

Answer 1

アレイの範囲からすべての書式設定を一度にExcelに戻す方法はありません。これには2つのオプションがあります：Scott Cranerが提案したようにExcel内でコピーするか、各タイプの書式を個別にコピーするかのどちらかです。たとえば、あなたが（デフォルトであり、したがって、あなたの元のコードにコピーされたものである）の値と、セルの背景色をコピーしたい場合は、その後、次のコードを使用することができます。

Sub Test() 
    Dim Range_Grid(1) As Range 

    Set Range_Grid(1) = ActiveSheet.Cells(2, 3) 
    ActiveSheet.Cells(4, 1) = Range_Grid(1) 
    ActiveSheet.Cells(4, 1).Interior.ColorIndex = Range_Grid(1).Interior.ColorIndex 
End Sub 

残念ながらありますおそらく数十種類の書式設定を扱うことができます。

Answer 2

コピーと貼り付け機能を使用します。

Sub Test() 

    ActiveSheet.Cells(2, 3).Copy 
    ActiveSheet.Cells(4, 1).PasteSpecial(xlPasteAll) 

End Sub