如何在 VBA 中使用循環來簡化程式碼

Question

首先，歡迎光臨。
其次，您可以輕鬆避免的第一件事就是if一遍又一遍地運行相同的內容。

因此，您可以只檢查一次，然後執行所有 13 件事，而不是檢查If Application.WorksheetFunction.IsText(Worksheets("Investor Data").range("E2"))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