VBA Каким образом можно найте пустую строку?

Пользователь

Сообщений: 10514 Регистрация: 21.12.2012

19.08.2010 12:14:16

Ну, в общем-то вопрос в заголовке.
нашел такое выражение: a = ActiveSheet.Rows(13).Text , но у меня оно работает только по первому столбцу: если А13 ="",то и а= ""; если А13 <>"", то а=Null, на другие ячейки не реагирует - так и должно быть? и есть ли возможность проверить всю строку?

ps.капча 65536 = число строк :)

Alex_ST

Пользователь

Сообщений: 2774 Регистрация: 22.12.2012

На лицо ужасный, добрый внутри

19.08.2010 12:24:55

Михаил, гляньте, как это делается в макросе удаления пустых строк:
Sub DeleteEmptyRows()
'---------------------------------------------------------------------------------------
' Procedure : DeleteEmptyRows
' Author : The_Prist???
' Topic_HEADER : Удаление всех пустых строк в таблице
' Topic_URL : http://www.planetaexcel.ru/tip.php?aid=31
' Post_Author :
' Post_URL :
' DateTime : 10.09.2006
' Purpose : Удаление всех пустых строк в таблице
' Notes :
'---------------------------------------------------------------------------------------
If MsgBox("Удалить все пустые строки на листе?", vbOKCancel Or vbQuestion Or vbDefaultButton1, "Удалить пустые строки?") = vbCancel Then Exit Sub
Dim lLastRow As Long, i As Long
lLastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For i = lLastRow To 1 Step -1
If Application.CountA(Rows(i)) = 0 Then Rows(i).Delete
Next
Application.ScreenUpdating = True
End Sub

С уважением, Алексей (ИМХО: Excel-2003 - THE BEST!!!)

ТолькоУчусь Пользователь Сообщений: 1220 Регистрация: 13.05.2010	#3 19.08.2010 12:27:36 Таким образом: --------------------- If Application.WorksheetFunction.CountA(Rows®) = 0 Then ... --------------------- Прикрепленные файлы post_147221.xls (29 КБ) <FONT COLOR="CadetBlue">

Михаил С. Пользователь Сообщений: 10514 Регистрация: 21.12.2012	#4 19.08.2010 12:34:58 Алексей, Дмитрий - спасибо, понял :)

Михаил С. Пользователь Сообщений: 10514 Регистрация: 21.12.2012	#5 19.08.2010 13:09:20 Ага, возникает почти риторический, много раз задаваемый вопрос, что мы считаем пустой ячейкой... :) Например, в А1 формула ="", тогда ActiveSheet.Rows(1).Text ="", а If Application.CountA(Rows(1))=1 (даже если формулу заменить на значение)

Читают тему