如何用Excel VBA在P1、Q3、V3三个单元格写入时间戳？

你的现有代码仅实现了P1单元格的时间戳写入，要同时处理P1、Q3、V3三个单元格，可以用更简洁的方式批量操作，避免重复代码：

Sub Start_Click()
    Dim targets As Range
    ' 定义需要写入时间戳的目标单元格集合
    Set targets = ActiveSheet.Range("P1, Q3, V3")
    
    ' 统一设置时间格式
    targets.NumberFormat = "dd/mm/yyyy HH:mm:ss AM/PM"
    ' 写入当前时间戳（三个单元格将获得完全相同的时间）
    targets.Value = Now()
    
    ' 设置对应列的宽度，和原代码逻辑保持一致
    With ActiveSheet
        .Columns("P").ColumnWidth = 16#
        .Columns("Q").ColumnWidth = 16#
        .Columns("V").ColumnWidth = 16#
    End With
End Sub

关键说明： #

• 用Range("P1, Q3, V3")一次性选中多个目标单元格，减少重复代码
• 批量设置格式和赋值，确保三个单元格的时间完全同步（都是调用Now()瞬间的时间）
• 通过Columns对象批量设置对应列的宽度，和原代码的列宽设置逻辑一致

内容的提问来源于stack exchange，提问作者darxxiph