2014-10-08 2 views
0

Действительно ли это, что невозможно создать макрос в Excel, который перескакивает в первую ячейку следующей страницы?VBA macro найти первую пустую ячейку на следующей странице

С наилучшими пожеланиями

+0

Вы имеете в виду выбор ячейки ' A1' в следующем листе? – Gareth

+0

@Gareth да вроде, за исключением того, что строка на этой странице не является «1». Это скорее «A57» иш. –

+0

Вы имеете в виду следующую доступную ячейку в столбце A следующего рабочего листа? Может быть хорошо, если вы разместите часть своего кода, чтобы мы могли лучше понять. – Gareth

ответ

0

Использование 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"