第二步，編寫程式碼流程：開發工具→Visual Basic→插入（選擇模組）→模組1（雙擊）→考錄程式碼（附後）→儲存（2007後的版本要儲存為啟用宏的工作簿.xlsm）；

程式碼如下：

Dim i As Long "宣告數值型別變數

Sub xuanqu()

i = i + 1 "單元格行號變數

If Range("a" & i) = "" Then i = 1 "遇到空格返回開始

Range("a" & i).Select "選中單元格

MsgBox Range("a" & i), , "選取數字" "提示視窗顯示單元格資料

Application.OnTime Now() + TimeValue("00:05:00"), "xuanqu" "間隔5分鐘後迴圈執行

End Sub

Sub auto_open() "開啟檔案時自動執行選字模組

xuanqu

End Sub

第三步，結果預覽。

能否詳細一點你的需求？

每隔五分鐘取一個數字是在哪裡取數字？

取的數字要用來做什麼等等都沒表明清楚咧。