Leonard는 한 워크 시트에서 다른 워크 시트로 데이터를 전송하는 매크로를 작성하고 있습니다. 두 워크 시트가 동일한 통합 문서에 있습니다. 전송하려는 데이터는 첫 번째 워크 시트에 있으며 “SourceData”라는 명명 된 범위를 사용합니다.

단일 데이터 행으로 구성됩니다. Leonard는 매크로 내에서이 데이터를 첫 번째 워크 시트에서 두 번째 워크 시트의 첫 번째 빈 행으로 전송하려고하지만 어떻게해야할지 모르겠습니다.

실제로 여러 가지 방법이 있지만 모든 방법에는 소스 범위 식별과 대상 범위 식별이라는 두 가지 전제 조건이 있습니다. 소스 범위는 이름이 지정되어 있기 때문에 쉽습니다. 다음과 같은 방식으로 매크로에서 소스 범위를 지정할 수 있습니다.

Set rngSource = Worksheets("Sheet1").Range("SourceData")

대상 워크 시트에서 첫 번째 빈 행을 파악하는 것은 약간 까다 롭습니다. 비교적 쉬운 방법이 있습니다.

iRow = Worksheets("Sheet2").Cells(Rows.Count,1).End(xlUp).Row + 1 Set rngTarget = Worksheets("Sheet2").Range("A" & iRow)

완료되면 rngTarget 변수는 첫 번째 빈 행이 무엇이든간에 셀 A의 범위를 가리 킵니다. (이 경우 빈 행은 A 열에 아무것도없는 행으로 정의됩니다.)

이제 Copy 메서드와 함께 사용할 소스 및 대상 범위를 입력하기 만하면됩니다.

Sub CopySource()

Dim rngSource As Range     Dim rngTarget As Range     Dim iRow As Integer

Set rngSource = Worksheets("Sheet1").Range("SourceData")

iRow = Worksheets("Sheet2").Cells(Rows.Count,1).End(xlUp).Row + 1     Set rngTarget = Worksheets("Sheet2").Range("A" & iRow)

rngSource.Copy Destination:=rngTarget End Sub

범위가 정의되어 있으면 소스 범위에서 Copy 메서드를 사용하고 대상 범위를 작업의 대상으로 지정하기 만하면됩니다. 완료되면 원본 데이터는 여전히 원본 범위에 있지만 대상에 복사되었습니다.

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (6131)은 Microsoft Excel 2007, 2010, 2013 및 2016에 적용됩니다.

Excel의 이전 메뉴 인터페이스에 대한이 팁의 버전은 여기에서 찾을 수 있습니다.

link : / excel-Transferring_Data_between_Worksheets_Using_a_Macro [매크로를 사용하여 워크 시트 간 데이터 전송].