如何刪除最後一個字符並用`.`代替`：`

Question

我有兩列M和U，其中包含Excel工作表中的員工時間記錄，但時間格式錯誤，它類似於08:13a。我想它看起來像08.13爲了使用減法公式如=U2-M2來獲得差異。所以我想用.代替:，並使用Excel VBA獲取最後一個字符。

Answer 1

如果8：13A真的是8小時，13分鐘，然後運行：

Sub TimeFixer() 
    For Each r In Selection 
     ary = Split(Mid(r.Text, 1, Len(r.Text) - 1), ":") 
     r.Value = TimeSerial(ary(0), ary(1), 0) 
     r.NumberFormat = "hh:mm:ss" 
    Next r 
End Sub 

會產生一個時間，你可以使用數字。

編輯＃1：

公式：

=TIMEVALUE(LEFT(A1,LEN(A1)-1)) 

例如：

還是在代碼替換選擇喜歡的東西範圍（」 A1：A100「）

皮膚有這麼多種方法。