|
本帖最后由 yongge9999 于 2019-11-15 13:35 编辑
Sub test()
Dim brr()
Dim str() As String
x = Sheet1.Cells(65535, 2).End(3).Row
arr = Range(Sheet1.Cells(2, 2), Sheet1.Cells(x, 2))
ReDim brr(1 To UBound(arr), 1 To 1)
For i = 1 To UBound(arr)
str = Split(arr(i, 1), "/")
brr(i, 1) = Format(Left(str(2), 4) & str(1) & str(0), "000年00月00日")
Next
Sheet1.[C2].Resize(UBound(brr, 1), 1).NumberFormatLocal = "yyyy/m/d;@"
Sheet1.[C2].Resize(UBound(brr, 1), 1) = brr
End Sub
|
|