한셀에서 A 시트의 1번셀이 특정날짜이고, B시트의 1번 셀과 2번 셀의 날짜 사이에 A시트 1번 셀의 날짜가 포함 될 때 B시트 3~10번에 해당하는 셀 값을 D시트 특정범위에 날짜 오름차순으로 불러와 정렬하는 수식 또는 vbs 스크립트

VBS 스크립트나 Excel 내장 기능으로 직접적인 구현이 어려울 수 있어서, 여기서는 대신 Excel에서 사용하는 VBA(Visual Basic for Applications) 매크로 코드를 예로 드릴게요. VBA를 사용하면 워크시트 간 데이터를 조건에 따라 복사하고 정렬하는 작업을 자동화할 수 있습니다.

아래의 예시 코드는 A시트의 A1 셀에 있는 날짜가 B시트의 A1 셀과 B1 셀 사이에 있을 때, B시트의 3~10번 셀 값을 D시트의 특정 범위에 날짜 순으로 정렬하여 불러오는 방법을 보여줍니다. D시트에 값을 붙여넣기 전에 정렬하는 부분은 VBA의 sort 기능을 이용했습니다. 실제 사용 시에는 코드 내용을 실제 상황에 맞게 조정해야 합니다.

Sub 날짜기반데이터복사정렬()
    Dim wsA As Worksheet, wsB As Worksheet, wsD As Worksheet
    Dim ADate As Date, StartDate As Date, EndDate As Date
    Dim LastRow As Long, i As Long, j As Long
    Dim DataRange As Range
    
    ' 시트 설정
    Set wsA = ThisWorkbook.Sheets("A")
    Set wsB = ThisWorkbook.Sheets("B")
    Set wsD = ThisWorkbook.Sheets("D")
    
    ' 날짜 정보 읽기
    ADate = wsA.Range("A1").Value
    StartDate = wsB.Range("A1").Value
    EndDate = wsB.Range("B1").Value
    
    ' 날짜 범위 체크
    If ADate >= StartDate And ADate <= EndDate Then
        LastRow = wsD.Cells(wsD.Rows.Count, "A").End(xlUp).Row + 1 ' 데이터를 삽입할 D시트의 마지막 행 검색
        
        For i = 3 To 10 ' B 시트 3~10번 셀 검사
            ' D시트에 값 복사
            wsD.Range("A" & LastRow).Value = wsB.Range("A" & i).Value
            LastRow = LastRow + 1
        Next i
        
        ' D시트에서 정렬 범위 설정
        Set DataRange = wsD.Range("A1:A" & LastRow - 1)
        
        ' 날짜 순으로 데이터 정렬
        DataRange.Sort Key1:=DataRange, Order1:=xlAscending, Header:=xlNo
    Else
        MsgBox "A시트의 날짜가 B시트의 날짜 범위에 포함되지 않습니다."
    End If
End Sub

이 코드를 Excel VBA 에디터에 복사하여 사용하면, 지정된 조건에 맞는 데이터를 D시트에 정렬하여 붙여넣을 수 있습니다. VBA 에디터를 여는 방법은 Excel 창에서 Alt + F11 키를 누르면 됩니다. 사용하기 전에 복사할 데이터와 대상 시트의 실제 이름이 코드의 시트 이름과 일치하는지 확인해야 합니다.