나는 다음을 위해 간단한 (제 생각에는!) Do-loop를 하고 싶습니다. 내 간단한 프로그램은 내가 원하는 대로 작동하지만, 1000번 반복하고 싶기 때문에 더 쉬운 방법이 있다고 생각합니다. 아마도 어떤 종류의 루프를 사용하고 있습니까? Do-Loop 또는 기타. 간단히 말해서 나는 다음을 원한다:
- A1의 내용을 복사하세요
- B1에 붙여넣으세요.
- C1 셀 복사(B1에 적용되는 간단한 수식이 있음)
- 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