Please Enable JavaScript!
Gon[ Enable JavaScript ]

엑셀(Excel) VBA - 셀영역의 값을 복사하기

엑셀(Excel)/VBA
반응형

엑셀(Excel) VBA - 셀영역의 값을 복사하기

 

환경 : Microsoft Excel 2010

 

이번예제는 셀영역에 해당하는 값을 다른 영역으로 복사하는 샘플입니다. 서식과 값을 모두 복사하는 방법이 기본이며 서식이나 값만 별도로 복사할 수도 있습니다. 동일한 서식이 적용된 곳이 있다면 서식만 복사해서 다른 곳에 적용하면 편하겠죠.

 

매크로 실행을 위해서 두개의 버튼을 만들고 매크로 함수도 생성해 놓습니다.

 

엑셀(Excel) VBA - 셀영역의 값을 복사하기

 

값만 복사하는 함수에 들어갈 내용은 아래와 같습니다. 시작지점 A4 에서 데이터 연속지점까지 영역을 지정한후 그 영역을 Copy 합니다. 다음은 복사한 데이터를 붙여넣기 할 영역을 선택해야 합니다. 옵셋으로 위치를 지정한 후 PasteSpecial 의 옵션값으로 xlPasteValues 를 사용합니다.

 

Sub 값만복사_Click()

    Dim datas As Range

    Set datas = ActiveSheet.Range("A4").CurrentRegion

    datas.Copy

   

    Cells(3, "A").Select

    Selection.Offset(0, 6).PasteSpecial xlPasteValues

   

    Application.CutCopyMode = False

End Sub

 

엑셀(Excel) VBA - 셀영역의 값을 복사하기

 

서식과 값을 모두 복사하는 방법은 위에서 값만 복사할때와 거의 똑같습니다. 그중 xlPasteValues xlPasteAll 로 교체해 주면 됩니다. 그럼 서식까지 같이 복사하 될겁니다.

 

Sub 서식값복사_Click()

    Dim datas As Range

    Set datas = ActiveSheet.Range("A4").CurrentRegion

    datas.Copy

   

    Cells(3, "A").Select

    Selection.Offset(0, 6).PasteSpecial xlPasteAll

   

    Application.CutCopyMode = False

End Sub

 

엑셀(Excel) VBA - 셀영역의 값을 복사하기

 

반응형
Posted by 녹두장군1
,