Excel VBA格式首字母和日期

早上好

我试图将一组首字母和DOB组合成一列，为每个人创建一个唯一的标识符。例如，带有DOB 01/01/2001的首字母JS应输出JS01012001。DOB列最初的格式为mm/dd/yyyy样式。在进行连接之前，我将其重新格式化为mmddyyyy。这将正确显示在DOB列中。但是，当我运行下面的宏时，它会在ID列中作为JS01/01/2001输出。我正在尝试我能想到的格式中的每一种组合，以使其正确输出，但我仍然没有得到它。任何帮助都将不胜感激

提前谢谢

' Format DOB column (M)
    Columns("M:M").Select
    Selection.NumberFormat = "mmddyyyy"

' Concatenate Initials (L) and DOB (M) columns and output in ID column (N)
    For i = 2 To LastRow
        Cells(i, 14) = Cells(i, 12) & "" & Cells(i, 13)
    Next i

---

您需要在VBA中使用以下命令将日期对象转换为字符串：

Cells(i, 14) = Cells(i, 12) & Format(Cells(i, 13), "mmddyyyy")