Application.Goto循环
Application.Goto循环
提问于 2015-08-17 19:15:50
我正在尝试构建一个函数，该函数可以从一个电子表格中复制值，并将它们粘贴到另一个电子表格中进行分析。直到"US_CAD_EquipCharges1“的所有内容都能工作，但是我收到了一个运行时错误1004，”该命令不能用于多个选择“。
下面是代码，我不知道这意味着什么。
Sub CrewRates()
Application.Goto reference:="CAD_NU_CrewRates"
Selection.Copy
Sheets("Summary").Select
Range("B4").Select
ActiveSheet.Paste
Application.Goto reference:="US_NU_CrewRates"
Selection.Copy
Sheets("Summary").Select
Range("E4").Select
ActiveSheet.Paste
Sheets("_6a_US_CAD_Conventional").Select
Application.Goto reference:="NDE_Regions"
Selection.Copy
Sheets("Summary").Select
Range("B2").Select
ActiveSheet.Paste
Application.Goto reference:="US_CAD_EquipCharges1"
Selection.Copy
Sheets("Summary").Select
Range("I4").Select
ActiveSheet.Paste
Application.Goto reference:="US_CAD_EquipCharges2"
Selection.Copy
Sheets("Summary").Select
Range("I4").Select
ActiveSheet.Paste
Application.Goto reference:="US_CAD_EquipCharges3"
Selection.Copy
Sheets("Summary").Select
Range("I4").Select
ActiveSheet.Paste
Sheets("_6a_US_CAD_Conventional").Select
Application.Goto reference:="NDE_Regions"
Selection.Copy
Sheets("Summary").Select
Range("I2").Select
ActiveSheet.Paste
Call VendorNames
Columns("A:H").Select
Columns("A:H").EntireColumn.AutoFit
End Sub回答 1
Stack Overflow用户
回答已采纳
发布于 2015-08-17 19:36:03
我假设"US_CAD_EquipCharges1"是一个命名的范围，它是由单子上绝望的范围组成的。
不可能复制由不同大小的较小的绝望范围组成的范围，例如一个块是3行，另一个是5行。为了避免错误，您需要调整命名范围，使其成为单个单元格。
我有一个名为ourRangeX的命名范围，定义为this =Sheet3 3！$F$8：$G$11，Sheet3!$J$6:$K$8
这个运行正常
Sub foo2()
Range("ourRangeX").Select
End Sub这是失败的
Sub bar2()
Range("ourRangeX").Select
Range("ourRangeX").Copy
End Sub您能编辑命名范围US_CAD_EquipCharges2以使其符合上述规则吗？
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/32058005
复制相关文章
相似问题
腾讯云开发者
