最後一行，行和範圍複製從多個工作表粘貼到一個工作表

Question

我有多個工作表從ODBC中抽取數據，並定期更新。這些表單中的每一個跟蹤不同的事物例如，「檢查」選項卡跟蹤所有檢查交易，「CreditCardCharge」選項卡跟蹤所有CC交易...等。我爲所有工作表創建了相同的標籤。例如日期，參考編號，帳戶名稱，備註，金額等等。我需要將所有這些工作表映射到一個主數據轉儲單，只要我更新文件。

這是工作流程：

• 清除在「LP_DataDump」選項卡中的所有數據從A2開始
• 複製從A3「檢查」選項卡中的數據山口Ĵ結束行
• 粘貼複製的數據，以「LP_DataDump」從A2
• 複製「CreditCardCharge」標籤從A3數據開始山口Ĵ結束行
• 粘貼複製的數據爲「LP_DataDump」從最後一個空行開始

我從下面開始，但它不起作用。

任何人都可以建議嗎？

Sub CopyCheckValue() 

Dim Check As Worksheet 
Dim LastRow As Long 

Set Check = Sheets("Check") 
LastRow = Check.Cells(Check.Rows.Count, "A").End(x1Up).Row 

Check.Range("A3:J" & LastRow).Copy _ 
     Destination:=Worksheets("LP_DataDump").Range("A2") 

End Sub 

Answer 1

工作表「檢查」是否只包含您的數據？我可以猜測，是否由於.End方法跳過您的數據？如果「檢查」工作表中的最後一行是您的數據，則.End方法將查找其上方的結尾。

LastRow = Check.Cells(Check.Rows.Count, "A").End(x1Up).Row 

要這樣：

LastRow = Check.Rows.Count 

如果列A和B是空的，而C列至J沒有公式，但只有數據的公式，我會推薦下面的代碼，假設有將始終是從C3開始的數據，並且在C3和結束之間沒有空單元格。

LastRow = Check.Cells(3, "C").End(xlDown).Row 

如果中間存在空單元格或其他列中的公式，則使用LastRow作爲第一個建議。然後使用循環將值分配到另一個工作表中，而不是複製並粘貼整個範圍。

PasteRow = 2 
For RowCounter = 3 to LastRow 
    If Check.Cells(RowCounter, "A") <> "" Then 
     Check.Range(Cells(RowCounter, "A"),Cells(RowCounter, "J")).Copy 
     Worksheets("LP_Datadump").Cells(PasteRow,"A").PasteSpecial Paste:= xlPasteValues 
     PasteRow = PasteRow+1 
    End If 
Next 

如果你有很多行，我會在複製之前建議過濾，這樣可以避免循環。假設您希望根據列A對其進行過濾，則代碼如下。

LastRow = Check.Rows.Count 
Check.Range("A3:J" & LastRow).AutoFilter Field:=1, Criteria:="<>" 
Check.Range("A3:J" & LastRow).Copy 
Worksheets("LP_Datadump"_.Cells(2, "A").PasteSpecial Paste:= xlPasteValues 
Check.Range("A3:J" & LastRow).AutoFilter Field:=1