|
求帮助:我想将C3:C和F3:F区域内的年月格式转换成D3:D和G3:G区域内的年月日格式,不想用辅助列,最好是在C列和F列内直接转换。用VBA代码谢谢
- Sub Macro1()
- Dim arr, i&
- arr = Range("c3:c" & Range("c65536").End(xlUp).Row)
- For i = 1 To UBound(arr)
- arr(i, 1) = DateSerial(Left(arr(i, 1), 4), Right(arr(i, 1), 2), 1)
- Next
- With Range("f3").Resize(UBound(arr))
- .NumberFormatLocal = "yyyy/mm/dd"
- .Value = arr
- End With
- End Sub
复制代码
|
|