[已解决]用VBA转换日期

guogongyi

用VBA将表一中的所有日期转换成20130722，不要中间的横杠。我有2000行，数量多。谢谢

最佳答案

月排行榜 / 总排行榜

as0810114

2014-10-25 09:56

Sub test()
Dim rng As Range
Dim irow, icol
irow = Cells(Rows.Count, 1).End(xlUp).Row
icol = Cells(1, Columns.Count).End(xlToLeft).Column
For Each rng In Range(Cells(1, 1), Cells(irow, icol))
    If IsDate(rng) Then rng = Format(rng, "yyyymmdd")
Next
Range(Cells(1, 1), Cells(irow, icol)).NumberFormatLocal = "G/通用格式"
End Sub

跳转到最佳答案楼层

as0810114

Sub test()
Dim rng As Range
Dim irow, icol
irow = Cells(Rows.Count, 1).End(xlUp).Row
icol = Cells(1, Columns.Count).End(xlToLeft).Column
For Each rng In Range(Cells(1, 1), Cells(irow, icol))
    If IsDate(rng) Then rng = Format(rng, "yyyymmdd")
Next
Range(Cells(1, 1), Cells(irow, icol)).NumberFormatLocal = "G/通用格式"
End Sub

xdragon

1. Sub t()
   
2.     Dim arr, col%, r&
   
3.     With Sheets("表一")
   
4.         arr = .Range("A1").CurrentRegion.Value
   
5.         For r = 1 To UBound(arr)
   
6.             For col = 1 To UBound(arr, 2)
   
7.                 If IsDate(arr(r, col)) Then arr(r, col) = Format(arr(r, col), "yyyymmdd")
   
8.             Next
   
9.         Next
   
10.         .Range("A1").Resize(UBound(arr), UBound(arr, 2)) = arr
    
11.         .Range("A1").Resize(UBound(arr), UBound(arr, 2)).NumberFormatLocal = "G/通用格式"
    
12.     End With
    
13. End Sub

复制代码

xdragon

1. Sub test2()
   
2.     Cells.NumberFormatLocal = "yyyymmdd"
   
3. End Sub

复制代码

还有个方法是障眼法（实际单元格还是日期格式的，这样也便于日期的筛选），缺点是如果要输入数值型的数字就显示不正常了{:071:}

su45

楼上的代码都能满足楼主了！

dsmch

建议不要改变，这样方便以后的日期运算等
非得改变的话，格式，自定义：“yyyymmdd”

guogongyi

谢谢各位的热情帮助，最佳只能给一个，对不起各位了，只能给评分了。