在宏中设置范围时的VBA运行时错误1004“应用程序定义或对象定义错误”

Question

不幸的是，对于第一个项目来说，这很困难。

为了清晰起见（希望如此）：主要思想是我需要从下拉列表的开头开始，复制列出的第一个字符串，然后将该字符串粘贴到列中。这会改变右边相邻的数值数据。然后，我想选择这个新更改的数值数据，并将其复制粘贴到同一个工作簿中F列第一个空白处的不同工作表中。然后，我想让代码遍历下拉列表，并对下拉列表中的所有51个字符串执行此操作。但是，每次迭代都需要将偏移量粘贴3列，才能将数据复制到其他工作表中的正确列。

以下是我到目前为止的代码

Option Explicit

Sub PtComp()
'
' PtComp Macro
'

'
Dim List1 As String
Dim Range1 As Range
Dim Line1 As Range
Dim i As Integer
Dim Begin As Range


ActiveWorkbook.Sheets("Sample Data Summary").Activate
List1 = Selection
Set Range1 = Evaluate(ActiveSheet.Range(List1).Validation.Formula1)
For Each Line1 In Range1
    Selection.Copy
    ActiveSheet.Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.Paste
    ActiveCell.Offset(0, 1).Select
    ActiveSheet.Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    ActiveSheet.Selection.Copy
    ActiveWorkbook.Sheets("Pt Comparison").Activate
    Begin = ActiveSheet.Range("F1").End(xlDown).Offset(-1, 0)
    For i = 0 To 148 Step 3
    Begin.Offset(0, i).Select
    ActiveSheet.PasteSpecial Paste:=xlPasteValues
    Next i
    Next Line1

End Sub

Set Range1 = Evaluate(ActiveSheet.Range(List1).Validation.Formula1)

Answer 1

您的代码假定List1包含有效的范围地址，因此“示例数据摘要”工作表上的活动单元格包含有效的范围地址。

显然情况并不总是这样。搜索关于on Error语句的更多细节，以了解如何处理这种情况。

您需要了解如何避免在Excel VBA宏中使用Select，并知道在严格的循环中执行剪贴板操作几乎是在Excel-VBA中可以执行的最慢的操作。

Set Range1 = Evaluate(Selection.Validation.Formula1)