excel vba日期格式 - for循环

Question

如何遍历整个列并检查它是全年格式还是全日期格式，并将每个单元格更改为完整日期格式。例如，如果一个单元格是1832，那么如何使它成为1/1/1832，以便格式在整个列中保持一致Q

Answer 1

以下是如何做到这一点。

Dim i As Integer
For i = 1 To Range("Q1").End(xlDown).Row
   If Not IsDate(Cells(i, 17).Value) Then
       Cells(i, 17).Value = "1/1/" & Cells(i, 17).Value
   End If  
Next i

IsDate函数返回＆＃34; true＆＃34;如果传递的值是日期。如果单元格值不是日期，则连接＆＃34; 1/1＆＃34;到细胞价值。 （17代表列Q）