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

for loop이는 행 번호를 사용된 변수로 대체하여 에 의해 지시된 E3-E15를 거치게 됩니다 .(참고로 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