Sub Macro1()
Dim MyRange As Range '定义Range型的变量
Set MyRange = Range("A1:C3") '用Set命令将对象赋值给变量
MyRange.Copy
Cells(5, 1).Select '选中A5单元格
ActiveSheet.Paste '粘贴
End Sub
GoodLuck!
Dim a As Variant
a = Range(
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024