使用Excel VBA存儲日期

-1

我有一張名爲'數據'的工作表，並且在此工作表的A列中有各種文本值，空白值和日期值。我試圖找到一種方法來複制'Data'列A中的每個日期值，並將其粘貼到另一個表'Chart'的第一行。我期待的最終結果是爲每個日期創建一個包含列標題的圖表。還有更多關於我一直在拼湊在一起的圖表，但我很困擾如何完成列標題。使用Excel VBA存儲日期

我正在尋找的主要部分是如何複製每個只有日期值。我已經查看了一下Find函數，但是我不能完全理解它只能看到日期值。

非常感謝您的幫助！

乾杯，
乙

來源

2016-10-26 BRox

您可以發佈您的數據看起來像什麼，哪些是你到目前爲止試過嗎？ – Brian

如果包含日期的單元格沒有格式化爲日期，那麼可能會有麻煩，日期是否始終格式正確？ –

如何使用'ISDATE'測試每個單元格？（參考：[TechOnTheNet]（https://www.techonthenet.com/excel/formulas/isdate.php）） – PeterT

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

來源

2016-10-26 18:08:56

看起來好像它會出錯，因爲你還沒有初始化'DestCol'。 – Brian

@布賴恩右o！謝謝，好，趕上，這就是我沒有測試代碼。 –

使用Excel VBA存儲日期

回答

相關問題