如何使用 VBA 中的 LOOPS 简化代码

Question

首先，欢迎。
其次，您可以轻松避免的第一件事就是if一遍又一遍地重复同样的事情。

因此，您不必检查If Application.WorksheetFunction.IsText(Worksheets("Investor Data").range("E2"))13 次，每次只做一件事，而是只检查一次，然后做完所有 13 件事。

然后，当然就是你问的部分，循环。
有很多地方可以让你了解如何以不同的方式进行循环，但只要我们有模式，我们就可以进行循环。

因此对于第一部分，E2您可以有一个像这样的循环；

If Application.WorksheetFunction.IsText(Worksheets("Investor Data").Range("E2")) = True Then
j = 114
For i = 3 To 15
    Worksheets("Investor Data").Range("E" & i).copy Worksheets("Data Base").Range("C" & j & ":C" & j + 6)
    j = j + 7
Next i
End If

这将通过指示的 E3-E15 for loop，通过使用的变量替换行号。（附注：您不应该也复制 E2 吗？） 可能还有一些更好的方法来实现它，但这是一个简单循环的例子。

由于每列的行数不同，我们不能只是把它放到一个更大的循环中然后就完事了。

您可以做一些较小的循环，但目前我把这件事留给您自己决定。祝您好运。

编辑

一条评论谈论的是函数，这是一种多次执行同一件事但使用更少代码的方法。

Sub callCopy()

Dim startRow As Long
startRow = 114
Call copySub(startRow, "E", 15)
Call copySub(startRow, "F", 5)
Call copySub(startRow, "G", 6)
Call copySub(startRow, "H", 13)
Call copySub(startRow, "I", 5)
Call copySub(startRow, "J", 8)
Call copySub(startRow, "K", 11)
Call copySub(startRow, "L", 7)

End Sub

第一个子程序调用第二个私有子程序。这本来可以是一个函数，但当你想返回某些内容时，就会用到它们。相反，我们使用私有子程序：

Private Sub copySub(startRow As Long, iCol As String, iRows As Long)
Dim i As Long
If Application.WorksheetFunction.IsText(Worksheets("Investor Data").Range(iCol & "2")) = True Then
For i = 2 To iRows
    Worksheets("Investor Data").Range(iCol & i).copy Worksheets("Data Base").Range("C" & startRow & ":C" & startRow + 6)
    startRow = startRow + 7
Next i
End If

End Sub

第二个子程序只是我的第一个示例，但加入了更多变量。调用子程序时，这些变量将被设置在括号中。
我将数据库中 C 列的固定数字替换为变量，这样计算起来会更容易。但如果这更适合您的需求，您可以在调用时将其更改为固定数字。

Answer 1