Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Удаление строк/столбцов по ключу - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление строк/столбцов по ключу (Макросы/Sub)
Удаление строк/столбцов по ключу
ArkaIIIa Дата: Воскресенье, 13.08.2017, 19:36 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 894
Репутация: 115 ±
Замечаний: 0% ±

2010
Доброго времени суток, господа!
Подскажите, пожалуйста, если будет свободная минутка)

Файл-пример в приложении.

Задача макроса:
1) Удалить столбцы (поиск по заданной строке) по ключу, например: строка 7, ключ "Заголовок8"
2) Удалить строки (поиск по заданному столбцу) по ключу, например: столбец B, все строки содержащие "255".

Заранее очень вам признателен!
К сообщению приложен файл: 3529023.xlsx (9.3 Kb)


Сообщение отредактировал ArkaIIIa - Воскресенье, 13.08.2017, 21:03
 
Ответить
СообщениеДоброго времени суток, господа!
Подскажите, пожалуйста, если будет свободная минутка)

Файл-пример в приложении.

Задача макроса:
1) Удалить столбцы (поиск по заданной строке) по ключу, например: строка 7, ключ "Заголовок8"
2) Удалить строки (поиск по заданному столбцу) по ключу, например: столбец B, все строки содержащие "255".

Заранее очень вам признателен!
Автор - ArkaIIIa
Дата добавления - 13.08.2017 в 19:36
ArkaIIIa Дата: Воскресенье, 13.08.2017, 21:00 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 894
Репутация: 115 ±
Замечаний: 0% ±

2010
Согласен. Извиняюсь. Сейчас поправлю.
 
Ответить
СообщениеСогласен. Извиняюсь. Сейчас поправлю.
Автор - ArkaIIIa
Дата добавления - 13.08.2017 в 21:00
_Boroda_ Дата: Воскресенье, 13.08.2017, 21:33 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 17006
Репутация: 6667 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Что-то типа такого
[vba]
Код
Sub tt()
    r0_ = 8
    r1_ = Range("B" & Rows.Count).End(xlUp).Row
    For i = r1_ To r0_ Step -1
        If Range("B" & i) = 255 Then
            Range("B" & i).EntireRow.Delete
        End If
    Next i
    c0_ = 1
    c1_ = Cells(7, Columns.Count).End(xlToLeft).Column
    For i = c1_ To c0_ Step -1
        If Cells(7, i) = "Заголовок8" Then
            Cells(7, i).EntireColumn.Delete
        End If
    Next i
End Sub
[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЧто-то типа такого
[vba]
Код
Sub tt()
    r0_ = 8
    r1_ = Range("B" & Rows.Count).End(xlUp).Row
    For i = r1_ To r0_ Step -1
        If Range("B" & i) = 255 Then
            Range("B" & i).EntireRow.Delete
        End If
    Next i
    c0_ = 1
    c1_ = Cells(7, Columns.Count).End(xlToLeft).Column
    For i = c1_ To c0_ Step -1
        If Cells(7, i) = "Заголовок8" Then
            Cells(7, i).EntireColumn.Delete
        End If
    Next i
End Sub
[/vba]
Автор - _Boroda_
Дата добавления - 13.08.2017 в 21:33
ArkaIIIa Дата: Воскресенье, 13.08.2017, 21:48 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 894
Репутация: 115 ±
Замечаний: 0% ±

2010
Благодарю! Это именно то, что нужно!
 
Ответить
СообщениеБлагодарю! Это именно то, что нужно!
Автор - ArkaIIIa
Дата добавления - 13.08.2017 в 21:48
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление строк/столбцов по ключу (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2026 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!