VBAmacros无法find与ActiveCell最后使用的单元格

我想通过查找最后一个不为空的单元格，将一个（src）工作簿中的某些值复制到我的（dst）工作簿中。

在我的情况下，复制粘贴工作正常，直到src工作簿没有条目。

我的macros观结果如下所示：

Header - |email |Name |origin 1.row - |email3 |Name2 |CH3 2.row - |email2 |empty |ch2 

我所期望的是：

 Header - email |Name |origin 1.row - email3 |x |CH3 2.row - email2 |Name2 |ch2 

我的代码块：

 Workbooks.Open (Filepath & MyFile) Range("A2").Copy ActiveWorkbook.Close savechanges:=False erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row ActiveSheet.Paste Destination:=Worksheets("AP217").Range(Cells(erow, 1), Cells(erow, 1)) If ActiveCell.Value = "" Then ActiveCell.Value = "x" End If 

如果有人能提供build议，那将会很棒。

干杯

Answer 1

我只是简单地处理错误，像这样：

 erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row On Error Resume Next ' ADD THIS LINE ActiveSheet.Paste Destination:=Worksheets("AP217").Range(Cells(erow, 1), Cells(erow, 1)) On Error GoTo 0 ' ADD THIS LINE -- this cancels the "Resume next", just in case...