Excel时间格式转换：min.sec转min.% of min（公式/VBA）

修正后的Excel公式 #

通用版本（支持所有Excel版本） #

=LEFT(A2,FIND(".",A2)-1)+RIGHT(A2,LEN(A2)-FIND(".",A2))/60

设置B列单元格格式为数值，保留2位小数后，即可得到目标格式：

• 10.15 → 10.25
• 8.30 → 8.50
• 4.16 → 4.27

原理：

• LEFT(A2,FIND(".",A2)-1)：提取小数点前的分钟数并转为数值
• RIGHT(A2,LEN(A2)-FIND(".",A2))：提取小数点后的秒数并转为数值
• 秒数除以60得到分钟占比，与原分钟数相加得到最终结果

简洁版本（Excel 365/2021及以上） #

=TEXTBEFORE(A2,".")+TEXTAFTER(A2,".")/60

同样设置单元格格式为保留两位小数即可。

VBA批量处理方法 #

如果需要一次性处理整列数据，无需手动下拉公式，可使用以下VBA代码：

1. 按Alt+F11打开VBA编辑器
2. 右键点击目标工作簿 → 插入 → 模块
3. 粘贴以下代码：

Sub ConvertTimeFormat()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim timeStr As String
    Dim minPart As Double
    Dim secPart As Double
    
    Set ws = ActiveSheet '可改为指定工作表，如Set ws = ThisWorkbook.Worksheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    For i = 2 To lastRow '假设数据从第2行开始
        timeStr = ws.Cells(i, "A").Value
        If InStr(timeStr, ".") > 0 Then
            minPart = Val(Split(timeStr, ".")(0))
            secPart = Val(Split(timeStr, ".")(1))
            ws.Cells(i, "B").Value = minPart + secPart / 60
            ws.Cells(i, "B").NumberFormat = "0.00" '强制保留两位小数
        End If
    Next i
End Sub

4. 按F5运行代码，即可批量完成转换。

内容的提问来源于stack exchange，提问作者MikeF