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

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

Column A     Column B
30.08.2013    
25.08.2012

等等

在B栏中，我希望答案如下

Column B
20130830 
20120825

格式为文本格式，即

文本（日期，“yyyyymmdd”）

。范围B将继续，直到范围A有值为止

---

有人能帮我找到正确的代码吗？

单元格中的公式可以这样写，然后一直复制公式，直到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列中日期的格式。使用公式比使用宏简单得多。

格式（字符串、格式掩码）是您需要的函数。但是为什么不在公式中使用文本函数呢？