使用重复/循环缩短 VBA 代码

Question

如何缩短此代码以重复任务，但占用更少空间？这段代码需要为另外 27 个用户运行。我知道我现在完全是个菜鸟，但这可以减轻我每天一个多小时的工作量......

---

Workbooks.Open ("https://blabla/Edgars/2017 Q3Q4/Edgars.xlsx")
Workbooks("Edgars.xlsx").Activate

Range("C24:AN27").Select
Selection.Copy
Workbooks("abc.xlsx").Activate
Sheets("Edgars").Activate
Range("C24:AN27").Select
ActiveSheet.Paste
Workbooks("Edgars.xlsx").Activate
Sheets("Edgars").Activate
Range("C33:AN36").Select
Selection.Copy
Workbooks("abc.xlsx").Activate
Sheets("Edgars").Activate
Range("C33:AN36").Select
ActiveSheet.Paste
Workbooks("Edgars.xlsx").Activate
Sheets("Edgars").Activate
Range("C42:AN45").Select
Selection.Copy
Workbooks("abc.xlsx").Activate
Sheets("Edgars").Activate
Range("C42:AN45").Select
ActiveSheet.Paste

Workbooks("Edgars.xlsx").Activate
Sheets("Edgars").Select
ActiveWindow.SelectedSheets.Delete
Workbooks("abc.xlsx").Activate
Sheets("Edgars").Select
Sheets("Edgars").Copy Before:=Workbooks("Edgars.xlsx"). _
    Sheets(1)
Workbooks("Edgars.xlsx").Activate
Range("A1").Select
ActiveWorkbook.SaveAs Filename:="https://blabla/Edgars/2017 Q3Q4/Edgars.xlsx"
ActiveWorkbook.Close
Workbooks("abc.xlsx").Activate
Worksheets("TOOLS").Activate

Application.DisplayAlerts = True
Else
End If

---

Answer 1

在开始处理循环或缩短代码之前，您需要重新了解如何避免在 VBA 中使用 Select 和 Activate。当前形式的代码难以阅读或改进，因为您使用了很多隐式关系。

例如：

Workbooks("Edgars.xlsx").Activate
Sheets("Edgars").Activate

其实是：

Application.Workbooks("Edgars.xlsx").Activate
ActiveWorkbook.Sheets("Edgars").Activate

并且可以改为：

Application.Workbooks("Edgars.xlsx").Worksheets("Edgars").Activate

当然，这并不能消除Activate 问题，如果“Edgars.xlsx”不是打开的工作簿，您无疑会遇到问题。这个例子不是为了解决你的问题，它只是为了给你指明正确的方向。

一旦您重构代码以消除使用Activate、Select 和隐式（非限定）引用，您就可以开始使用字符串变量。像这样的代码是有效的：

Dim UserName as String
UserName = "Edgars"
Application.Workbooks(UserName & ".xlsx").Worksheets(UserName).Activate

这使您的代码具有更大的灵活性，并让您更进一步。

我的建议是从这里开始：How to avoid using Select in Excel VBA macros。阅读这篇文章后，请尝试在您的代码中实现这些步骤。然后阅读更多内容并重试。

学习正确 VBA 需要花费一些时间，但如果你能很好地学习如何编写 VBA，你可以节省更多的时间，而不仅仅是一个小时（假设您将 Excel 用于多个流程）。

祝你好运！