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