VBA复制带格式的区域时怎么样才能既复制内容也可以复制格式？

[山间竹笋]

VBA复制带格式的区域时怎么样才能既复制内容也可以复制格式？我用的这个只能复制内容,需要在2个不同的工作簿之间复制。
ThisWorkbook.Sheets("汇总").Cells(2, 2).Resize(10,10) = wk.Sheets(“学生A”).Cells(2, 2).Resize(10,10).Value

[山间竹笋]

求高手，高手在哪里？

[山间竹笋]

ThisWorkbook.Sheets("汇总").Cells(2, 2).Resize(10,10) = wk.Sheets(“学生A”).Cells(2, 2).Resize(10,10).Value 只能复制数值，人民币的符号、百分号都复制不了

[Tiger_Zhao]

最后加一句

    Application.CutCopyMode = False

[of123]

用 Range 或 Cells 对象的 Cpoy、Paste 方法试试。

[山间竹笋]

能详细点吗？

[of123]

Sheets("Sheet2").Range("A1").Copy Sheets("Sheet1").Range("B4").Select ActiveSheet.Paste

[Tiger_Zhao]

    ThisWorkbook.Sheets("汇总").Cells(2, 2).Resize(10, 10).Copy
    wk.Sheets("学生A").Paste Destination:=wk.Sheets("学生A").Cells(2, 2).Resize(10, 10)

[山间竹笋]

[山间竹笋]

ThisWorkbook.Sheets("汇总").Cells(2, 2).Resize(10, 10).Copy wk.Sheets("学生A").Paste Destination:=wk.Sheets("学生A").Cells(2, 2).Resize(10, 10) 每次都要弹出对话框