Question

我尝试使用按钮将时间标记到一列单元格中，每次按下按钮时，我希望它移动到下面的单元格中，例如A1，A2，A3等。

Sub RectangleRoundedCorners1_Click() 
With Range("A1") 
.Value = Now()

.NumberFormat = "h:mm:ss AM/PM" 
End With 
End Sub

这会将当前时间戳添加到A1，每次替换内容，当excel识别A1已满时，我希望它在下一个单元格中打印。我应该使用某种+1循环吗？我以前没有使用过VB。

谢谢。

Answer 1

每次运行宏时，您需要确定Column A中当前最后使用的行。然后使用Offset(1)下移一行以降低新值

Sub RectangleRoundedCorners1_Click()

Dim LR As Long

With Sheets("Sheet1")
    LR = .Range("A" & .Rows.Count).End(xlUp).Offset(1).Row
    .Range("A" & LR).Value = Format(Now, "h:mm:ss AM/PM")
End With

End Sub

Answer 2

Sub RectangleRoundedCorners1_Click() 
With Cells(Rows.Count, 1).End(xlUp).Offset(1) 
.Value = Now()

.NumberFormat = "h:mm:ss AM/PM" 
End With 
End Sub

如达伦所评论

使用宏使用时间戳填充列

2 个答案: