Question

excel vba 单元格区域从一个工作簿复制到另一个工作簿

Sub xx()
Dim rg As Range
Set rg = ActiveSheet.UsedRange
rg.Copy
Workbooks.Add
Range("A1").Select
ActiveSheet.Paste
End Sub

运行到ActiveSheet.Paste的时候,一闪即过,没粘贴成功

Answer 1

Sub xx()
Dim rg As Range
Set rg = ActiveSheet.UsedRange
rg.Copy
Workbooks.Add
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
End Sub

Answer 2

正常情况下
Range("A1").Select
会报错的
因为不知道这个
Range("A1").Select
的位置会报错

正确写法：
Sub xx()
Dim rg As Range
Set rg = ActiveSheet.UsedRange
rg.Copy
Dim a
Set a = Workbooks.Add
a.Sheets(1).Activate
a.Sheets(1).Range("A1").Select
ActiveSheet.Paste
End Sub

Answer 3

应该没问题的。
可能是你写代码的位置是工作表代码区，应该写在模块里。

Answer 4

ActiveSheet.UsedRange 空白？