将文本字符串中的列转换并替换为日期

Question

我目前有一列，其中包含许多日期，格式如下：

该单元格中的确切内容是：'05 -08-2018

我编写了各种宏来操纵此操作等，并生成了数据透视表和图表，但是无法按日期对这一列进行分组。您可以帮我提供将其更改为“ dd / mm / yyyy”所需的代码，以便我可以实际使用预期的信息吗？

预先感谢您的支持。

Answer 1

使用替换功能删除字符“ '”。

Sub Replace2()

Dim myValue As String
Dim MyNewValue As String
Dim i As Long

For i = 6 To 10
    myValue = Cells(i, 3).Value
    MyNewValue = Replace(myValue, "'", "")
    MyNewValue = Format(MyNewValue, "dd/mm/yyyy")
    Cells(i, 4).Value = MyNewValue
Next i

End Sub

Answer 2

您需要将日期从字符串转换为“实际”日期。 一种方法：

• 选择列
• 选择Data/Text-to-columns工具
• 下一个/下一个（转到步骤3，确保未选择-作为分隔符）
• 在第3步中，选择与数据DMY相对应的日期格式
• 下一个

您现在将拥有“真实的” excel日期，可以在数据透视表和图表中使用它们。