将单元格从工作表复制到另一个工作表（来自不同的工作簿和第一个空单元格）

Question

我正在尝试将用户打开的工作表中的内容从另一个工作簿复制到另一个工作表。下面的代码确实有效，但它不会从WS_REL表中选择第一个空单元格，并覆盖包含的所有数据。到目前为止，我有这个：

Sub Importar_Dados()

Dim vTemp As Variant
Dim WB_TOA As Workbook, WB_REL As Workbook
Dim WS_TOA As Worksheet, WS_REL As Worksheet

Set WB_REL = ActiveWorkbook
Set WS_REL = WB_REL.Sheets("Planilha2")

vTemp = Application.GetOpenFilename("Excel-files,*.xlsx", _
    1, "Selecione o relatório gerado pelo TOA", , False)

If TypeName(vTemp) = "Boolean" Then Exit Sub
Workbooks.Open vTemp

Set WB_TOA = Workbooks.Open(vTemp)
Set WS_TOA = WB_TOA.Sheets("Page 1")

WS_TOA.Cells.Copy WS_REL.Cells

End Sub

谢谢！

Answer 1

首先，您不需要两次打开其他工作簿。删除行

Workbooks.Open vTemp

然后，要在不覆盖的情况下追加，您需要在目标表中找到最后一个非空单元格。试试（例如 ）：

WS_TOA.usedRange.Copy WS_REL.Range("A999999").End(xlUp).Offset(1)

如果您没有确保所有行都包含数据的列，请使用：

WS_TOA.usedRange.Copy WS_REL.Range("A" & WS_REL.Cells.Find("*", , , , xlByRows, xlPrevious).Row+1)

这会找到第一个非空行。