Удаление строк по значению

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

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

Удаление строк по значению (Макросы/Sub)

VikVik

Дата: Четверг, 28.02.2019, 10:51 | Сообщение № 1

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

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

Сообщений: 2

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

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

Excel 2016

Мне нужно создать макрос на удаление определенных строк начинающихся с №п/п по сметная стоимость(в столбце С) они повторяются по смете ,как правильно записать макрос ?Или же оставить только позиции сметные 1,2,3 и т.д без расписания ресурсов

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

Хочу освоить exel

Сообщение отредактировал VikVik - Четверг, 28.02.2019, 10:58

Ответить

skais

Дата: Четверг, 28.02.2019, 13:19 | Сообщение № 2

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

Ранг: Форумчанин

Сообщений: 236

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

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

Excel 2010

VikVik То есть Вы хотите оставить только строки несущую информацию по пунктам или подпунктам - а все остальное, шапки, итоги и прочее удалить?
А еще лучше покажите на соседнем листе как в итоге хотите видеть результат.

Сообщение отредактировал skais - Четверг, 28.02.2019, 13:20

Ответить

VikVik

Дата: Четверг, 28.02.2019, 18:15 | Сообщение № 3

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

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

Сообщений: 2

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

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

Excel 2016

skais, Да именно строки с пунктами нужно оставить,а все остальное подпункты итого и прочее удалить

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

Хочу освоить exel

Ответить

krosav4ig

Дата: Четверг, 28.02.2019, 20:57 | Сообщение № 4

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

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

Сообщений: 2347

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

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

Excel 2007,2010,2013

[vba]

Код

Sub fffff()
    dim r as Range
    With ActiveSheet
        On Error Resume Next
        .Outline.ShowLevels 1
        Set r = .Columns(1).SpecialCells(2, 23).SpecialCells(12)
        Set r = Union(.Rows("1:25"), r, r.Offset(1))
        .Outline.ShowLevels 8: r.EntireRow.Hidden = True
        .UsedRange.SpecialCells(12).EntireRow.Delete: r.EntireRow.Hidden = 0
        Application.Goto .[A26], 1
    End With
End Sub

[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Четверг, 28.02.2019, 20:58

Ответить

Удаление строк по значению (Макросы/Sub)

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