VBA でループを使用してコードを簡素化するにはどうすればよいですか

Question

まず、ようこそ。
次に、簡単に回避できる最初のことは、同じことをif何度も繰り返すことです。

If Application.WorksheetFunction.IsText(Worksheets("Investor Data").range("E2"))したがって、13 回チェックしてそのたびに 1 つのことを実行する代わりに、1 回チェックして 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

for loopこれは、行番号を使用される変数に置き換えることにより、によって指定された E3 から E15 まで実行されます。(余談ですが、E2もコピーした方が良いのではないでしょうか？) おそらくこれよりももっと良い方法があるでしょうが、これは単純なループの例です。

各列の行数が異なるため、これを単に大きなループに挿入して終了することはできません。

もっと小さなループをいくつか作ることもできますが、今のところはあなたにお任せします。頑張ってください。

編集

あるコメントでは関数について言及されていますが、これは同じことを何度も実行する方法の 1 つですが、コードははるかに少なくなります。

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

この最初のサブは 2 番目のプライベートサブを呼び出します。これは関数でもかまいませんが、何かを返したいときに使用します。代わりに、プライベートサブを使用します。

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

2 番目のサブは最初の例ですが、より多くの変数が入っています。これらは、サブを呼び出すときに括弧内に設定されます。
データベースの列 C の固定数を変数に置き換えたので、計算が簡単になります。ただし、必要に応じて、呼び出し時に固定数に変更することもできます。

Answer 1