用于根据组合框项复制和粘贴的Excel宏

我在excel中有一个comboboxin，根据其中选择的项目，我想将数据从一张工作表复制到另一张工作表。下面是我运行它时得到的“运行时错误1004”代码的一部分。我是VBA中的一个启动程序

Private Sub ComboBox1_Change()

     Dim firstLimit As Integer
     Dim secondLimit As Integer
     firstLimit = 2
     secondLimit = 2

     Application.ScreenUpdating = False
     Worksheets("output").Range("A2:U2").Value =   Worksheets("Input").Range(Cells(firstLimit, "A"), Cells(secondLimit, "U")).Value
     Application.ScreenUpdating = True


     End Sub

---

谢谢

错误是由对

单元格

的非限定调用引起的。在代码中，这些将引用活动工作表。如果这不是“输入”，则会发生错误

改为

Sub ComboBox1_Change()
    Dim firstLimit As Integer
    Dim secondLimit As Integer
    firstLimit = 2
    secondLimit = 2

    Application.ScreenUpdating = False
    With Worksheets("Input")
        Worksheets("output").Range("A2:U2").Value = .Range(.Cells(firstLimit, "A"), .Cells(secondLimit, "U")).Value
    End With
    Application.ScreenUpdating = True


End Sub

注意

范围之前的
，以及两个
单元格