日期列拆分到两列

ZJJ32072175

如何用vba拆分d列的日期到a列月，b列日，最好用数组字典

A列月	B列日	C列	D列
1	20		2019-1-20
2	23		2019-2-23
5	16		2019-5-16
结果	结果		要拆分的列以下有好多

exyantou

1. Option Explicit
   
2. Sub 提取()
   
3. Dim arr, arr2(1 To 100000, 1 To 2), i As Long, k As Long '声明变量
   
4. i = ActiveSheet.[d1048576].End(xlUp).Row '获取日期的最下面一行的行号
   
5. arr = ActiveSheet.Range("d2:d" & i) '将日期赋值为数组arr
   
6.    For k = 1 To UBound(arr)
   
7.      arr2(k, 1) = Month(arr(k, 1)) '获取月份
   
8.      arr2(k, 2) = Day(arr(k, 1)) '获取日期
   
9.    Next
   
10. ActiveSheet.Range("a2").Resize(k, 2).Clear '清空单元格
    
11. ActiveSheet.Range("a2").Resize(k, 2) = arr2 '将获取的值导入单元格区域
    
12. End Sub

复制代码

补充：默认开始行为第二行。

ZJJ32072175

谢谢老师，向您学习了