VBA Excel粘贴到最后一个空单元格

Question

这是我的代码，它可以很好地用于提取数据。但是我需要更多来从另一个工作表中提取更多数据以进入最后一个空单元格，所以我将所有数据放在一起。

我可以使用相同的代码并更改名称，只需将粘贴定位到最后一个空行吗？

Sub Run1()

  Set wsInfoFrom = Worksheets("StowToPrimeWest")
  Set wsInfoTo = Worksheets("View")

  lastrow = wsInfoTo.Range("A" & wsInfoTo.Rows.Count).End(xlUp).Row

  wsInfoTo.Range("A1:A" & lastrow).ClearContents

  lastrow = wsInfoFrom.Range("A" & wsInfoFrom.Rows.Count).End(xlUp).Row

  Set copyRange = wsInfoFrom.Range("A1:A" & lastrow) 

  copyRange.SpecialCells(xlCellTypeVisible).Copy wsInfoTo.Range("A" & Rows.Count).End(xlUp).Offset(1, 0)

  Worksheets("View").Activate

End Sub

Answer 1

您可以克隆该代码，除了此行之外，它将执行您想要执行的操作：

wsInfoTo.Range("A1:A" & lastrow).ClearContents

清除“视图”表格中A列的所有内容，因此您应该只执行一次。