Хранение дат с использованием Excel VBA

Question

У меня есть лист под названием «Данные», а в столбце А этого листа есть различные текстовые значения, пустые значения и значения даты. Я пытаюсь найти способ скопировать каждое из значений даты в столбце A «Данные» и вставить его в первую строку другого листа «Диаграмма». Конечный результат, который я ищу, - создать диаграмму с заголовками столбцов для каждой из дат. Там больше связано с графиком, который я собирал вместе понемногу, но я довольно зациклен на том, как выполнить заголовки столбцов.

Основная часть, которую я ищу, - это копирование каждого из значений даты. Я немного искал функцию «Найти», но я не могу заставить ее оттачивать только значения даты.

Большое вам спасибо за помощь!

Приветствия,
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