☰

VBA에서 복사 및 붙여넣기를 반복하는 방법

tag-icon • tag-icon vba
VBA에서 복사 및 붙여넣기를 반복하는 방법

내가 달성해야 할 것은 아래의 두 번째 열입니다. 나는 VBA에 대한 멍청한 놈이므로 도움을 주시면 감사하겠습니다.

abc1200                        abc1200
MACHINE                        
supplier
cost
address
invoice number

abc2400                        abc2400
MACHINE
supplier
cost
address
invoice number
.
.
.

녹음된 코드는 아래와 같습니다. 선택 범위에서 반복하면 됩니다.

 ActiveCell.Offset(0, -1).Range("A1").Select
 Selection.Copy
 ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveSheet.Paste
 ActiveCell.Offset(6, -1).Range("A1").Select
 Application.CutCopyMode = False
 Selection.Copy
 ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveSheet.Paste
 ActiveCell.Offset(6, -1).Range("A1").Select
 Application.CutCopyMode = False
 Selection.Copy
 ActiveCell.Offset(0, 1).Range("A1").Select
 ActiveSheet.Paste

답변1

복사/붙여넣기는 매크로 기록 중에만 필요/사용됩니다. VBA에서는 등의 값을 직접 할당하는 것이 훨씬 쉽습니다
targetcell.value = sourcecell.value.

따라서 처음 네 줄은 다음과 같습니다.
ActiveCell.Offset(0, 1).Range("A1").Value = ActiveCell.Offset(0, -1).Range("A1").Value

사용하려는 셀에 따라 셀 이름을 직접 지정하여 이를 더 쉬운 형식으로 줄일 수도 있습니다.

관련 정보