VBA从日期

Question

我想从像这样的宏中删除单元格中的日期（在同一列D中）：5/5/2006 12:00 AM ==＆gt; 2006年5月5日

事情是第一个格式化的细胞永远不变。我在网上找到了一个可能对我有用的代码，但不适合我：

Sub ConvertDates()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
Rng.Value = VBA.Int(Rng.Value)
Next
WorkRng.NumberFormat = "mm/dd/yyyy"
End Sub

为什么不简单地在没有小时的情况下格式化所有列？使用DateValue（.Value）函数..

我是宏的初学者，对不起！感谢您的宝贵帮助:)）