使用VBA根據條件將數據復制到另一個Excel工作簿

Question

我們有一本名為“退款自動化”的工作簿，我們在其中輸入日常交易。 我們希望提取包含條目“已歸檔”的所有行，並將其復制到“ masterdata”工作簿中。 另外，我們希望每天更新“ masterdata”工作簿，以便僅將“今天存檔”發布到“ masterData”工作簿中。 任何人都可以更正上面第2行未定義的變量代碼嗎

Sub myData()
Dim LastRow As Integer, i As Integer, erow As Integer
LastRow = ActiveSheet.Range(“A” & Rows.Count).End(xlUp).Row
For i = 2 To LastRow
If Cells(i, 24).Value = Date And Cells(i, 25).Value = “Done” Then
Range(Cells(i, 1), Cells(i, 25)).Select
Selection.Copy
Workbooks.Open Filename:="E\Brm\By Ram Final.xlsm"
Worksheets(“Sheet3”).Select
erow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ActiveSheet.Cells(erow, 1).Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.CutCopyMode = False
End If
Next i
End Sub

Answer 1

只需使用雙引號而不是反引號，它絕對可以正常工作。

Sub myData()
Dim LastRow As Integer, i As Integer, erow As Integer
LastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To LastRow
If Cells(i, 24).Value = Date And Cells(i, 25).Value = "Done" Then
Range(Cells(i, 1), Cells(i, 25)).Select
Selection.Copy
Workbooks.Open Filename:="E:\Brm\By Ram Final.xlsm"

Worksheets("DATA").Select
erow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ActiveSheet.Cells(erow, 1).Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.CutCopyMode = False
End If
Next i
End Sub