Excel VBA中的子或函数未定义错误

Question

I am trying to run a code that I found also here. the code is removing duplicates on each column on each spreed sheet on a workbook treating it as a separate entity. whenever I try to run the code the compiler error says "sub or function not defined" and there is a yellow highlight on the most upper part and the "LastCell" got a blue highlight. I already add the solver reference but still it gives me the same error. I just can't figure out what the problem is if it's on the code or should I add another reference.

Sub Removeduplicates()

    Dim ws As Workbook
    Dim lLastcol As Long
    Dim lLastrow As Long
    Dim i As Long


    For Each ws In ThisWorkbook.Worksheets
        lLastcol = LastCell(ws).Column

        For i = 1 To lLastcol

            lLastrow = LastCell(ws, i).Row

            With ws
                .Range(.Cells(1, i), .Cells(lLastrow, i)).Removeduplicates Columns:=1, Header:=xlNo
            End With


        Next i

   Next ws

End Sub

Answer 1

Looks like lasy cell is the function you thought you had. We is the worksheet passed in. Thee function will use something like

Function lastcell(w as worksheet) as range
   Set Lastcell=w.range("a" & w.rows.count).end(xlup)

End function

Answer 2

After deciphering your code snippet, this is the best that I can come up with.

Function lastCell(ws As Worksheet, _
                  Optional c As Variant, _
                  Optional r As Variant) As Range
    With ws
        If IsMissing(c) And IsMissing(r) Then
            Set lastCell = .Cells.SpecialCells(xlCellTypeLastCell)
        ElseIf IsMissing(c) And Not IsMissing(r) Then
            Set lastCell = .Cells(r, .Columns.Count).End(xlToLeft)
        ElseIf IsMissing(r) And Not IsMissing(c) Then
            Set lastCell = .Cells(.Rows.Count, c).End(xlUp)
        Else
            Set lastCell = .Cells(r, c)
        End If
    End With
End Function

Copy that code to a module code sheet in your VBA project. It can tested with a short sub procedure like the following.

Sub test()
    Dim ws1 As Worksheet

    Set ws1 = ActiveSheet

    Debug.Print lastCell(ws1).Address(0, 0)      '<~~ last cell on worksheet
    Debug.Print lastCell(ws1, 3).Address(0, 0)   '<~~ last used cell in column C
    Debug.Print lastCell(ws1, , 4).Address(0, 0) '<~~ last used column on row 4
End Sub

Answer 3

如果您在此处引用Darren Bartrup-Cook的解决方案，请确保将函数LastCell也复制到您的代码中。