將數據復制到最后一行和最后一列

Question

我試圖將所有數據從多個工作簿復制到一個工作簿，並將它們分發到不同的工作表。

如何更改下面的代碼以自動選擇具有值的最后一行和最后一列的數據，然后復制它們而不是聲明范圍？

For i = 16 To ws.Range("I" & Rows.Count).End(xlUp).Row 'Sheet1 is MasterSheet
    File = ws.Range("C" & i) & ws.Range("I" & i) 'File Location and Excel Name
    Copy = ws.Range("U" & i) & ":" & ws.Range("V" & i) 'Range to be copied
    Workbooks.Open File, 0, 1 'Open File as Read Only
    Range(Copy).Copy
    ThisWorkbook.Sheets(ws.Range("W" & i).Value).Cells(Rows.Count, 1).End(xlUp)(2).PasteSpecial 12 'Paste as Values only
    ActiveWorkbook.Close False 'Close WorkBook without saving
    Selection.Value = Selection.FormulaR1C1 'Force F2 and Enter selected range

    Range("A1").Select

Next i

Answer 1

您的解決方案效果很好，保羅。 不久前，我對該主題進行了大量研究，發現這些方法是最快，最簡單的方法。 我認為Excel在這些方面不是很好，因此我一直嘗試堅持基礎知識。

僅有兩條評論：

• 我不會使用.UsedRange.Copy ，因為它將返回曾經使用過的單元格范圍。

• 我也將盡量避免使用.select 。 您可以在如何避免在Excel VBA中使用“選擇”中找到有關如何避免這種情況的示例。