выбрать определенные c столбцы для копирования и вставки?

Question

Я написал код в VBA для копирования выбранных столбцов с одного листа на другой.

For i = LBound(Accounts) To UBound(Accounts)
    For j = 1 To EndRowJE
        If Accounts(i) = shJE.Range("A" & j).Value Then
            shJE.Range("A" & j, "X" & j).Copy shReport.Range("A" & r, "X" & r)
            r = r + 1
        End If
    Next j

Next i

У меня есть массив, полный значений. я перебрал массив и проверил его по первой строке рабочего листа (shJE). если массив в i совпадает с ячейкой листа shJE, скопируйте эту строку в отчет другого листа. но я хочу скопировать только указанные c столбцы, а не все столбцы между A и X, вместо этого я хочу скопировать столбцы A, C, F и X. Любая помощь высоко ценится?

Answer 1

Возможно, я неправильно понимаю ваш вопрос, но если вам нужно только скопировать

[Aj] в [Ar]

[Cj] в [Cr]

[Fj ] до [Fr]

[Xj] до [Xr]

почему бы вам просто не изменить выражение IF на:

If Accounts(i) = shJE.Range("A" & j).Value Then
            shJE.Range("A" & j).Copy shReport.Range("A" & r)
            shJE.Range("C" & j).Copy shReport.Range("C" & r)
            shJE.Range("F" & j).Copy shReport.Range("F" & r)
            shJE.Range("X" & j).Copy shReport.Range("X" & r)
            r = r + 1
End if

Answer 2

гнездится за пределами внутреннего, если l oop, другое, если l oop, проверяет, является ли его "A" || "C" || ...