VBA实现按钮每次点击向F列首个空白单元格写入当前时间

替换原代码为以下简洁实现，无需循环，利用Excel内置定位方法高效完成需求：

Private Sub CommandButton7_Click()
    Dim nextRow As Long
    ' 判断F1是否为空，为空则从第1行开始；否则取最后非空行的下一行
    nextRow = IIf(Range("F1").Value = "", 1, Cells(Rows.Count, "F").End(xlUp).Row + 1)
    
    ' 限制填充范围在F1:F100内
    If nextRow <= 100 Then
        Cells(nextRow, "F").Value = Time
    End If
End Sub

代码说明 #

• Cells(Rows.Count, "F").End(xlUp)：快速定位F列最后一个非空单元格，比循环遍历所有单元格效率高得多
• IIf函数处理F列为空的特殊情况，确保首次点击直接填充F1
• 增加nextRow <= 100的判断，避免超出你设定的F1:F100范围

内容的提问来源于stack exchange，提问作者Habeeb E Sadeed