VBA-如何刪除范圍單元格中的字符串

Question

這是我的日期值Mar 30 2016 4:46:34:256PM我要刪除的時間把它像這樣Mar 30 2016 。

我嘗試了各種方法來格式化if值，例如使用mm-dd-yyyy ， mm-dd-yyyy ， yyyy-mm-dd etc 格式 。 它正在工作，但是如果嘗試將此Mar 30 2016 4:46:34:256PM作為值，則它不起作用。 有人可以告訴我為什么嗎？

我嘗試了一個簡單的代碼來測試所有格式，但不適用於此值Mar 30 2016 4:46:34:256PM因此我決定刪除4:46:34:256PM ，這就是我的庫存方式。

Sub formateDate()
Dim lastrow As Long

lastrow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To lastrow

Cells(i, 2).NumberFormat = ("dd-mm-yyyy")
Next i
End Sub

Answer 1

從您的示例中，您似乎在年份數字之后有兩個連續的空格

應該總是這樣，以便您可以像下面這樣去

Cells(i, 2) = Left(Cells(i, 2), InStr(Cells(i, 2), "  ") - 1)

然后您還可以為其分配日期格式，因為如果對結果值進行調用，則IsDate WorksheetFunction返回True