Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.03.2011, 21:19   #1
johny_03
Форумчанин
 
Регистрация: 21.01.2011
Сообщений: 134
По умолчанию выборка по первым словам в строках

Здравствуйте! Хотелось бы узнать, возможно ли в excel сделать выборку по первым словам или буквам в строках. Файл в приложении.
Т.е. нужно как-бы задать постоянную базу слов или букв, с которых начинаются некоторые строки, и чтобы после обновления файла ненужные строки удалялись.
Например: мне нужно, чтобы в файле всегда оставались строки, начинающиеся на:

флеш-драйв
bag
IT/cam
IT/mouse
Audio/h
и т.д.

а остальные удалялись каждый раз после обновления базы

Заранее спасибо за помощь!
Вложения
Тип файла: rar Продажи.rar (3.5 Кб, 13 просмотров)
johny_03 вне форума Ответить с цитированием
Старый 17.03.2011, 23:09   #2
doober
Старожил
 
Аватар для doober
 
Регистрация: 02.05.2009
Сообщений: 3,907
По умолчанию

Мой помощник справится
Вложения
Тип файла: rar Killer.rar (205.7 Кб, 24 просмотров)
Анализ,обработка данных Недорого
doober вне форума Ответить с цитированием
Старый 18.03.2011, 00:37   #3
R Dmitry
Форумчанин
 
Регистрация: 07.03.2010
Сообщений: 796
По умолчанию

Для разнообразия


Код:
Sub kill2()
Set dict = CreateObject("Scripting.Dictionary")
arr = Sheets(2).[a1].CurrentRegion.Value
arr2 = Sheets(1).[a1].CurrentRegion.Value
For i = 2 To UBound(arr)
dict.Add arr(i, 1), i
Next
 For i = UBound(arr2) To 2 Step -1
If Not dict.exists(Split(LTrim(arr2(i, 2)))(0)) Then Sheets(1).Rows(i).Delete
 Next
End Sub
хотя надежнее все же просто killer ^)
Логика?!.... она где то рядом... E_mail: dg_rusak@mail.ru Если спасибо мало: Яндекс . Деньги - 41001731366021 WM R269866874234

Последний раз редактировалось R Dmitry; 18.03.2011 в 00:48.
R Dmitry вне форума Ответить с цитированием
Старый 18.03.2011, 11:09   #4
Lersa
 
Аватар для Lersa
 
Регистрация: 17.03.2011
Сообщений: 8
По умолчанию

Можно использовать формулу:
=ПСТР(A2;10;2)
встете на нужную ячейку выбираете например из 10 значного числа первые 2 цифры или буквы
Начинают всегда с малого. В первый день Бог создал только небо и землю.
Lersa вне форума Ответить с цитированием
Старый 18.03.2011, 11:24   #5
vikttur
Участник клуба
 
Регистрация: 16.05.2010
Сообщений: 1,249
По умолчанию

Цитата:
Сообщение от Lersa Посмотреть сообщение
Можно использовать формулу:
=ПСТР(A2;10;2)
встете на нужную ячейку выбираете например из 10 значного числа первые 2 цифры или буквы
Ваша формула выбирает два знака, начиная с позиции 10. Первые так:
Код:
=ПСТР(A2;1;2)
=ЛЕВСИМВ(A2;2)
vikttur вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Список с поиском по первым буквам. Паразит Microsoft Office Excel 17 05.09.2013 00:31
перенос по словам gsg Microsoft Office Excel 2 08.09.2010 09:07
Выборка выборка с таблицы с отношением многие-ко-многим 8alig8 БД в Delphi 2 24.06.2010 12:21
Фильтр по первым буквам MiK_on SQL, базы данных 5 02.06.2010 16:50
Пренос по словам pinhead Microsoft Office Excel 4 16.07.2008 05:11