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