안녕하세요~

​

먼저 결론부터 말씀드리면,

"윗행을 아래행에 그대로 입력”라는 단일 동작만 놓고 보면,
지금 쓰고 계신 2번 방식이 이미 이론적으로 거의 최적으로

대상_범위.Value = 원본_범위.Value 인데, 가능하면 .Value2로 합니다.

그 이상 "0.00001초"를 줄일 수 있는 여지는
거의 전부 VBA와 Excel를 왕복하는 셀 접근 횟수, 화면 갱신, 계산, 이벤트 쪽에서 나온다고 볼 수 있고,

"배열에 For로 직접 담는 방식"은
오히려 셀 접근 때문에 느린 쪽에 가깝습니다.

아래에서 왜 그런지,
그리고 실전에서 실제로 더 빨라지게 만드는 포인트만 정리해 보도록 하겠습니다.

물론 개발자 별로
다양한 접근방식이 있을 수 있고,
실무에서 여러 작업 환경과 변수에 따라
실제 퍼포먼스는 다를 수 있습니다.

​

1. 위에서 제시하신 3가지 버전을 살펴보면,

(1) 첫번째 버전인

원본_범위.Copy 대상_범위

값 + 서식 + 조건부서식 + 유효성검사 + 코멘트 등 온갖 것들을 전부 처리해야 하고
클립보드까지 끼어들어서 당연히 가장 느린 게 정상이고.

더군다나 "값만" 복사할 때는 성능 관점에서 쓸 이유가 거의 없습니다.

(2) 두번째 버전인

대상_범위.Value = 원본_범위.Value
(Or 대상_범위.Value2 = 원본_범위.Value2)

이 코드의 핵심은
"한 번에 Range 단위로 읽고, 한 번에 Range 단위로 쓰는 것"인데,
내부적으로는 Variant(1 To 1, 1 To N) 같은 2차원 배열로 전달됩니다.

VBA 입장에서 보면,

엑셀에서 읽기 1번 호출해서 2차원 Variant 배열로 수신해서
엑셀에서 쓰기 1번 호출하여 같은 배열을 다른 Range에 뿌려줍니다.

즉,
COM 호출이 딱 2번이라서 이 이상
"알고리즘적으로 줄일 수 있는 여지가 거의 없다"고 할 수 있습니다.

물론
Value 대신 Value2를 쓰면,
통화/날짜 형 변환 같은 부가 처리가 빠져서 아주 약간 더 빠른 경우가 많습니다.

(3) 세번째 버전인
For 루프로 직접 배열에 담는 방식인

Dim i As Long
Dim Arr(10) As Variant

For i = 0 To 10
    Arr(i) = Cells(2, i + 1).Value
Next i

Range("A3:K3").Value = Arr

병목은 이 부분입니다.

Arr(i) = Cells(2, i + 1).Value

Cells(2, i + 1).Value는
매번 엑셀에 왕복 호출입니다.

여기서는
11번 호출하지만 실무에서는 수천~수만 번 될 수도 있을 겁니다.

반면 위의 두번째 방식은,

v = 원본_범위.Value2          '// 시트 접근 1번
대상_범위.Value2 = v          '// 시트 접근 1번

딱 2번 호출하는데 반면에

이러한 배열 방식은
"배열이라서 빠른 게 아니라, 셀을 여러 번 호출해서 오히려 더 느려지는" 코딩으로
"배열"이 빠른 게 아니고, "범위를 통째로 배열로 한 번에 가져오는 것"이 빠른 것입니다.

2. 실질적으로 가장 빠른 기본 패턴을 제시하자면,

Sub FastCopyRow()
    '// 윗행을 아랫행에 최단 경로로 복사
    Dim ws As Worksheet
    Dim src As Range, dst As Range
    Dim v As Variant

    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set src = ws.Range("A2:K2")
    Set dst = ws.Range("A3:K3")

    v = src.Value2           '// 시트 접근 1번
    dst.Value2 = v           '// 시트 접근 1번
End Sub

사실상 dst.Value2 = src.Value2를 코드로 풀어쓴 것이라,
성능은 2번 방법과 동일 수준입니다.

다만 이 형태로 만들어 두면,

v를 재사용해서 여러 행에 찍을 때
또는 나중에 메모리에서 값을 살짝 가공하고 찍을 때
더 유연해집니다.

3. "정말 엄청 많이" 복사할 때,
최적의 패턴은

질문에서 
"행에 셀이 100만 개 있다면"이라고 하셨는데,
실제로는 열 개수는 16,384개(XFD열)라서, "한 행에 100만 셀"은 불가능하지만,
100만 행까지 세로 복사는 가능하니, 그 관점에서 보겠습니다.

즉,
동일 행을 아래로 수만, 수십만 번 복사한다면
이때는 엑셀 자체 기능인 AutoFill이 가장 빠릅니다.

Sub FastFillDown()
    Dim ws As Worksheet
    Dim src As Range, dst As Range

    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set src = ws.Range("A2:K2")                  '// 기준 행
    Set dst = ws.Range("A2:K100000")             '// A2:K2를 10만 행까지 복사

    src.AutoFill Destination:=dst
End Sub

AutoFill은 완전히 엑셀 내부 엔진에서 벡터화된 상태로 돌아가서
VBA루프와 비교가 안 될 정도로 빠릅니다.

값,수식,서식까지 통째로 처리하므로,
순수 값만 필요하면

dst.Value2 = dst.Value2   '// 수식을 값으로 한번에 고정

이런 식으로 한 번 더 처리할 수 있습니다.

