需要运行时错误“424”对象：Excel VBA

Question

I am very new to coding and I am trying to copy data's from one worksheet to another worksheet on a particular rows.

Sub copycolumns()
    Dim lastrow As Long, erow As Long
    lastrow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row '*/error shows here/*
    For i = 2 To lastrow
        Sheet1.Cells(i, 1).Copy
        erow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
        Sheet1.Paste Destination:=Worksheets("Sheet2").Cells(erow, 1)
        Sheet1.Cells(i, 3).Copy
        Sheet1.Paste Destination:=Worksheets("Sheet2").Cells(erow, 2)
        Sheet1.Cells(i, 6).Copy
        Sheet1.Paste Destination:=Worksheets("Sheet2").Cells(erow, 3)
    Next i
    Application.CutCopyMode = False
    Sheet2.Columns().AutoFit
    Range("A1").Select
End Sub

What I am missing in here?

Answer 1

Error 424 "object required" has only one reason to pop up on that line of code.

Option Explicit isn't specified, and Sheet1 isn't declared anywhere.

Look at the properties of your "Sheet1" module (F4), then note the value of the (Name) property:

The Name property is what you're seeing in Excel. The (Name) property isn't visible anywhere in Excel, and that value determines the name of a global-scope identifier that VBA declares automagically for you.

You can't do Sheet1.Cells(...) if no worksheet has a (Name) property value of Sheet1 .

But specify Option Explicit anyway. The reason for error 424 is that Sheet1 being undeclared, at run-time it's an implicit Variant with the default value of Empty , which isn't an object, thus against which a member call is illegal - only an object could ever possibly have a Cells member.

Protip: give the (Name) property a meaningful name, eg SummarySheet . Then you can do SummarySheet.Cells(...) .