다른 워크 시트의 정보를 요약 워크 시트에 복사하여 요약하려고합니다. 보다 구체적으로, sheet3의 셀 O3 및 O4를 sheet1의 셀 D3 및 E3에 각각 복사하려고합니다. 다음으로 이동하여 시트 4의 셀 O3 및 O4를 시트 1의 셀 D4 및 E4로 각각 복사하고 모든 시트를 통해 계속 복사하려고합니다.매크로 복사 및 붙여 넣기 루프를 사용하여
저는 매크로 코딩에 완전히 익숙하지 않았기 때문에 어떤 도움을 주셔서 감사합니다. 루프를 사용해야한다고 가정합니다.
P.S 워크 시트는 코드에 영향을 미치는 회사 (예 : "DataGroup" "Sheet3"가 아님)의 이름을 따서 지정됩니까?
시트를 반복하여보고 싶다면 명시 적으로 참조 할 필요가 없습니다. 즉 Sheets("DataGroup")을 사용하면 Sheets(1)을 사용할 수 있으므로 각 정수로 쉽게 반복 할 수 있습니다.
Sub Copying()
Dim i As Integer, j As Integer
j = Sheets.Count
For i = 2 To j
Sheets(1).Range("D" & i + 1) = Sheets(i).Range("O3").Value
Sheets(1).Range("E" & i + 1) = Sheets(i).Range("O4").Value
Next i
End Sub
절대적으로 필요한 경우가 아니라면 복사 및 붙여 넣기, 선택 및 활성화 기능을 사용하지 마십시오. 복사하여 붙여 넣기하면 클립 보드가 지워지며 일반적으로 "깜박임"매크로가 나타납니다. .Values 범위를 사용하고 다른 범위에 할당하십시오. – Mono
나는 그가 루핑에 도움을 준 후 있다고 생각하지만, 당신의 요지를 얻고 적절히 편집 할 것입니다. 질문에 대답 할 때 반드시 투표를해야한다고 확신하지는 않습니다 ... –
질문에 대답하는 것이 한 가지이지만 좋은 대답은 나쁜 습관을 불러 일으키는 답을 더 잘 나타냅니다. – Mono
당신은 통합 문서 일부 워크 시트를 포함하고 그 중 하나는 다음이 코드는 Summary의 열 A에 다른 각 워크 시트에서 A1 셀의 값을 복사합니다, Summary라고있는 경우. 당신은 당신의 필요에 맞게 이것을 적용 할 수 있습니다.
지금까지 무엇을 했습니까? 이것을 확인해보십시오 [링크] (http://stackoverflow.com/questions/37107574/copy-and-paste-specific-cells-from-one-worksheet-to-another) –
매크로 레코더를 켠 다음 위에서 간략히 설명하는 단계를 수행하십시오. 이것은 당신에게 몇 가지 코드를 제공하고, ['.Select'을 피하는 방법을 통해 읽을 수 있습니다. (http://stackoverflow.com/questions/10714251/how-to-avoid-using-select-in-excel-vba -macros)를 사용하여 데이터를 조이고 데이터와 직접 작업하는 법을 배웁니다. – BruceWayne
형식을 복사하지 않으면 Excel에서 복사하여 붙여 넣기를 사용하지 마십시오. 셀/범위 및 해당 값을 사용하여 설정하십시오. – Mono