Excel日期转文本

一、日期格式介绍

在处理Excel数据时，日期格式是经常遇到的一种格式。在Excel中，它通常被用来以日期形式输入和存储数据。Excel以1899年12月30日作为第一天，并且每一天对应的是一个连续的数字。Excel读和显示日期的方式是使用格式化系统，并且它有很多不同的日期格式，例如“年-月-日”、“月/日/年”、“日-月-年”等。

二、Excel日期转为字符串方法

使用Excel将日期转换成文本非常简单，只需使用以下函数:

=TEXT(日期值,"日期格式")

其中，日期值可以是一个普通的日期值、日期格式也是有很多种调整的方法，如：

=TEXT(TODAY(),"yyyy-mm-dd")  返回2021-03-29

三、VBA代码实现

下面通过VBA代码实现将日期转化为文本。

Sub DateToText()
    Dim rng As Range
    Set rng = Range("A1:A10")
    ' 设置日期格式
    rng.NumberFormat = "yyyy-mm-dd"
    ' 遍历日期值进行转化
    For Each cell In rng
        cell.Value = Format(cell.Value, "yyyy-mm-dd")
    Next
End Sub

四、应用举例

假设我们有一个日期列表，如下图所示。

我们想将这些日期转化为字符串，并显示在另一个列中。这时，我们可以在B列中使用以下公式：

=TEXT(A2,"yyyy-mm-dd")

然后将公式复制到整个列。将日期转化为文本，结果如下图所示：

另外，我们还可以使用VBA代码批量处理需要的日期格式。例如，将A列中的所有日期格式设置为“年-月-日”的格式，我们可以编写以下代码：

Sub DateToText()
    Dim rng As Range
    Set rng = Range("A1:A10")
    '设置日期格式
    rng.NumberFormat = "yyyy-mm-dd"
    '遍历日期值进行转化
    For Each cell In rng
        cell.Value = Format(cell.Value, "yyyy-mm-dd")
    Next
End Sub

五、总结

Excel日期转文本，是Excel中常用的操作之一。我们可以通过简单的公式和函数实现日期到字符串的快速转换。同时，也可以使用VBA代码进行批量处理，使得工作效率更高。