将单元格从工作表复制到另一个工作表(从不同的工作簿和第一个空单元格)
我正在尝试将用户打开的工作表中的内容复制到另一个工作簿中的另一个工作表中。 下面的代码可以工作,但是它不会从WS_REL表中select第一个空单元格,并覆盖所有包含的数据。 到目前为止,我有这样的:
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
谢谢!
首先,您不需要打开另一个工作簿两次。 删除线
Workbooks.Open vTemp
然后,要追加而不覆盖,您需要在目标工作表中find最后一个非空单元格。 尝试像( 例如 ):
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)
这find你第一个非空行。