Excel VBA를 사용하여 날짜 저장

Question

'데이터'라는 시트가 있고이 시트의 A 열에 다양한 텍스트 값, 빈 값 및 날짜 값이 있습니다. '데이터'열 A의 각 날짜 값을 복사하여 다른 시트 '차트'의 첫 번째 행에 붙여 넣는 방법을 찾으려고합니다. 내가 찾고있는 최종 결과는 각 날짜에 대해 열 머리글이있는 차트를 만드는 것입니다. 조금씩 나눠 봤던 차트와 더 관련이 있습니다. 그러나 열 머리글을 수행하는 방법에 대해서는 상당히 고민하고 있습니다.

내가 찾고있는 주요 부분은 각각의 날짜 값을 복사하는 방법입니다. Find 함수를 조금 봤는데 날짜 값만 가져올 수는 없습니다.

도움을 주셔서 대단히 감사합니다.

건배,
B

Answer 1

Public Sub Answer() 

Dim DestWS As Worksheet 
Dim DestCol As Integer 
Dim ColumnA As Variant 

Set DestWS = ThisWorkbook.Worksheets("Chart") 
ColumnA = ThisWorkbook.Worksheets("Data").Columns(1) 

DestCol = 1 
For Each c In ColumnA 
    If IsDate(c) Then 
     DestWS.Cells(1, DestCol) = c 
     DestCol = DestCol + 1 
    End If 
Next 

End Sub