☰

Excel: 복사 및 붙여넣기와 표 만들기를 위한 간단한 Do-loop

tag-icon • tag-icon microsoft-excel vba macros copy-paste
Excel: 복사 및 붙여넣기와 표 만들기를 위한 간단한 Do-loop

나는 다음을 위해 간단한 (제 생각에는!) Do-loop를 하고 싶습니다. 내 간단한 프로그램은 내가 원하는 대로 작동하지만, 1000번 반복하고 싶기 때문에 더 쉬운 방법이 있다고 생각합니다. 아마도 어떤 종류의 루프를 사용하고 있습니까? Do-Loop 또는 기타. 간단히 말해서 나는 다음을 원한다:

  1. A1의 내용을 복사하세요
  2. B1에 붙여넣으세요.
  3. C1 셀 복사(B1에 적용되는 간단한 수식이 있음)
  4. C1의 '값'(만)을 D1(해당 값의 테이블이 됨)로 복사합니다.

A1부터 A1000까지 이 작업을 수행하고 D1, D2, ..., D1000 값의 테이블(아마도 정사각형 테이블)을 얻고 싶습니다. 셀 B1과 C1은 고정된 상태로 유지됩니다.

내 프로그램은 다음과 같습니다.

Sub PasteSpecial_Examples()

    Range("A1").Copy Range("B1")
    Range("C1").Copy
    Range("D1").PasteSpecial Paste:=xlPasteValues

    Range("A2").Copy Range("B1")
    Range("C1").Copy
    Range("D2").PasteSpecial Paste:=xlPasteValues

    Range("A3").Copy Range("B1")
    Range("C1").Copy
    Range("D3").PasteSpecial Paste:=xlPasteValues

    Range("A4").Copy Range("B1")
    Range("C1").Copy
    Range("D4").PasteSpecial Paste:=xlPasteValues


    Application.CutCopyMode = False

End Sub

답변1

간단한 For...Next 루프를 원합니다.

Sub PasteSpecial_Examples()

  For i = 1 To 1000
    Range("A" & i).Copy Range("B1")
    Range("C1").Copy
    Range("D" & i).PasteSpecial Paste:=xlPasteValues
  Next i

  Application.CutCopyMode = False

End Sub

관련 정보