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

'复制工作表中的数据＆＃34; Total＆＃34;

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项目如何组合在一起，您可能希望使用Sheets("Total")方法清除.ClearContents或其子集的全部内容。

Answer 2

它在Excel中用作Ctrl + Shift +向下（箭头）和Ctrl + Shift +向右（箭头）。现在它还可以，它只能用作列表。我真的很感激你的建议。我是一个新的VBA和Stack Overflow用户，这个社区非常有用，因为你所有的贡献。

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

2 个答案: