Question

早上好，

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

提前致谢！

' 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

Answer 1

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

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

Excel VBA格式缩写＆amp;日期

1 个答案: