Excel에서 날짜를 기준으로 행을 복사하여 다른 시트에 붙여넣는 방법은 무엇입니까? 

특정 데이터 범위가 있다고 가정해 보겠습니다. 이제 특정 날짜를 기준으로 전체 행을 복사한 다음 다른 시트에 붙여넣으려고 합니다. Excel에서 이 작업을 처리하기 위한 좋은 아이디어가 있나요?

오늘 날짜를 기준으로 행을 복사하여 다른 시트에 붙여넣기

날짜가 오늘보다 큰 경우 행을 복사하여 다른 시트에 붙여넣기

오늘 날짜를 기준으로 행을 복사하여 다른 시트에 붙여넣기

날짜가 오늘인 경우 행을 복사해야 하는 경우, 다음 VBA 코드를 적용하십시오.

1. ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. 삽입 > 모듈을 클릭하고 모듈 창에 다음 코드를 붙여넣습니다.

VBA 코드: 오늘 날짜를 기준으로 행 복사 및 붙여넣기:

Sub CopyRow()
'Updateby Extendoffice
    Dim xRgS As Range, xRgD As Range, xCell As Range
    Dim I As Long, xCol As Long, J As Long
    Dim xVal As Variant
    On Error Resume Next
    Set xRgS = Application.InputBox("Please select the date column:", "KuTools For Excel", Selection.Address, , , , , 8)
    If xRgS Is Nothing Then Exit Sub
    Set xRgD = Application.InputBox("Please select a destination cell:", "KuTools For Excel", , , , , , 8)
    If xRgD Is Nothing Then Exit Sub
    xCol = xRgS.Rows.Count
    Set xRgS = xRgS(1)
    Application.CutCopyMode = False
    J = 0
    For I = 1 To xCol
        Set xCell = xRgS.Offset(I - 1, 0)
        xVal = xCell.Value
        If TypeName(xVal) = "Date" And (xVal <> "") And (xVal = Date) Then
            xCell.EntireRow.Copy xRgD.Offset(J, 0)
            J = J + 1
        End If
    Next
    Application.CutCopyMode = True
End Sub

3. 위의 코드를 붙여넣은 후, 코드를 실행하기 위해 F5 키를 누르세요. 복사할 날짜 열을 선택하라는 메시지 상자가 나타납니다. 스크린샷을 참조하세요:

4. 그런 다음 확인 버튼을 클릭하면, 다른 메시지 상자에서 결과를 출력할 다른 시트의 셀을 선택합니다. 스크린샷을 참조하세요:

5. 그리고 확인 버튼을 클릭하면, 오늘 날짜의 행이 새 시트에 즉시 붙여넣어집니다. 스크린샷을 참조하세요:

날짜가 오늘보다 큰 경우 행을 복사하여 다른 시트에 붙여넣기

예를 들어, 날짜가 오늘부터 5일 이상인 경우 행을 복사하여 다른 시트에 붙여넣어야 한다고 가정해 보겠습니다.

다음 VBA 코드가 도움이 될 수 있습니다:

1. ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. 삽입 > 모듈을 클릭하고 모듈 창에 다음 코드를 붙여넣습니다.

VBA 코드: 날짜가 오늘보다 큰 경우 행 복사 및 붙여넣기:

Sub CopyRow()
'Updateby Extentoffice
    Dim xRgS As Range, xRgD As Range, xCell As Range
    Dim I As Long, xCol As Long, J As Long
    Dim xVal As Variant
    On Error Resume Next
    Set xRgS = Application.InputBox("Please select the date column:", "KuTools For Excel", Selection.Address, , , , , 8)
    If xRgS Is Nothing Then Exit Sub
    Set xRgD = Application.InputBox("Please select a destination cell:", "KuTools For Excel", , , , , , 8)
    If xRgD Is Nothing Then Exit Sub
    xCol = xRgS.Rows.Count
    Set xRgS = xRgS(1)
    Application.CutCopyMode = False
    J = 0
    For I = 1 To xCol
        Set xCell = xRgS.Offset(I - 1, 0)
        xVal = xCell.Value
        If TypeName(xVal) = "Date" And (xVal <> "") And (xVal >= Date And (xVal < Date + 5)) Then
            xCell.EntireRow.Copy xRgD.Offset(J, 0)
            J = J + 1
        End If
    Next
    Application.CutCopyMode = True
End Sub

참고: 위의 코드에서 If TypeName(xVal) = "Date" And (xVal <> "") And (xVal >= Date And (xVal < Date + 5)) Then 스크립트 코드에서 필요에 따라 기준을 변경할 수 있습니다. 예를 들어, 오늘보다 작거나 일정 일수로 조건을 수정할 수 있습니다.

3. 그런 다음 이 코드를 실행하기 위해 F5 키를 누릅니다. 메시지 상자에서 사용할 데이터 열을 선택하세요. 스크린샷을 참조하세요:

4. 그런 다음 확인 버튼을 클릭하면, 다른 메시지 상자에서 결과를 출력할 다른 시트의 셀을 선택합니다. 스크린샷을 참조하세요:

5. 확인 버튼을 클릭하면, 오늘로부터 5일 이상인 날짜의 행이 새 시트에 복사되어 붙여넣어집니다. 아래 스크린샷을 참조하세요: