用宏怎么样把A列的常规性变成日期型

网海遨游

只针对你的数据。A列为文本型，B列为日期型。

Sub test()
    r = [a65536].End(3).Row
    ReDim brr(1 To r - 1)
    arr = Range("a2:b" & r)
    For i = 1 To UBound(arr)
            brr(i) = Year(arr(i, 2)) - Split(arr(i, 1), ".")(0)
    Next i
    [c2].Resize(UBound(brr), 1) = Application.Transpose(brr)
End Sub

70521532

楼上的大神，我没有表达清楚，当我输入1923.03系统默认为是时期1923年3月,或者从sheet2的A1单元格里面把1923.03复制到SHEET1的A2单元格，系统默认为这个就是日期表达方式

网海遨游

用VBA直接计算出年龄，不行么？非要改变A列与B列日期格式？


C列直接计算年龄：

Sub test()
    r = [a65536].End(3).Row
    ReDim brr(1 To r - 1)
    arr = Range("a2:b" & r)
    For i = 1 To UBound(arr)
            brr(i) = Split(arr(i, 2), ".")(0) - Split(arr(i, 1), ".")(0)
    Next i
    [c2].Resize(UBound(brr), 1) = Application.Transpose(brr)
End Sub

chxw68

70521532 发表于 2019-7-23 09:55
楼上的大神，我没有表达清楚，当我输入1923.03系统默认为是时期1923年3月,或者从sheet2的A1单元格里面把192 ...

据我所知，EXCEL目前可能还没有这个功能，所以输入数据的时候尽量按规范输入，比如输入日期：1923-3-1，不要想着把很多事情都交给电脑去完成。

chxw68

如果需要大量输入此类数据，可以利用工作表事件写段代码实现。

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.   Application.EnableEvents = False
   
3.   If Target.Column = 1 Then
   
4.     Target.Value = CDate(Replace(Target.Value & ".1", ".", "-"))
   
5.   End If
   
6.   Application.EnableEvents = True
   
7. End Sub
   

复制代码

chxw68

详见附件。