如何在 2 个不同的工作簿之间合并数据

Question

我需要在不同的工作簿(控股和子公司(之间合并 2 名学生的注册。因此，当我单击"生成图形"按钮时，数据将合并到"总计"表中，然后计算课程数量(Excel，Word，Access...(，并在工作表"图形"中生成图形。第一个测试还可以，但是当我再次单击时，列表正在增加，与子公司工作簿相同的数据。代码中有一些我需要更改的内容，但我不知道是什么。你能帮我吗？我的代码是：

Sub GerarGrafico()
Dim k As Long
'copying data of the “Course Booking” Sheet
Sheets("Course Booking").Select
Range("A1").Select
linini = 2
'Select the last row
Selection.End(xlDown).Select
linfin = Selection.Row
'Select the last column
Selection.End(xlToRight).Select
colfin = Selection.Column
Range(Cells(linini, 1), Cells(linfin, colfin)).Select
Selection.Copy

'复制工作表"总计"中的数据

Sheets("Total").Select
Cells(linini, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
‘Copying data of the  “reserva filial.xlsm”
caminho = ThisWorkbook.Path
Workbooks.Open caminho & "" & "reserva filial.xlsm"
'copying data
Range("A1").Select
linini2 = 2
'Select the last row
Selection.End(xlDown).Select
linfin2 = Selection.Row
'Select the last column
Selection.End(xlToRight).Select
colfin2 = Selection.Column
Range(Cells(linini2, 1), Cells(linfin2, colfin2)).Select
Selection.Copy
Windows("Trabalho_Felipe Granado_v8.xlsm").Activate
Sheets("Total").Select
'Select the last row with value
    Selection.End(xlDown).Select
    k = ActiveCell.Row + 1
Cells(k, 1).Activate

Application.Windows("reserva filial.xlsm").Visible = False
'pasting data "reserva filial.xlsm" in the sheet "Total"
ActiveSheet.Paste
Application.CutCopyMode = False
   Columns.HorizontalAlignment = xlCenter

Answer 1

代码的这一部分导航到工作表中数据的末尾

'Select the last row with value
    Selection.End(xlDown).Select
    k = ActiveCell.Row + 1
Cells(k, 1).Activate

然后粘贴"reserva filial.xlsm"数据。

它在第一次传递时工作正常，但第二次运行代码时，您(正确(粘贴第一个工作簿数据，将第二个工作簿数据留在其下方，导航到数据的末尾，然后重新粘贴第二个工作簿数据。

根据 Excel 项目组合在一起的方式，您可能希望使用 .ClearContents 方法清除Sheets("Total")的全部内容或项目子集。

Answer 2

它在Excel中用作Ctrl + Shift + Down(箭头

(和Ctrl + Shift + Right(箭头(。现在没关系，它只能用作列表。我非常感谢您的建议。我是一个新的VBA和堆栈溢出用户，这个社区非常有用，因为您的所有贡献。