Excel宏 - 仅将非空单元格从一个工作簿粘贴到另一个工作簿

Question

我尝试从一个工作簿中复制单元格并附加到另一个工作簿中但排除没有值的单元格。它不是一个简单的复制和粘贴，因为我试图复制的单元格中包含公式，但有些没有价值。

我从这篇文章中重新定位了宏（Excel macro - paste only non empty cells from one sheet to another）。当两张纸都放在同一张工作簿中时它起了作用，但是当纸张放在不同的工作簿中时，它没有给我我想要的东西。我跑的时候没有收到任何错误，所以我不确定我错过了什么或做错了什么？

Sub copy_non_blank()

Dim a As Workbook, b As Workbook

Set a = Workbooks("Book1")
Set b = Workbooks("Book2")

Dim i As Integer, j As Integer

lastRow = a.Sheets("destination").Cells(Rows.Count, 1).End(xlUp).Row 
j = lastRow + 1
For i = 3 To 100
   If b.Sheets("origin").Cells(i, 1).Value <> "" Then
     a.Sheets("destination").Cells(j, 1).Value = b.Sheets("origin").Cells(i, 1).Value
      j = j + 1
   End If
Next i

End Sub