如何在 Excel 中將小時、分鐘和秒轉換為小數小時？

如果您有一系列以小數小時格式顯示的時間，但您習慣於 hh:mm:ss（小時、分鐘和秒格式），該怎麼辦呢？使用以下方法，您可以解決小時、分鐘、秒與小數小時之間的轉換問題。

使用公式將小時、分鐘和秒轉換為小數

一鍵將小時、分鐘和秒轉換為小數

使用公式將小數轉換為小時、分鐘和秒

使用 VBA 將小數轉換為小時和分鐘

使用公式將小時、分鐘和秒轉換為小數

假設您在 A 列中有一系列以小時、分鐘和秒格式表示的時間，要將它們轉換為小數時間，只需按照以下步驟操作：

1. 選擇一個空白單元格，例如 B1 單元格，在該單元格中輸入公式 =A1*24（A1 單元格表示您想將其數據轉換為小數時間的單元格，您可以根據需要更改它），然後點擊鍵盤上的 Enter 按鈕。請參見截圖：

2. 然後拖動填充柄來填充您想要操作的範圍。請參見截圖：

3. 接下來，您需要通過選擇範圍、右鍵點擊並在上下文選單中點擊「設定儲存格格式」，將 B 列中的結果單元格格式化為一般格式。請參見截圖：

4. 然後在「 設定儲存格格式」對話框中點擊「數字」標籤，從「分類」框中點擊「一般」，然後點擊「確定」關閉對話框。請參見截圖：

您可以看到如下所示的結果：

一鍵將小時、分鐘、秒轉換為小數小時

如果您已在 Excel 中安裝了 Kutools for Excel，您可以使用「 時間轉換」工具快速將 hh:mm:ss 轉換為小數小時/分鐘/秒。

免費安裝 Kutools for Excel 後，請按以下步驟操作：

選擇時間單元格，然後點擊 Kutools > 文字 > 時間轉換，並選擇符合您需求的轉換選項。請參見截圖：

然後會彈出一個對話框提醒您已轉換的單元格數量，點擊「確定」關閉它，所有選中的時間都已經被轉換。

提示：如果您想將轉換後的小數保存到另一個位置，您可以點擊 Kutools > 文字 > 時間轉換 以顯示「時間轉換」對話框，然後在對話框中勾選您需要的轉換類型，並勾選 「保存到另一個位置」複選框，選擇一個單元格輸出結果，點擊「確定」，時間已被轉換並定位到新位置。請參見截圖：

使用公式將小數轉換為小時、分鐘和秒

反過來，如果您想將小數時間轉換為小時、分鐘和秒格式，可以按照以下步驟操作：

假設您的數據在 A 列中，並且您需要將它們轉換為小時、分鐘、秒格式。

1. 選擇一個空白單元格，在這種情況下，我選擇 B1 單元格，並在 B1 中輸入公式 =A1/24（A1 單元格表示您想將其數據轉換為小時、分鐘和秒格式的單元格，您可以根據需要更改它），然後點擊鍵盤上的 Enter 按鈕。請參見截圖：

2. 重複步驟 1，根據需要在 B 列中逐一輸入上述公式，例如，在 B2 單元格中輸入 =A2/24 並點擊 Enter。請參見截圖：

3. 然後，您需要通過選擇使用公式的範圍、右鍵點擊並在上下文選單中點擊「設定儲存格格式」，將 B 列中的單元格格式化為 hh:mm:ss 格式。請參見截圖：

4. 然後在「 設定儲存格格式」對話框中點擊「數字」標籤，從「分類」框中點擊「時間」，並在右側的「類型」框中選擇 13:30:55，然後點擊「確定」關閉對話框。請參見截圖：

您可以看到數據已經被轉換。

使用 VBA 將小數轉換為小時和分鐘

使用上述公式 =A1/24 逐一轉換時間有些耗時，但使用 VBA 代碼，您可以一次性將一系列小數時間轉換為小時和分鐘。

1. 按住 ALT 鍵並按下鍵盤上的 F11 打開 Microsoft Visual Basic for Applications 窗口。

2. 點擊 插入 > 模組，並將 VBA 複製到模組中。

VBA：將小數時間轉換為小時和分鐘

Sub ConvertToTime()
'Updateby20140227
Dim Rng As Range
Dim WorkRng As Range
Dim xHours As Variant
Dim xMin As Variant
Dim xValue As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    xValue = Rng.Value
    xHours = VBA.Split(xValue, ".")(0)
    xMin = VBA.Split(xValue, ".")(1) * 60
    Rng.Value = xHours & ":" & VBA.Left(xMin, 2)
Next
End Sub

3. 點擊「執行」按鈕或按下 F5 鍵運行 VBA，然後會彈出一個 KutoolsforExcel 對話框讓您選擇工作範圍。請參見截圖：

4. 在彈出的對話框中點擊「確定」，所選範圍的數據已經被轉換為小時和分鐘格式。請參見截圖：

提示：運行上述 VBA 代碼後，您將失去原始數據，因此最好在運行 VBA 之前複製並保留它們。

相關文章：

• 將小數角度轉換為度、分和秒