Question

我正在尝试根据单元格值将数据从一张纸复制到同一工作簿中的另一张纸：以下是我的代码，但是在编译时它给我一个应用程序1004错误，我没有任何线索。请他; lp

Sub COPY1()
     Dim lROW As Integer
     Dim rngFrom, rngTo As Range
     Sheets("LEL2230K").Activate
lROW = Sheets("LEL2230K").Cells(Rows.Count, "C").End(xlUp).Row
Set rngFrom = Sheets("LEL2230K").Range(Cells(6, "C"), Cells(lROW, "C"))
 Sheets("MASTER").Activate
Set rngTo = Sheets("Master").Range(Cells(7, "A"), Cells(lROW, "A"))
rngFrom.Copy rngTo


End Sub

Answer 1

我创建了两个名字相同的工作表。

我在工作表“ LEL2230K”的地址C6：C9中放入了一些数据：“ DATA1”，“ DATA2”，“ DATA3”，“ DATA4”

当我运行您的宏时，一切正常。但我对您的代码做了一些更改，请尝试一下：

Sub COPY1()

    Dim LEL2230K, MASTER As Worksheet

    Set LEL2230K = ThisWorkbook.Sheets("LEL2230K")
    Set MASTER = ThisWorkbook.Sheets("MASTER")

    LEL2230K.Range(LEL2230K.Cells(6, "C"), LEL2230K.Cells(LEL2230K.Cells(LEL2230K.Rows.Count, "C").End(xlUp).Row, "C")).Copy

    MASTER.Cells(7, "A").PasteSpecial

End Sub

我强烈建议您在其属性中命名工作表对象，并使用其名称作为参考。

根据单元格值将数据从一张纸复制到另一张纸

1 个答案: