Excel, как сделать выборку ячеек содержащих определенный символ?

01.01.2001

Excel, как сделать выборку ячеек содержащих определенный символ?
Есть старая база клиентов, которая велась в XLS. Каким методом можно выдернуть из нее только ячейки, содержащие символ @? Либо любой другой способ быстро извлечь все электронные адреса, заниматься ручным копированием по четырем тысячам строк не очень хочется.

  • sub ppp()
    kk = 1
    for each ccc in sheets(1)
    if instr(ccc.text,"@")>0 then
    sheets(2).cells(kk,1) = ccc.text
    kk = kk+1
    endif
    end sub
  • Нужно писать программу в VBA. По другому не знаю как
  • Включаешь фильтр,
    выбираешь "Условие... "
    в Пояснениях выбираешь " содержит"
    в соседнем поле ставишь @
    жмешь "Ок".
    Включится фильтр и на экране останутся только те строчки, в которых содержится @.
    А потом скопом выделяй и копируй.

Вас заинтересует