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

Question

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

祝你好运

Answer 1

使用Sheet.Index查找当前工作表的索引，然后使用Range.Find()查找下一工作表A列中的最后一个已占用单元格：

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"