|
Компьютерный форум OSzone.net » Сфера Microsoft » Microsoft Office (Word, Excel, Outlook и т.д.) » Разное - Очистить ячейки |
|
Разное - Очистить ячейки
|
Новый участник Сообщения: 13 |
Профиль | Отправить PM | Цитировать
Добрый день.
Подскажите, как можно через VBA очистить ячейки (не сдвигать остальной текст), которые не содержат <name>, <desc>, </name>, </desc>. Можно конечно использовать фильтр по НЕ СОДЕРЖИТ, но очень много файлов и столбцов (и выбрать можно только 2 значения) Примем и оригинальный фаил |
|
Отправлено: 10:53, 15-10-2022 |
Динохромный Сообщения: 690
|
Профиль | Отправить PM | Цитировать Цитата Zoidman:
Sub del_txt() Dim vrtData, i As Integer, j As Integer, k As Integer, A, flag As Boolean vrtData = Selection A = Array("<name>", "<desc>", "</name>", "</desc>") For j = LBound(vrtData, 1) To UBound(vrtData, 1) For k = LBound(vrtData, 2) To UBound(vrtData, 2) flag = True For i = LBound(A) To UBound(A) If vrtData(j, k) Like "*" & A(i) & "*" Then flag = False Exit For End If Next i If flag Then vrtData(j, k) = "" Next k Next j Selection.Value = vrtData End Sub |
|
------- Отправлено: 11:41, 17-10-2022 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
2013 - [решено] Нумерация ячейки в зависимости от другой ячейки | subuday77 | Microsoft Office (Word, Excel, Outlook и т.д.) | 5 | 19-02-2018 16:56 | |
MySQL - Добавить текст в середину ячейки | Okot | Программирование и базы данных | 3 | 06-12-2017 13:52 | |
2010 - Как автоматизировать ячейки? | Игорь Анатольевич | Microsoft Office (Word, Excel, Outlook и т.д.) | 6 | 07-08-2013 13:23 | |
Про ячейки в таблице | Rustemal | Вебмастеру | 2 | 16-07-2003 18:01 | |
размер ячейки в MySQL | Vlad Drakula | Вебмастеру | 1 | 27-06-2003 06:53 |
|