Excel時間函數爲VBA函數

Question

我有這個數字 - 2411 [置於單元格A2]，這是一個活動開始以來的秒數。現在我知道活動的開始時間是07/30/2016 13:11:18。在excel中，如果我想將這個秒轉換爲時間，我可以使用這個公式 - 時間（13,11，（18 + A2）），這將返回 - 下午1:15。我有接近1500行這樣的數字，我知道我可以應用這個公式，並拖動它到最後以獲得細節。在VBA中，我們有一個可以執行相同功能的代碼嗎？

謝謝。

Answer 1

您可以使用Excel的「記錄宏」按鈕根據您的操作生成VBA代碼。

較短的版本可以像

Sub a() 
    Range("B2:B1500").Formula = "=Time(13,11,(18+A2))" 
End Sub