4. "엑셀 수식이 VBA보다 수십배 빠르다"는 이야기를 들으셨는데,
그 이유가
바로 수식 계산이 C/C++로 컴파일된 엔진에서 벡터 연산으로 돌아가기 때문입니다.

먼저 아래행 전체에
수식으로 "위 행 참조"를 넣고
계산이 끝나면 한 번에 값으로 덮어쓰기를 합니다.

Sub FastCopy()
    Dim ws As Worksheet
    Dim rng As Range

    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set rng = ws.Range("A3:K100000")        '// A3:K3 ~ A100000:K100000

    '// 1. 위 행을 참조하는 수식 넣기
    rng.FormulaR1C1 = "=R[-1]C"

    '// (계산 모드가 수동이면 rng.Calculate 또는 Application.Calculate 필요)

    '// 2. 계산 후 값으로 고정 (한 번에)
    rng.Value2 = rng.Value2
End Sub

​

FormulaR1C1 역시 한 번의 Range 단위 호출이라, COM 호출 최소화하는데,

계산은 엑셀 엔진이 벡터로 처리하므로 VBA로 루프 돌리는 것과는 차원이 다르므로

"위행=아래행"을 수만/수십만 번 해야 할 때는 이 패턴이 정말 강력합니다.

엑셀 내부에서

A3 셀 안에 수식 =R[-1]C 삽입
B3도 =R[-1]C
C3도 =R[-1]C
A4도 =R[-1]C
…
A100000도 =R[-1]C
…
K100000도 =R[-1]C

즉, 범위 전체 98,000개의 셀에 이 수식을 자동으로 채웁니다.

이 작업은 VBA가 셀마다 루프를 돌리는 것이 아니라,
엑셀 엔진이 자체적으로 “벡터 처리”를 합니다.

그래서 속도는 범위 크기와 거의 무관합니다.

​

5. 추가적으로

복사 자체는 빠른데, 화면 깜빡임 / 수식 재계산 / 이벤트 실행이 시간을 다 잡아먹는 경우가 많으므로

Sub FastCopy()
Dim savedCalc As XlCalculation
Dim savedScreen As Boolean
Dim savedEvents As Boolean

'// 현재 상태 저장
savedCalc = Application.Calculation
savedScreen = Application.ScreenUpdating
savedEvents = Application.EnableEvents

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False

'// ===== 여기에서 원하는 빠른 복사 작업 수행 =====
Dim ws As Worksheet
Dim src As Range, dst As Range
Dim v As Variant

Set ws = ThisWorkbook.Worksheets("Sheet1")
Set src = ws.Range("A2:K2")
Set dst = ws.Range("A3:K3")

v = src.Value2
dst.Value2 = v
'// ============================================

'// 원상복구
Application.Calculation = savedCalc
Application.ScreenUpdating = savedScreen
Application.EnableEvents = savedEvents
End Sub

실제 긴 매크로에서 체감 속도는
이렇게 튜닝하면 압도적으로 큽니다.

6. "컴파일된 라이브러리 끼워 넣기"에 대한 현실적인 답을 드리면,

C/C++로 COM Add-in, XLL 같은 걸 만드는 건 가능하지만,
결국 엑셀 시트에 값을 쓰고 읽는 순간 Excel Object Model을 거쳐야 합니다.
즉,
Range.Value를 부르는 순간 생기는 비용은 비슷하다고 볼 수 있습니다.

물론 "계산 로직이 무거운 경우"라면
VBA에서 루프 돌리는 것보다 C/C++로 계산 후 결과만 엑셀에 넣는 게 수십~수백 배 빠를 수 있지만,

지금처럼
"순수한 값 복사"라면
엑셀 자체의 Range 복사보다 더 빠르게 만드는 건 거의 불가능에 가깝습니다.

수식이 VBA보다 수십 배 빠르다는 말도,
"대규모 계산을 셀 수식/Power Query/Power Pivot 엔진으로 맡길 때" 이야기지,
값을 셀에서 셀로 한 번 옮기는 수준에서는 이미 거의 한계 속도라고 보시면 됩니다.

Option Explicit

Sub FastFillDown()
    '// A2:K2 기준으로, 현재 시트의 마지막 행까지 AutoFill 후 값만 남기는 버전

    Dim ws As Worksheet
    Dim src As Range, dst As Range
    Dim lastRow As Long
    Dim savedCalc As XlCalculation
    Dim savedScreen As Boolean
    Dim savedEvents As Boolean

    Set ws = ThisWorkbook.Worksheets("Sheet1")

    '// 기준 행
    Set src = ws.Range("A2:K2")

    '// 마지막 행 찾기 (A열 기준)
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    '// A2 아래로 채울 행이 하나도 없으면(= lastRow가 2 이하이면) 종료
    If lastRow <= src.Row Then Exit Sub

    '// 채울 전체 범위: A2:K2 ~ A(lastRow):K(lastRow)
    Set dst = src.Resize(lastRow - src.Row + 1)

    '// ----- 튜닝 옵션 저장 -----
    savedCalc = Application.Calculation
    savedScreen = Application.ScreenUpdating
    savedEvents = Application.EnableEvents

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False
    '// ---------------------------

    '// 1) AutoFill로 아래까지 수식/서식/값 복제
    src.AutoFill Destination:=dst

    '// 2) 수식/연결 끊고 값만 남기기
    dst.Value2 = dst.Value2

CleanExit:
    '// ----- 원상복구 -----
    Application.Calculation = savedCalc
    Application.ScreenUpdating = savedScreen
    Application.EnableEvents = savedEvents
    '// ---------------------
End Sub

​

​