Страницы: 1
RSS
Удаление лишних знаков в ячейке
 
Добрый день.
Коллеги помогите решить проблему. Есть экселевский файл с адресами email: в каждой ячейке 1 адрес, но после каждого адреса есть ненужная информация.
Пример:ksenajsivers@yandex.ru ;8nissan
Вопрос: как удалить эту ненужную информацию после адреса, т.к. список адресов достаточно большой, вручную сделать проблематично.
заранее спасибо!
 
Цитата
ya.baev пишет: Есть экселевский файл
Вам легче.
у нас и файла такого нет.
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
Без примера могу только поиском и заменой посоветовать воспользоваться. CTRL+H, ищем " ;*" без кавычек, меняем на пусто.
 
пример во вложении.
И еще вопрос, как найти ячейки в которых НЕТ @?
 
и что делать с найденным?
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
удалить
 
именно удалить? вы не путаете с "очистить содержимое"?
Код
sub t()
  dim r as range
  for each c in activesheet.usedrange.cells
    if not c like "*@*" then
      if r is nothing then set r=c else set r=union(r,c)
    end if
  next
  if not r is nothing then r.delete
end sub
Изменено: ikki - 26.08.2014 17:57:49
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
да, скорее всего путаю)) надо очистить содержимое ячеек без @
 
вместе delete пишете clearcontents
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
Страницы: 1
Наверх