удаление строк в таблице

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » удаление строк в таблице (Макросы/Sub)

1gelena

Дата: Суббота, 22.03.2014, 22:15 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

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

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

Excel 2007

Добрый вечер! Целый день бьюсь, ничего не получается. Есть лист с таблицей, ограниченной 106 строками. Таблица такого размера создается после выполнения других макросов. Пытаюсь удалить строки, где в столбцах "Номенклатура..." пусто и строки удалить только внутри таблицы. Весь файл в архиве 180 кв, поэтому вынужден выкладывать отдельный лист.

К сообщению приложен файл: 5022812.xlsm (93.4 Kb)

хочу научиться работать в excel

Ответить

KuklP

Дата: Суббота, 22.03.2014, 22:49 | Сообщение № 2

Группа: Проверенные

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

Сообщений: 2369

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

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

2003-2010

Строго в соответствии с описанием:
[vba]

Код

Public Sub www()
     Dim i&
     On Error Resume Next
     ActiveSheet.ListObjects(1).Unlist
     For i = 1 To 55 Step 6
         Range(Cells(65536, i).End(xlUp)(2), Cells(106, i + 5)).Delete xlUp
     Next
     ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$6").CurrentRegion, , xlYes).Name = _
     "Таблица1"
End Sub

[/vba]

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

1gelena

Дата: Суббота, 22.03.2014, 22:54 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

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

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

Excel 2007

Большое СПАСИБО. Теперь есть куда двигаться дальше. Проблема решена

хочу научиться работать в excel

Сообщение отредактировал 1gelena - Суббота, 22.03.2014, 22:55

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » удаление строк в таблице (Макросы/Sub)

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