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"