各位好
日前整理公司資料,系統自動匯出日期格式為110/1/5
若想轉換成110/01/05的話該怎麼操作
試過轉換格式都沒有任何變化,所以上來詢問各位大大
EXCEL版本為2013
假設轉出的日期存放在EXCEL B2~B12
可用以下VBA進行轉換,並把轉換後的資料放在C2~C12
Sub tnsDate()
For i = 2 To 12
arrSplitStrings1 = Split(Cells(i, "B"), "/")
For j = 0 To UBound(arrSplitStrings1)
Cells(i, "C") = arrSplitStrings1(0) & "/" & Right("0" & arrSplitStrings1(1), 2) & "/" & Right("0" & arrSplitStrings1(2), 2)
Next j
Next i
End Sub
內文搜尋

X