Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
0 / 0 / 0
Регистрация: 20.07.2015
Сообщений: 4
1

Макрос в Excel 2003 на удаление определенных столбцов

20.07.2015, 12:21. Показов 1882. Ответов 7
Метки нет (Все метки)

Добрый день, уважаемые светлые головы.
С макросами только начинаю знакомиться, поэтому прошу помочь со срочным вопросом по ним.
Не подскажете макрос на удаление в excel столбцов с определенным текстом внутри? то есть в таблице удалить столбцы (например) код подразделения, сумма, количество.....а остальные оставить....
как это реализовать макросом?
заранее спасибо огромное за помощь
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.07.2015, 12:21
Ответы с готовыми решениями:

Макрос для печати определенных листов книги Excel
Всем доброе время суток! Помогите пожалуйста. Дано: Лист с данными о клиенте и виде выполняемых...

Удаление определенных строк в Excel
Помогите чайнику! Я только учусь Надо в таблице Excel удалить строки в графе А в которых указаны...

Макрос объединения столбцов Excel
доброго времени суток форумчане помогите пожалуйста очень нужно макрос объединения всех столбцов,...

Макрос: сравнение двух столбцов с суммированием их значений и удаление дублей
Всем Доброго времени суток!!! Файл который необходимо адаптировать во вложении. Прошу подсказать...

7
15025 / 6353 / 1725
Регистрация: 24.09.2011
Сообщений: 9,976
20.07.2015, 12:41 2
Лучший ответ Сообщение было отмечено SkutinAnton как решение

Решение

SkutinAnton, в простейшем случае так (поиск ведется по первой занятой строке листа, каждое значение ищется только 1 раз)
Visual Basic
1
2
3
4
5
6
7
Sub SkutinAnton()
Dim c As Range, s
  For Each s In Split("код подразделения, сумма, количество", ", ")
    Set c = ActiveSheet.UsedRange.Rows(1).Find(s, , xlValues, xlWhole)
    If Not c Is Nothing Then c.EntireColumn.Delete
  Next
End Sub
1
0 / 0 / 0
Регистрация: 20.07.2015
Сообщений: 4
20.07.2015, 13:20  [ТС] 3
Казанский, спасибо огромное, а можно еще совсем глупый вопрос.... можно ли как то привязать макрос к кнопке, чтобы она работала в любом файле открываемом в екселе 2003? если да, то как? простите за глупые вопросы
0
15025 / 6353 / 1725
Регистрация: 24.09.2011
Сообщений: 9,976
20.07.2015, 13:29 4
SkutinAnton, поместите макрос в Личную книгу макросов, на тулбаре создайте кнопку и назначьте ей этот макрос.
0
83 / 60 / 21
Регистрация: 03.12.2014
Сообщений: 232
20.07.2015, 13:30 5
Цитата Сообщение от SkutinAnton Посмотреть сообщение
в любом файле
Если Вы хотите чтоб в любом файле тогда код придется сохранить как "надстройку".
1
0 / 0 / 0
Регистрация: 20.07.2015
Сообщений: 4
20.07.2015, 15:33  [ТС] 6
уважаемые, прошу прощения, я не правильно сформулировал вопрос. А как сделать, чтобы конкретные столбцы не удалять, а наоборот оставить???? тоесть грубо говоря удалить все столбцы, кроме например столбцов - сумма и контакт??
0
0 / 0 / 0
Регистрация: 20.07.2015
Сообщений: 4
22.07.2015, 11:40  [ТС] 7
помогите, пожалуйста, кто может...
0
4112 / 2219 / 938
Регистрация: 01.12.2010
Сообщений: 4,625
23.07.2015, 19:21 8
Visual Basic
1
2
3
4
5
6
7
8
Private Sub Test2()
    Dim iArr As Variant, iColumn&, iRow&
    iArr = Array("Сумма", "Контакт")
    iRow = ActiveSheet.UsedRange.Row
    For iColumn = Cells(iRow, Columns.Count).End(xlToLeft).Column To 1 Step -1
        If IsError(Application.Match(Cells(iRow, iColumn), iArr, 0)) Then Columns(iColumn).Delete
    Next
End Sub
P.S. Если расположить все нужные столбцы в порядке возрастания, то можно избавиться от третьего аргумента (функция Match/Поискпоз)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.07.2015, 19:21

Макрос: удаление строк в таблице Excel
День добрый! Возникла такая задачка: В последнем столбце таблице будет кнопка, на которой будет...

Макрос на удаление строк с конктретным Outlinelevel (excel)
Привет всем. Проблема заключается в том что имеется огромный массив данных excel (300000 строк)....

Свести таблицу с учетом регистра (удаление дубликатов, слияние столбцов, Excel)
Добрый день. Я создаю словарь украинского языка для электронной книги Amazon Kindle. Для этого...

Запрет на удаление/довабление строк/столбцов в Excel - есть такое понятие?
Если есть, то будьте добры провести курс для чайника... Спасибо.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.