小编CeF*_*eFu的帖子

尝试转换整个工作表中特定列中的特定数据。

这是我当前的代码，它不会出错，但是它不会正确显示第一个结果（显示 00:00:00），并且仅在第一个记录处停止。

Sub CleanEntry()
    Dim i As Integer
    Dim Seconds As Integer
    Dim j As Long
Dim c As Long
j = 2

For i = Sheet1.UsedRange.Rows.Count To 1 Step -1
c = Range("B" & j).Value
c = c / 86400
Range("B" & j).Value = Format(c, "hh:mm:ss")
j = j + 1
Next
End Sub