vba - 数字到日期

Question

我有一个数字形式的日期，如下所示:20150529有没有办法把它转换成 29/05/2015 ?

我需要为此编写一个宏。

我有这段代码，但它不起作用:

Dim Current_Date As Date
Dim Date_String As String


Range("K2").Select
Date_String = Range("K2").Value
Current_Date = CDate(Date_String)
Range("Q2").Select
Range("Q2").Value = Current_Date

Answer 1

Range.TextToColumns method可以快速处理所选内容中的一个或多个单元格或 20150629 之类的整个列中的日期。

sub YMD_2_Date
    with selection
        .TextToColumns Destination:=.cells(1), DataType:=xlFixedWidth, _
                       FieldInfo:=Array(0, 5)
    end with
end sub

xlColumnDataType property的 xlYMD 格式 (例如 5 )强制 Excel 将数字视为年月日。

这可以通过循环从选择(单列中的一个或多个单元格)扩展到多列。