Sub 宏1() Range("E1:G10") = Range("A1:C10").Value '相当于粘贴值 Range("E1:G10") = Range("A1:C10").Formula '相当于粘贴公式 End Sub