Excel에서 다른 워크시트의 다음 빈 행에 데이터를 복사하는 방법은 무엇입니까?

아래 스크린샷과 같이 Sheet1의 A1:E1 범위에 있는 특정 데이터를 복사하여 통합 문서 내 Sheet2의 다음 빈 행에 빠르게 붙여넣으려고 한다면, 이를 쉽게 수행하기 위해 무엇을 할 수 있을까요? 이 기사는 VBA 방법을 소개합니다.

VBA 코드를 사용하여 다른 워크시트의 다음 빈 행에 데이터 복사하기

VBA 코드를 사용하여 다른 워크시트의 다음 빈 행에 데이터 복사하기

특정 시트의 데이터를 복사하고 다른 워크시트의 다음 빈 행에 자동으로 붙여넣기 위해 아래 VBA 코드를 실행할 수 있습니다.

1. Alt + F11 키를 동시에 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. Microsoft Visual Basic for Applications 창에서 삽입 > 모듈을 클릭합니다. 그런 다음 아래 VBA 코드를 모듈 창에 복사하여 붙여넣습니다.

VBA 코드: 다른 워크시트의 다음 빈 행에 데이터 복사하기

Private Sub CommandButton1_Click()
    Dim xScreenUpdating As Boolean
    Dim xPasteSht As Worksheet
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select a range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xPasteSht = Worksheets("Sheet2")
    xScreenUpdating = Application.ScreenUpdating
    Application.ScreenUpdating = False
    xRg.Copy
    xPasteSht.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    Application.ScreenUpdating = xScreenUpdating
End Sub

참고: 코드에서 Sheet2는 복사된 데이터의 대상 워크시트입니다. 필요에 따라 변경할 수 있습니다.

3. F5 키를 눌러 코드를 실행합니다. 팝업되는 Kutools for Excel 대화 상자에서 Sheet2의 다음 빈 행에 복사하려는 범위를 선택한 후 확인 버튼을 클릭하세요. 스크린샷 보기:

Sheet1에서 복사된 데이터는 즉시 Sheet2의 다음 빈 행에 붙여넣어집니다. 아래 스크린샷에 표시된 것처럼 말이죠.