Добрый день! Помогите пожалуйста макросом в Excel найти пустую ячейку в строке.
Знаю про Cells(Rows.Count, 1).End(xlUp).Select, но эта находит последнюю во всем столбце, не зависимо от того были ли промежутки пустых ячеек или нет. И еще поиск необходимо начинать не с первой, ну а допустим с 25 строки.
Всем заранее спасибо!!!
786 постов15K подписчик
1. Не нарушать правила Пикабу
2. Публиковать посты соответствующие тематике сообщества
3. Проявлять уважение к пользователям
4. Не допускается публикация постов с вопросами, ответы на которые легко найти с помощью любого поискового сайта.
По интересующим вопросам можно обратиться к автору поста схожей тематики, либо к пользователям в комментариях
Важно - сообщество призвано помочь, а не постебаться над постами авторов! Помните, не все обладают 100 процентными знаниями и навыками работы с Office. Хотя вы и можете написать, что вы знали об описываемом приёме раньше, пост неинтересный и т.п. и т.д., просьба воздержаться от подобных комментариев, вместо этого предложите способ лучше, либо дополните его своей полезной информацией и вам будут благодарны пользователи.
Утверждения вроде "пост - отстой", это оскорбление автора и будет наказываться баном.
Sub Test()
Dim WS As Worksheet
Set WS = ThisWorkbook.Sheets("Лист1")
Dim i As Integer
Dim t As Integer
Const FirstRow As Integer = 25
Dim flag As Boolean
flag = False
For i = FirstRow To WS.Cells().SpecialCells(xlLastCell).Row
For t = 1 To WS.Cells().SpecialCells(xlLastCell).Column
If CStr(WS.Cells(i, t).Value) = "" And WS.Cells(i, t).Formula = "" Then
flag = True
Exit For
End If
Next t
If flag = True Then
Exit For
End If
Next i
If flag = True Then
MsgBox ("Пустая ячейка найдена в строке " & CStr(i) & " и колонке " & CStr(t))
Else
MsgBox ("Пустая ячейка не найдена")
End If
Set WS = Nothing
End Sub