Excel使用VBA做日期转换（日和月）

cxkaka

求助各位大神，本人有一列日期（A列），Excel总会自动判断把某些行（日或月小于12？）默认为文本格式（B列）而无法转换成正确的日期。现在需要使用vba将A列自动转换成C列的日期格式。万分感谢！


日期转换.zip (8.27 KB, 下载次数: 8)

2023-4-11 22:02 上传

点击文件名下载附件

lihaosh

1. Sub test()
   
2.     Dim lastRow As Long
   
3.     lastRow = Cells(Rows.Count, "A").End(xlUp).Row
   
4.     Dim dateTxt As String
   
5.     Dim dateVal As Variant
   
6.     For i = 1 To lastRow
   
7.         dateTxt = Cells(i, "A").Value
   
8.         If IsDate(dateTxt) Then
   
9.             dateVal = CDate(dateTxt)
   
10.             Cells(i, "C").Value = dateVal
    
11.         End If
    
12.     Next i
    
13.     Columns("C:C").AutoFit
    
14.     Range("C:C").HorizontalAlignment = xlCenter
    
15. End Sub
    

复制代码

lihaosh

看二楼代码

lihaosh

看二楼代码

cxkaka

lihaosh 发表于 2023-4-11 22:25
看二楼代码

老哥牛逼，亲测可用