如何使用VBA在excel中将列的日期格式值转换为同一列中的唯一数字

Question

我想将一列的日期值转换为数字，结果应该在同一列中，

我尝试将单元格转换为文本格式，然后使用以下代码删除“/”字符：

    Sub removechar()
 Dim input1 As String 
 Dim result As String
 input1 = range("H1:H")
 Range("H1:H").NumberFormat = "@"
 result = Replace(input1, "/", "")
 Range("H1:H") = result
End Sub

该代码适用于一个单元格，但不适用于该列的所有单元格。 所需结果附在所需结果下方的图像中

Answer 1

对于下面的讨论，我假设这些值是“真实日期”，其格式将在您显示时显示。

此外，目标列的格式为 General 或 Number，没有小数位或分隔符。

如果不是这种情况，您可以手动添加。

你可以用一个简单的公式来做到这一点：

=--TEXT(H1,"ddmmyyy")

双一元将文本字符串转换为数字

如果您必须使用 VBA，请调整以下代码以符合您的实际源和目标要求：

Option Explicit
Sub dateToNumber()
    Dim rSrc As Range
    Dim vSrc As Variant
    Dim I As Long
    
With ThisWorkbook.Worksheets("sheet13")
    Set rSrc = Range(.Cells(1, "H"), .Cells(.Rows.Count, "H").End(xlUp))
End With

'Faster to work in arrays than back and forth to the worksheet
vSrc = rSrc
For I = 1 To UBound(vSrc, 1)
    vSrc(I, 1) = Val(Format(vSrc(I, 1), "ddmmyyyy"))
Next I

'if you want to overwrite, remove Offset property from below line
With rSrc.Offset(columnoffset:=1)
    .EntireColumn.Clear
    .NumberFormat = "General"
    .Value = vSrc
    .EntireColumn.AutoFit
End With
    
End Sub