vba - 将日期 dd-mm-yyyy 值转换为 YYYYMMDD 的文本

Question

我必须将以下日期字段（dd-mm-yyyy）转换为 YYYYMMDD 格式。

Column A     Column B
30.08.2013    
25.08.2012

等等

在 B 列中，我希望答案为

Column B
20130830 
20120825

格式为文本格式，即text(date,"YYYYMMDD"). 范围 B 将继续进行，直到范围 A 具有值。

有人可以帮我获得正确的代码吗？

Answer 1

单元格内公式可以这样写，然后一直复制公式，直到 A 列中有数据。

=RIGHT(A1,4) & LEFT(RIGHT(A1,7),2) & LEFT(A1, 2)

VBA 宏看起来像这样：

Sub ConvertDate()
    Range("B1").Value = Right(Range("A1").Value, 4) & _
                        Left(Right(Range("A1").Value, 7), 2) & _
                        Left(Range("A1").Value, 2)
End Sub

您可以更改代码以满足您的需要，以便宏自动格式化 B 列中的日期。使用公式比使用宏要简单得多。