ошибка в макросе удаления строк

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Che79

Дата: Пятница, 05.04.2013, 17:40 | Сообщение № 1

Группа: Друзья

Ранг: Старожил

Сообщений: 1649

Репутация: 306 ±

Замечаний: 0% ±

2013 Win, 365 Mac

Уважаемые знатоки VBA,
помогите, пожалуйста, видимо в пятницу вечером мозг совсем сварился)

В книге порядка 60 листов с таблицами с разным кол-вом строк (кол-во столбцов одинаково), под таблицами через одну пустую ячейку поясняющий текст.
Нужно этот текст удалить на всех листах (можно удалять как сами строки, так и просто текст, находящий в этих строках). Вручную делать лень...
Пытаюсь использовать что-то типа

[vba]

Код

Sub Tabliza()
Dim i&, sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
i = sh.Cells(Rows.Count, 1).End(xlUp).Row
sh.Range(i + 1 & ":" & i + 50).Delete
Next
End Sub

[/vba]

Что я делаю не так? Макрос отказывается работать..Вернее, он работает, но ничего не меняется на листах.
Очень признателен за помощь

[admin]Оформляйте коды соответствующими тегами![/admin]

Делай нормально и будет нормально!

Ответить

Формуляр

Дата: Пятница, 05.04.2013, 17:52 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 832

Репутация: 255 ±

Замечаний: 0% ±

Excel 2003, 2013

Che79,
читайте правила.
Без примера можно долго гадать. angry

Попробуйте
[vba]

Код

For Each sh In ThisWorkbook.Worksheets
sh.Cells(9999, 1).End(xlUp).EntireRow.Delete
Next

[/vba]

Excel 2003 EN, 2013 EN

Ответить

Che79

Дата: Пятница, 05.04.2013, 18:01 | Сообщение № 3

Группа: Друзья

Ранг: Старожил

Сообщений: 1649

Репутация: 306 ±

Замечаний: 0% ±

2013 Win, 365 Mac

сорри, пример во вложении. таблицы с числами вот такого формата. Текст "Данные верны" нужно удалить на всех листах.

К сообщению приложен файл: 9194847.xls (25.0 Kb)

Делай нормально и будет нормально!

Ответить

ikki

Дата: Пятница, 05.04.2013, 18:26 | Сообщение № 4

Группа: Друзья

Ранг: Старожил

Сообщений: 1906

Репутация: 504 ±

Замечаний: 0% ±

Excel 2003, 2010

[vba]

Код

For Each w In ActiveWorkbook.Worksheets
w.Cells(w.Rows.Count, 1).End(xlUp).CurrentRegion.EntireRow.Delete
Next

[/vba]

пс. но если "поясняющего текста" после таблицы на каком-нибудь листе не окажется, то удалит саму таблицу.

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki

Сообщение отредактировал ikki - Пятница, 05.04.2013, 18:29

Ответить

Che79

Дата: Пятница, 05.04.2013, 18:46 | Сообщение № 5

Группа: Друзья

Ранг: Старожил

Сообщений: 1649

Репутация: 306 ±

Замечаний: 0% ±

2013 Win, 365 Mac

спасибо за помощь, все работает!! Единственное, как быть если поясняющий текст может быть с пробелами , как на листах 1 и 3, а остальные листы - текст во всех строках (см. пример). В этом случае, макрос удаляет не все.

К сообщению приложен файл: _2.xls (26.5 Kb)

Делай нормально и будет нормально!

Ответить

nilem

Дата: Пятница, 05.04.2013, 19:29 | Сообщение № 6

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

Репутация: 563 ±

Замечаний: 0% ±

Excel 2013, 2016

может что-то вроде этого
[vba]

Код

Sub ert()
Dim wsh As Worksheet
For Each wsh In ThisWorkbook.Worksheets
     With wsh.Range("A3").CurrentRegion
         Range(.Offset(.Rows.Count + 1), wsh.Cells.SpecialCells(11)).ClearContents
     End With
Next wsh
End Sub

[/vba]

Яндекс.Деньги 4100159601573

Ответить

Che79

Дата: Понедельник, 08.04.2013, 13:41 | Сообщение № 7

Группа: Друзья

Ранг: Старожил

Сообщений: 1649

Репутация: 306 ±

Замечаний: 0% ±

2013 Win, 365 Mac

nilem, спасибо! как всегда, все работает, как часы!

Делай нормально и будет нормально!

Ответить

ошибка в макросе удаления строк

Страница 1 из 1
1