我想知道是否有任何方法每10秒更改一个单元格的值。新值将是列中的下一个单元格，依此类推，直到它遍历所有非空白单元格。
答案 0 :(得分：0)
您可以使用\app\components\HelloWidget::widget(['message' => 'Good morning'])
函数每10秒调用一次函数：
Application.OnTime因此，将Dim i As Integer
Function startTimer()
'Set counter to 1
i = 1
'Call Function
TimerFunction
End Function
Function TimerFunction()
'Write Current Time to Column A
Sheets("Table1").Cells(i, 1).Value = Format(Now, "hh:mm:ss")
'If counter = 10, stop Timer
If i = 10 Then
Exit Function
End If
i = i + 1
'Call this Function with a delay of 10 seconds
Application.OnTime Now + TimeValue("00:00:10"), "TimerFunction"
End Function
条件更改为与您的任务相匹配的条件。也许这个：如果当前列=最后使用的列（如果我理解你的话）