查找三 (3) 个单独工作表中的最后一行。 VBA Excel 2007

Question

我一直在尝试编写一些代码，用于在 Excel 的工作表之间复制和插入数据。此过程的一部分涉及查找三张纸中每一张的最后一行或倒数第二行。但是在找到第一个工作表中的最后一行并激活第二个工作表后，程序不断给出错误 13：类型不匹配错误。我应该如何解决这个问题？

  Sub DeleteRow()

 Dim StartRow, Lastrow2, NuRow As Long
StartRow = 3
 Dim LastColumn As Long
 Dim LastRow As Long
 Dim LastCell As Long

Sheets("Sheet1").Activate
    'Search for any entry, by searching backwards by Rows.

LastRow = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows,  SearchDirection:=xlPrevious).Row

NuRow = LastRow - 1
Range(StartRow & ":" & NuRow).Select
Rows(StartRow & ":" & NuRow).Delete

Sheets("Sheet2").Activate
LastRow = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Range(1 & ":" & LastRow).Select
Selection.Copy

Sheets("Sheet1").Select
Selection.Insert Shift:=xlDown



    'Delete first two and last lines

Range("A1").Select
Rows("1:2").Delete
Range("A65536").End(xlUp).EntireRow.Delete Shift:=xlUp

Sheets("Sheet2").Activate
'Error 13: Type Mismatch -->Lastrow2 = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row  

Answer 1

下面是一些基于我对您想要执行的操作的解释的代码。您不需要选择单元格来使用它们，而且 99.9% 的情况下您确实不应该这样做。

Dim StartRow As Long

StartRow = 3

With Sheets("Sheet1")
    LastRow = .Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    .Rows(StartRow & ":" & LastRow - 1).Delete
End With

With Sheets("Sheet2")
    LastRow = .Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

    .Rows(1).Resize(LastRow).Copy
    .Rows(1).Resize(LastRow).Insert Shift:=xlDown

    .Rows("1:2").Delete

    .Range("A" & Rows.Count).End(xlUp).EntireRow.Delete Shift:=xlUp
End With

另外，在标注变量时，您应该这样标注：

Dim StartRow as long, Lastrow2 as long, NuRow As Long

在原始代码中，由于您只标注了最后一个变量，startrow 和 lastrow2 将是不长的变体数据类型。

Answer 2

如果您有连续的数据，则可以使用 CurrentRegion，或者如果您知道自己在 A 列中一直有数据，则可以使用

lrow = Range("A65000").end(xlup).row

来查找最后一行。