【已解决】 在Excel中单击Sheet2时，是否可以在Sheet1的A列的最后一个记录的下一行自动填上“End”？
最佳答案 2023-04-26 00:45
在 Excel 中，可以通过 VBA 宏的方式实现当用户单击 Sheet2 时，在 Sheet1 的 A 列的最后一个记录的下一行自动填上“End”。
以下是一个示例代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveSheet.Name = "Sheet2" Then
? ? Dim lastRow As Long
? ? lastRow = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row + 1
? ? Sheets("Sheet1").Range("A" & lastRow).Value = "End"
End If
End Sub以上代码会监视用户选定单元格的变化事件，如果当前活动工作表的名称是“Sheet2”，则获取 Sheet1 的 A 列的最后一个记录的行号，然后在下一行填入“End”。
需要注意的是，使用 VBA 宏需要一定的编程经验，并且在使用时需要谨慎操作，以免发生意外。
感谢您的支持，请随意打赏。您的赞赏将鼓励我继续创作！
Excel搬运工
- Excel大神
扫码关注微信公众号
