Excel 2003 中的宏代码在 2007 年不起作用

Question

此代码在 Excel 2003 中运行良好，但在 Excel 2007 中失败。我在其中没有看到什么导致它崩溃？当它到达 "LastRow =".. 这是我的错误信息： 运行时错误 13 类型不匹配

 Dim LastRow As Long
 Dim LastColumn As Integer
 Dim LastCell As Range, NextCell As Range

'  ****************************************************
    '  Finds LastRow and LastColumn
    With Worksheets("DB")
     '  Find Last Row/Col
          If WorksheetFunction.CountA(Cells) > 0 Then
     ' Search for any entry, by searching backwards by rows
             LastRow = Cells.Find(What:="*", After:=[A1], _
                 SearchOrder:=xlByRows, _
                 SearchDirection:=xlPrevious).Row
     ' Search for any entry, by searching backwards by columns
             LastColumn = Cells.Find(What:="*", After:=[A1], _
                 SearchOrder:=xlByColumns, _
                 SearchDirection:=xlPrevious).Column
          End If
       Set NextCell = Worksheets("DB").Cells(LastRow + 1, (LastColumn))
    End With
 '  ****************************************************

发现错误。猜猜我复制了 Lastrow 并打算将第二个更改为列。但这仍然不能解决第一个块的问题。将最后一部分编辑为列时的操作我看到我可能在 .Rows 中输入了一个额外的“s”看起来应该是 .Row 我会看到什么时候我回家了，因为我在工作中的硬拷贝没有显示“s”。猜猜这就是我回家后尝试“记住”代码时得到的结果。 “s”还是“s”，这是个问题。大声笑至少我想我用一点点戳头就解决了。谢谢悉达多。

Answer 1

您确定它适用于 Excel 2003 吗？

您必须使用.Row 而不是.Rows。见This

您的代码也会失败，因为您的 LastColumn=0

这是你正在尝试的吗？

Sub Sample()
    Dim LastRow As Long
    Dim LastColumn As Integer
    Dim NextCell As Range

    With Worksheets("DB")
        If WorksheetFunction.CountA(Cells) > 0 Then
            '~~> Find Last Row
            LastRow = Cells.Find(What:="*", After:=[A1], _
            SearchOrder:=xlByRows, _
            SearchDirection:=xlPrevious).Row

            '~~> Find Last Column
            LastColumn = Cells.Find(What:="*", After:=[A1], _
            SearchOrder:=xlByColumns, _
            SearchDirection:=xlPrevious).Column
        End If

        '~~> Set the cell to the first empty cell after the last cell
        '~~> which has data
        Set NextCell = Worksheets("DB").Cells(LastRow + 1, (LastColumn))

        '~~> Display the address of that cell
        MsgBox NextCell.Address
    End With
End Sub