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

Вход

Регистрация

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

 

= Мир MS Excel/отбор значений в список - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » отбор значений в список (Макросы/Sub)
отбор значений в список
rosko Дата: Вторник, 01.07.2014, 09:53 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 58
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте, помогите пожалуйста
Есть одна строка. В первом столбце, восьмом и т.д. n+7 нужные значения. Не получается их отобрать и списком расположить.
Если возможно, было бы замечательно, отбирать очищенные названия компаний в итоговый список, т.е. без "...net profit"
Снова надеюсь на Вашу помощь, спасибо огромное!
К сообщению приложен файл: 9311813.xlsx (35.0 Kb)
 
Ответить
СообщениеЗдравствуйте, помогите пожалуйста
Есть одна строка. В первом столбце, восьмом и т.д. n+7 нужные значения. Не получается их отобрать и списком расположить.
Если возможно, было бы замечательно, отбирать очищенные названия компаний в итоговый список, т.е. без "...net profit"
Снова надеюсь на Вашу помощь, спасибо огромное!
Автор - rosko
Дата добавления - 01.07.2014 в 09:53
Pelena Дата: Вторник, 01.07.2014, 11:17 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19197
Репутация: 4423 ±
Замечаний: ±

Excel 365 & Mac Excel
Формулы не предлагать?

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеФормулы не предлагать?
Автор - Pelena
Дата добавления - 01.07.2014 в 11:17
Hugo Дата: Вторник, 01.07.2014, 11:40 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3255
Репутация: 707 ±
Замечаний: 0% ±

2019
[vba]
Код
Sub tt()
     Dim a(), i&

     With CreateObject("Scripting.Dictionary"): .comparemode = 1
         a = [a1].CurrentRegion.Rows(1).Value
         For i = 1 To UBound(a, 2)
             If a(1, i) <> "#ERROR" Then .Item(Split(a(1, i), " - ")(0)) = 0&
         Next
         [a3].Resize(.Count) = Application.Transpose(.keys)
     End With
End Sub
[/vba]

excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
Сообщение[vba]
Код
Sub tt()
     Dim a(), i&

     With CreateObject("Scripting.Dictionary"): .comparemode = 1
         a = [a1].CurrentRegion.Rows(1).Value
         For i = 1 To UBound(a, 2)
             If a(1, i) <> "#ERROR" Then .Item(Split(a(1, i), " - ")(0)) = 0&
         Next
         [a3].Resize(.Count) = Application.Transpose(.keys)
     End With
End Sub
[/vba]
Автор - Hugo
Дата добавления - 01.07.2014 в 11:40
rosko Дата: Вторник, 01.07.2014, 13:32 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 58
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо огромное!
формулами, в силу скудных знаний, не знал, как в список собрать(
 
Ответить
СообщениеСпасибо огромное!
формулами, в силу скудных знаний, не знал, как в список собрать(
Автор - rosko
Дата добавления - 01.07.2014 в 13:32
Мир MS Excel » Вопросы и решения » Вопросы по VBA » отбор значений в список (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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