excel - VBA复制粘贴-停在空白处-范围问题

Question

在 VBA 中不强，但已将此宏设置为从工作表中复制（停在空白值处）并在最后一组值之后粘贴到另一张工作表中，效果很好。

问题是我需要将复制范围更改为此 ws.Range("AF3:AQ" & LastRow).Copy

这样做时，它只复制前 3 行然后停止。我可以将范围固定为 AF3:AQ59，但其中包含不理想的空白。任何帮助将不胜感激。

问候

Sub DBMeters()
  Dim ws As Worksheet, ws1 As Worksheet
  Dim LastRow, LRow As Long
  Set ws = Sheets("DB_Sort")
  Set ws1 = Sheets("DB Input")
  LastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
  LRow = ws1.Cells(Rows.Count, 1).End(xlUp).Row

  ws.Range("A3:L" & LastRow).Copy
  ws1.Range("A" & LRow + 1).PasteSpecial xlPasteValues
End Sub

标签： excelcopy-paste