Question

我有一张名为“数据”的表格，＆＃39;在此工作表的A列中，有各种文本值，空白值和日期值。我试图找到一种方法来复制数据＆＃39;数据列A中的每个日期值。并将其粘贴到另一张图表的第一行中。＆＃39;图表。＆＃39;我要找的最终结果是为每个日期创建一个包含列标题的图表。还有一些关于我一直在拼凑的图表的更多信息，但我仍然坚持如何完成列标题。

我正在寻找的主要内容是如何复制每个日期值。我已经看了一下Find函数，但我不能仅仅考虑日期值。

非常感谢您的帮助！

干杯，
乙

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

使用Excel VBA存储日期

1 个答案: