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

Вход

Регистрация

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

 

= Мир MS Excel/Как удалить ячейку целиком, если в ней есть значение - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Как удалить ячейку целиком, если в ней есть значение
Nicko Дата: Суббота, 14.03.2015, 14:28 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 63
Репутация: 0 ±
Замечаний: 60% ±

Excel для Mac
Как удалить все ячейки (или хотя бы очистить их содержимое), если в них содержится слово или фраза?
Проблема в том, что по мимо поискового запроса в ячейке может быть еще много текста. Необходимо в любом случае удалить всю ячейку.
 
Ответить
СообщениеКак удалить все ячейки (или хотя бы очистить их содержимое), если в них содержится слово или фраза?
Проблема в том, что по мимо поискового запроса в ячейке может быть еще много текста. Необходимо в любом случае удалить всю ячейку.

Автор - Nicko
Дата добавления - 14.03.2015 в 14:28
Leanna Дата: Суббота, 14.03.2015, 14:33 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 189
Репутация: 78 ±
Замечаний: 0% ±

excel 2010
Такое можно макросом.


Лучше день потерять, потом за пять минут долететь!
 
Ответить
СообщениеТакое можно макросом.

Автор - Leanna
Дата добавления - 14.03.2015 в 14:33
Nicko Дата: Суббота, 14.03.2015, 14:35 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 63
Репутация: 0 ±
Замечаний: 60% ±

Excel для Mac
Я совсем не разбираюсь в макросах. Вы могли бы помочь?
 
Ответить
СообщениеЯ совсем не разбираюсь в макросах. Вы могли бы помочь?

Автор - Nicko
Дата добавления - 14.03.2015 в 14:35
Leanna Дата: Суббота, 14.03.2015, 14:36 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 189
Репутация: 78 ±
Замечаний: 0% ±

excel 2010
Приложите свой файл-пример и объясните что как в каком месте и по какому принципу должно удаляться.


Лучше день потерять, потом за пять минут долететь!
 
Ответить
СообщениеПриложите свой файл-пример и объясните что как в каком месте и по какому принципу должно удаляться.

Автор - Leanna
Дата добавления - 14.03.2015 в 14:36
Nicko Дата: Суббота, 14.03.2015, 14:50 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 63
Репутация: 0 ±
Замечаний: 60% ±

Excel для Mac
В столбике AA необходимо очистить все ячейки кроме:

Общие характеристики|Производитель|Casio
Общие характеристики|Страна-производитель|Япония
Характеристики часов:|Материал корпуса|...
Характеристики часов:|Стекло|...
Характеристики часов:|Цвет циферблата|...
Характеристики часов:|Материал браслета/ремешка|...
Характеристики часов:|Цвет браслета|...

То есть, что бы все ячейки кроме этих стали пустыми
 
Ответить
СообщениеВ столбике AA необходимо очистить все ячейки кроме:

Общие характеристики|Производитель|Casio
Общие характеристики|Страна-производитель|Япония
Характеристики часов:|Материал корпуса|...
Характеристики часов:|Стекло|...
Характеристики часов:|Цвет циферблата|...
Характеристики часов:|Материал браслета/ремешка|...
Характеристики часов:|Цвет браслета|...

То есть, что бы все ячейки кроме этих стали пустыми

Автор - Nicko
Дата добавления - 14.03.2015 в 14:50
Leanna Дата: Суббота, 14.03.2015, 14:51 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 189
Репутация: 78 ±
Замечаний: 0% ±

excel 2010
Nicko, а файл где?


Лучше день потерять, потом за пять минут долететь!
 
Ответить
СообщениеNicko, а файл где?

Автор - Leanna
Дата добавления - 14.03.2015 в 14:51
Leanna Дата: Суббота, 14.03.2015, 15:06 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 189
Репутация: 78 ±
Замечаний: 0% ±

excel 2010
По описанию так. На рабочесть не проверяла
[vba]
Код
Sub deletecells()
wordss = Split("Общие характеристики|Производитель|Casio~~Общие характеристики|Страна-производитель|Япония~~" & _
"Характеристики часов:|Материал корпуса|~~Характеристики часов:|Стекло|~~Характеристики часов:|Цвет циферблата|~~" & _
"Характеристики часов:|Материал браслета/ремешка|~~Характеристики часов:|Цвет браслета|", "~~")

lr = Cells(Rows.Count, "AA").End(xlUp).Row
For i = 1 To lr
     deleteTrue = True
     For Each word In wordss
         If Cells(i, "AA").Value Like word & "*" Then deleteTrue = False: Exit For
     Next
      If deleteTrue Then Cells(i, "AA").ClearContents
Next

End Sub
[/vba]


Лучше день потерять, потом за пять минут долететь!
 
Ответить
СообщениеПо описанию так. На рабочесть не проверяла
[vba]
Код
Sub deletecells()
wordss = Split("Общие характеристики|Производитель|Casio~~Общие характеристики|Страна-производитель|Япония~~" & _
"Характеристики часов:|Материал корпуса|~~Характеристики часов:|Стекло|~~Характеристики часов:|Цвет циферблата|~~" & _
"Характеристики часов:|Материал браслета/ремешка|~~Характеристики часов:|Цвет браслета|", "~~")

lr = Cells(Rows.Count, "AA").End(xlUp).Row
For i = 1 To lr
     deleteTrue = True
     For Each word In wordss
         If Cells(i, "AA").Value Like word & "*" Then deleteTrue = False: Exit For
     Next
      If deleteTrue Then Cells(i, "AA").ClearContents
Next

End Sub
[/vba]

Автор - Leanna
Дата добавления - 14.03.2015 в 15:06
Nicko Дата: Суббота, 14.03.2015, 15:40 | Сообщение № 8
Группа: Пользователи
Ранг: Участник
Сообщений: 63
Репутация: 0 ±
Замечаний: 60% ±

Excel для Mac
файл
К сообщению приложен файл: test.xlsx (26.2 Kb)
 
Ответить
Сообщениефайл

Автор - Nicko
Дата добавления - 14.03.2015 в 15:40
Leanna Дата: Суббота, 14.03.2015, 15:47 | Сообщение № 9
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 189
Репутация: 78 ±
Замечаний: 0% ±

excel 2010
Проверяйте.
К сообщению приложен файл: test.xlsm (24.7 Kb)


Лучше день потерять, потом за пять минут долететь!
 
Ответить
СообщениеПроверяйте.

Автор - Leanna
Дата добавления - 14.03.2015 в 15:47
Nicko Дата: Суббота, 14.03.2015, 23:06 | Сообщение № 10
Группа: Пользователи
Ранг: Участник
Сообщений: 63
Репутация: 0 ±
Замечаний: 60% ±

Excel для Mac
Все работает как часы :)
Спасибо вам!
 
Ответить
СообщениеВсе работает как часы :)
Спасибо вам!

Автор - Nicko
Дата добавления - 14.03.2015 в 23:06
  • Страница 1 из 1
  • 1
Поиск:

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