Table of contents
经常需要将一系列的日期和时间转换为仅有的日期。 我们可以使用Excel VBA将日期和时间转换为仅有的日期。 本文展示了如何以最简单的方式做到这一点。 下图给出了本文的目的的概念。
下载实践工作手册
你可以从下面的下载按钮下载实践工作手册。
仅将日期时间改为日期.xlsmExcel VBA将日期和时间转换为仅有的日期
想象一下，你有以下日期和时间的数据集，在 B列 .
现在，选择整个日期和时间范围。 然后，改变 数字格式 至 一般 之后，你会看到日期和时间转换为小数点后的数字，如下所示。
这里，数字的整数部分代表日期。 而小数部分则代表时间。
现在，假设你想使用Excel VBA将日期和时间转换为仅有的日期。 那么，请按照下面的步骤操作。
📌 阶梯
- 起初，你可以按 CTRL+Z 返回到日期和时间格式。
- 然后，按 ALT+F11 在Windows和 选择+F11 在Mac上打开 微软Visual Basic应用程序 你也可以从 开发商 标签。
- 现在，插入一个新模块，选择 插入>> 模块 .
- 之后，复制以下代码。
Sub DateTimeToDateOnly() Dim Dataset, j As Long Range("B5:B17").Copy Range("C5:C17") Dataset = Range("C5:C17") For j = 5 To 17 With Range("C" & j) .NumberFormat = "mm-dd-yy" .Value = DateValue(.Value) End With Next j End Sub - 然后将复制的内容粘贴到空白模块上，如下所示。
- 接下来，通过点击运行代码 运行 按钮或从 运行
- 之后，日期和时间将只被转换为日期，如下所示。
现在，选择整个日期和时间范围以及转换后的日期。 然后，将数字格式改为 一般 你会看到转换后的日期只包含整数，这就验证了日期和时间已经正确地转换成了日期。
See_also: Excel的INDEX MATCH有多个标准（4个合适的例子）。
相关内容：如何将文本日期和时间转换成Excel中的日期格式（7种简单方法）
See_also: 在Excel中随机生成4位数的数字（8个例子）。
需要记住的事情
- 你需要根据你自己的数据集来改变代码中的范围参数。
- 你可以改变 毫米-dd-y 在代码中的格式为你想要的 日期格式 .
总结
现在，你知道如何使用Excel VBA来 将日期和时间转换为日期 如果你有进一步的问题或建议，请使用下面的评论区。 你也可以访问我们的 优秀 博客，以了解更多关于excel的信息并提高你的表现。
Previous post 在Excel中输入数据时自动输入日期
Next post 如何在Excel中计算集合方差（简易步骤）
