Wie kann ich meinen Code mithilfe von LOOPS in VBA vereinfachen?

Question

Zunächst einmal: Herzlich willkommen. Und zweitens: Das Erste, was Sie ganz einfach vermeiden könnten, ist , immer wieder
dasselbe zu wiederholen .if

Anstatt also If Application.WorksheetFunction.IsText(Worksheets("Investor Data").range("E2"))13 Mal zu prüfen und jedes Mal eine Sache zu tun, könnten Sie es nur einmal prüfen und alle 13 Dinge tun.

Dann kommt natürlich der Teil, nach dem Sie gefragt haben, das Loopen.
Es gibt viele Stellen, an denen Sie nachlesen können, wie man Dinge auf verschiedene Weise loopt, aber solange wir ein Muster haben, können wir einen Loop machen.

Für den ersten Teil E2könnten Sie also eine Schleife wie diese haben;

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

Dies erfolgt durch die von vorgegebenen Schritte E3-E15 for loop, indem die Zeilennummer durch die verwendete Variable ersetzt wird.(Randbemerkung: Sollten Sie nicht auch E2 kopieren?) Es gibt wahrscheinlich noch bessere Möglichkeiten, dies zu tun, aber dies ist ein Beispiel für eine einfache Schleife.

Da die Zeilenanzahl in jeder Spalte unterschiedlich ist, können wir das nicht einfach in eine größere Schleife einfügen und es dabei belassen.

Du könntest ein paar kleinere Schleifen machen, aber das überlasse ich jetzt dir. Viel Glück.

bearbeiten

In einem Kommentar geht es um Funktionen, die eine Möglichkeit wären, dasselbe oft zu tun, aber mit viel weniger Code.

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

Dieses erste Sub ruft das zweite private Sub auf. Dies hätte eine Funktion sein können, aber diese werden verwendet, wenn Sie etwas zurückgeben möchten. Stattdessen verwenden wir ein privates 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

Das zweite Sub ist nur mein erstes Beispiel, aber mit mehr Variablen. Diese werden dann beim Aufruf des Subs in die Klammern gesetzt.
Ich habe die festen Zahlen für die Spalte C in der Datenbank durch eine Variable ersetzt, damit die Berechnung einfacher wird. Aber du kannst sie beim Aufruf einfach in eine feste Zahl ändern, wenn das deinen Bedürfnissen besser entspricht.

Answer 1