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

70521532

用宏怎么样把A列的常规性变成日期型，显示需要一样

liulang0808

2019.05 这个是2019年05月吗？ 这个可以增加后面的日，然后替换.为月
还是1905/7/11 1:12 啊？直接设置格式即可

70521532

2019.05 代表是2019年5月

70521532

直接设置格式会变成1905，那么和原来的意思就不一样了。

w609053988

自己琢磨下格式，再录制宏就可以了

70521532

这个方法我试过了，不行的

YZC51

请参考
Public Sub zh()
arr = [A1:A2]
V = Split(arr(1, 1), ".")
Debug.Print DateSerial(V(0), V(1), 1)
End Sub

70521532

修正一下需求

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   With Worksheets("sheet1")
   
5.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.     arr = .Range("a2:a" & r)
   
7.     ReDim brr(1 To UBound(arr), 1 To 1)
   
8.     For i = 1 To UBound(arr)
   
9.       If IsDate(arr(i, 1)) Then
   
10.         brr(i, 1) = arr(i, 1)
    
11.       Else
    
12.         brr(i, 1) = CDate(Replace(arr(i, 1) & ".1", ".", "-"))
    
13.       End If
    
14.     Next
    
15.     .Columns(1).NumberFormatLocal = "yyyy.mm"
    
16.     .Range("a2").Resize(UBound(brr), 1) = brr
    
17.   End With
    
18. End Sub
    

复制代码

chxw68

楼主的模拟数据很少，不知道真实数据是什么样子的，这段仅供参考。