文本格式日期转换成指定格式，写入对应单元格

netservice

求大神帮忙
要求：
1、将K2单元格内容格式化成指定格式，写入R2单元格，K2单元格内容不能改变；
       （指定格式示例：将K2单元格内容2018-04-17 14:44:06格式化成201804，写入R2单元格）
2、继续按第1条要求向下执行，直到A2为空则停止；
3、因为数据量大，宏代码须运行速度快；

湘南游侠

R2=TEXT(K2,"YYYYMM")

netservice

湘南游侠 发表于 2018-7-21 15:02
R2=TEXT(K2,"YYYYMM")

这个是函数公式的写法， 因为数据多，公式会慢，需要使用宏。

liulang0808

netservice 发表于 2018-7-21 15:31
这个是函数公式的写法， 因为数据多，公式会慢，需要使用宏。

format 楼主查下这个函数跟表格函数text雷同

netservice

liulang0808 发表于 2018-7-21 19:31
format 楼主查下这个函数跟表格函数text雷同

表示不会啊，能否帮忙写一个？

liulang0808

netservice 发表于 2018-7-22 22:55
表示不会啊，能否帮忙写一个？

建议楼主上传附件，结合附件内容描述需求

netservice

liulang0808 发表于 2018-7-23 06:56
建议楼主上传附件，结合附件内容描述需求

不知道什么原因，附件上传失败，能否通过QQ发给你呢？

獨一無2

Cells(2, "R").value = Format(Cells(2, "K"), "YYYYMM")
A2指一个单元格，如果是以A列为判断条件，则为：
Sub test()
    Dim row As Integer
    row = 2
    Do While Cells(row, "A") <> ""
        Cells(row, "R").value = Format(Cells(row, "K"), "YYYYMM")
        row = row + 1
    Loop
End Sub