请教大神，如何用VBA批量把左图时间格式转化为右图的格式

xuang

请教各位vba大神，如何用vba批量把左图的时间格式转化右图的时间格式，因为下面还会增加6日、7日....的数据，要求新增数据的格式一键变为2020/1/5格式，而且之前已经匹配好的时间格式不会发生改变，就是无论vba运转多少次，格式都是2020/1/5；之前网友的代码只能运转一次，运转第二次格式就会变成2020/1/5 星期日

江小鱼123

数据--分列--日期,录制一个宏

xuang

江小鱼123 发表于 2020-1-6 14:24
数据--分列--日期,录制一个宏

首先感谢老师回答，但是我试验了一下搞不了

lsdongjh

1. Sub Test()
   
2.     Dim sh As Worksheet, rg As Range, lngRow As Long, arr As Variant
   
3.    
   
4.     Set sh = Sheets("【生意参谋平台】1")
   
5.     lngRow = sh.Range("A" & Rows.Count).End(xlUp).Row
   
6.    
   
7.     Set rg = sh.Range("A2:A" & lngRow)
   
8.    
   
9.     arr = rg
   
10.    
    
11.     For lngRow = LBound(arr) To UBound(arr)
    
12.         arr(lngRow, 1) = Format(arr(lngRow, 1), "yyyy/mm/dd")
    
13.     Next
    
14.    
    
15.     rg.NumberFormat = "@"
    
16.     rg = arr
    
17.     Set rg = Nothing
    
18. End Sub

复制代码

xuang

lsdongjh 发表于 2020-1-7 10:18

感谢老师，完美的实现了我想要的效果，之前自己网上找的代码，瞎搞一阵，头都大了，代码之路任重而道远呀