excel vba 为具有所有样式的变量赋值

Question

该代码在单击按钮时从 Q145:AE211 区域执行复制，并在每次单击按钮后以连续的方式粘贴到下一个单元格。问题是没有数据的区域 Q145:AE211 还包含单元格的所有样式 - 颜色、边框、自定义单元格宽度以及合并单元格格式。现在它只复制数据。如何将除“value”之外的所有内容分配给“arr”？

 Dim lastCol As Long, arr

 arr = Range("Q145:AE211").Value
 
 lastCol = Cells(1, Columns.Count).End(xlToLeft).Column + 16
 
 Cells(1, lastCol).Resize(UBound(arr), UBound(arr, 2)).Value = arr
 
 End Sub

Answer 1

这是我的代码的一个片段，粘贴值和格式，不确定它是否适合您。

    Sub CopyPasteRange

Range("B4:H60").Select         
    Selection.Copy
    Sheets("Sheet2").Select
    Range("B4").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False 
End Sub