将单元格从工作表复制到另一个工作表(从不同的工作簿和第一个空单元格)

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)

这将为您找到第一个非空行。