VBA宏在下一页中找到第一个空单元格

Question

是不是真的可以在Excel中创建一个跳转到下一页的第一个单元格的宏？

问候

Answer 1

使用Sheet.Index找到当前工作表的索引，然后使用Range.Find()找到最后占领了下一张纸列的单元格：

Dim NextSheetIdx As Long 
NextSheetIdx = ActiveWorkbook.ActiveSheet.Index + 1 
If NextSheetIdx > ActiveWorkbook.Sheets.Count Then Exit Sub 

Dim InsertRange As Range 
Set InsertRange = ActiveWorkbook.Sheets(NextSheetIdx).Columns("A") _ 
     .Find("*", SearchDirection:=xlPrevious) 
If Not InsertRange Is Nothing Then 
    Set InsertRange = InsertRange.Offset(1) 
Else 
    Set InsertRange = ActiveWorkbook.Sheets(NextSheetIdx).Range("A1") 
End If 
InsertRange.Value = "ayy"