将日期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 Macro看起来像这样：

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列中的日期。使用公式比使用宏更简单。