利用VBA规范日期格式

金樽邀月

       初学VBA，工作中不同的人共同填写同一张表格，A列日期格式不统一，希望能通过VBA规范日期格式，我写的一段代码很菜，请大师们指导一下。一是如何把B4单元格的内容直接写入代码中；二是代码如何改进。

lizhipei78

如果都是这样子的数据格式，也是容易的，先判断是否为数字格式，如果不是，则分别取年月就好了

lizhipei78

lizhipei78

1. Sub 提取格式()
   
2.     arr = Range("A1").CurrentRegion
   
3.     For i = 2 To UBound(arr)
   
4.         x = arr(i, 1)
   
5.         If InStr(x, ".") Then
   
6.             a = Split(x, ".")(0)
   
7.             b = Split(x, ".")(1)
   
8.             arr(i, 4) = a & b
   
9.         Else
   
10.             a = Year(x): b = Month(x)
    
11.             arr(i, 4) = a & b
    
12.         End If
    
13.     Next
    
14.     Range("D1").Resize(UBound(arr), 1) = Application.Index(arr, 0, 4)
    
15. End Sub

复制代码