Question

我是VBA的新手，我非常感谢你的帮助。作为我研究的一部分，我需要自动完成我正在做的任务。

我有两个工作簿，一个有多个电子表格（一个用于每个声音测量，其名称为Matlab Contours_Extracted_20170815.xlsx），另一个，我需要合并第一个电子表格中的第一个列（它被称为Mat-lab Contours consolidated.xlx）。

我设法得到了自动一对一的复制和粘贴过程，并且它正在工作，但我希望它能够直到它到达文档的末尾（并且它不是一个固定的数量）张）。

以下是我的代码，以下是我的问题：

如何循环播放，所以它会遍历所有电子表格直到结束？
如何让它从第一个开始（我有它，但我现在丢失了，它直接跳到Sheet + 1）。这不是一个大问题，但最有帮助。
最后如何让它将光标留在第一行的最后一个空单元格而不是第一行？在这种情况下，我故意放置1,1，因为我试图把它放到最后并失败。但我最终会喜欢它。：）

我非常感谢任何人的帮助！非常感谢！：）

以下是代码：

Windows("Matlab Contours_Extracted_20170815.xlsx").Activate
Columns("A:A").Select
Selection.Copy
Windows("Matlab Contours consolidated.xlsx").Activate
Selection.ColumnWidth = 12.17
c = Cells(1, 1).End(xlToRight).Column + 1
Cells(1, c).Select
ActiveSheet.Paste
Windows("Matlab Contours_Extracted_20170815.xlsx").Activate
Sheets(ActiveSheet.Index + 1).Activate
Columns("A:A").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Matlab Contours consolidated.xlsx").Activate
ActiveSheet.Paste
Selection.ColumnWidth = 14.17
Rows("1:1").Select
Application.CutCopyMode = False
With Selection
    .WrapText = True
    .Orientation = 0
    .AddIndent = False
    .ShrinkToFit = False
    .MergeCells = False
End With
Range("A1").Select
End Sub

如何使Excel VBA循环直到它到达数据末尾

0 个答案: