Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

你正在寻找更好的Excel学习教程吗?Excel技巧80集+数据透视表+函数初中高全套+VBA80集,想学的这儿全都有
查看: 129|回复: 2

[已解决] 日期列拆分到两列

[复制链接]
发表于 2019-11-27 21:51 | 显示全部楼层 |阅读模式
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
如何用vba拆分d列的日期到a列月,b列日,最好用数组字典

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

发表于 2019-11-27 23:27 | 显示全部楼层
  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
复制代码

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

评分

参与人数 1学分 +2 收起 理由
ZJJ32072175 + 2

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2019-11-28 09:22 | 显示全部楼层
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2020-1-26 21:55 , Processed in 0.046800 second(s), 10 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表