使用宏用时间戳填充列

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

Darren 评论