VBA를 사용하여 Excel에서 여러 시트에 복사하여 붙여 넣기

Question

다음 코드를 사용하여 동일한 값을 복사하여 붙여 넣는 모든 워크 시트를 반복합니다.

문제는 내 코드가 변경 사항을 활성 시트에만 적용한다는 것입니다.

Sub Button4_Click() 

Dim WS_Count As Integer 
     Dim I As Integer 
     WS_Count = ActiveWorkbook.Worksheets.Count 

     ' Begin the loop. 
     For I = 1 To WS_Count 

    Range("C10").Select 
    Selection.Copy 
    Range("C11:C300").Select 
    ActiveSheet.Paste 
    Range("C10").Select 

     Next I 


End Sub 

코드를 루프의 모든 시트에 적용하도록 구성하려면 어떻게해야합니까?

감사

Answer 1

편집 : 난 당신이 예를 쓰기 때문에 하드을하려고 정확히 알고 해달라고하지/않았다.

이 코드 은이어야합니다. 통합 문서의 모든 시트에서 Sheet1! C10의 값을 C11 : C300으로 복사하십시오. (시트 1 자체 포함). 나는 그것을 시험하지 않았다.

Sub Button4_Click() 

Dim WS_Count As Integer 
Dim I As Integer 
WS_Count = ActiveWorkbook.Worksheets.Count 

Dim Source As Range 

Set Source = ThisWorkbook.Worksheets(1).Range("C10") 

' Begin the loop. 
For I = 1 To WS_Count 

    ThisWorkbook.worksheets(i).Select ' just select the sheet 
    Source.Copy  
    Range("C11:C300").Select 
    ActiveSheet.Paste 

Next I 

End Sub 

시트 및 셀을 선택하면 잘 작동하지만 시트 개체를 사용하면 더 쉬울 수 있습니다.

예 :

Dim A_Sheet As Worksheet: Set A_Sheet = ThisWorkbook.Worksheets("Sheet1") 
A_Sheet.Cells(1,1).Value = "Example" ' set Sheet1!A1 to "Example" 
A_Sheet1.Range("A1").Value = "Example" ' another way of doing it 

그것의 처음을 선택하지 않고 모든 시트의 데이터에 액세스 할 수있는 좀 더 쉽게.

Answer 2

워크 시트 변수와 For Each 루프를 사용하여 워크 시트를 통해 루프를 반복하거나 아무 것도 선택하지 않아도됩니다. 또한이 시나리오에서 아무 것도 선택하거나 Copy/Paste 명령 을 사용할 필요가 없습니다. - 직접 값을 할당 할 수 있습니다. 아래 참조 :

Sub Button4_Click() 

Dim wsVar As Worksheet 

For Each wsVar In ThisWorkbook.Sheets 
    With wsVar 
     .Range("C11:C300").Value = .Range("C10").Value 
    End With 
Next wsVar 

End Sub