반복 매크로 과거의 엑셀 복사


0

현재 저는 대학에서 연구 프로젝트를 수행하고 있습니다. 이제 특정 범위 BF1 : DJ293이 있으며 오른쪽으로 238 번 복사하여 붙여야합니다. 따라서이 범위는 DK1 : FO293 등으로 복사해야합니다. 따라서 이전 사본 바로 옆에 있습니다. 나는 매크로를 작성하는 방법을 모른다. 나는 너희 중 누구라도 이것을 달성하는 방법을 알고 있는지 궁금했다.


총 열 수는 몇 개입니까?
Raystafarian

또는 범위 크기를 의미하는 경우 : 57 열
Melvin

답변:


1

따라서 이와 같은 것은 A1 : 10 범위를 취하여 C1 : D10에 복사합니다.

Sub test()
Range("A1:B10").Copy
Range("C1").PasteSpecial xlPasteValues
End Sub

필요한 것은 범위가 얼마나 큰지를 계산하고 반복하는 동안 사용하는 방법입니다. 이런 식으로 작동해야합니다-

Sub test()
Dim start As Integer
Dim finish As Integer
Dim change As Integer

start = Range("BF1").Column
finish = Range("DJ293").Column
change = finish - start

For i = 1 To 238
    Range(Cells(1, start), Cells(293, finish)).Copy
    Cells(1, finish + 1).PasteSpecial xlPasteValues
    start = (Cells(1, finish + 1).Column)
    finish = start + change
Next

End Sub
당사 사이트를 사용함과 동시에 당사의 쿠키 정책개인정보 보호정책을 읽고 이해하였음을 인정하는 것으로 간주합니다.
Licensed under cc by-sa 3.0 with attribution required.