Здравствуйте, помогите пожалуйста Есть одна строка. В первом столбце, восьмом и т.д. n+7 нужные значения. Не получается их отобрать и списком расположить. Если возможно, было бы замечательно, отбирать очищенные названия компаний в итоговый список, т.е. без "...net profit" Снова надеюсь на Вашу помощь, спасибо огромное!
Здравствуйте, помогите пожалуйста Есть одна строка. В первом столбце, восьмом и т.д. n+7 нужные значения. Не получается их отобрать и списком расположить. Если возможно, было бы замечательно, отбирать очищенные названия компаний в итоговый список, т.е. без "...net profit" Снова надеюсь на Вашу помощь, спасибо огромное!rosko
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]
[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
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
