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

Вход

Регистрация

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

 

= Мир MS Excel/Составление списка с другого листа. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Составление списка с другого листа. (Формулы/Formulas)
Составление списка с другого листа.
bumnik Дата: Пятница, 12.06.2015, 15:09 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 185
Репутация: 0 ±
Замечаний: 40% ±

Excel 2007,2010
Здравствуйте! Подскажите как исправить формулу составления списка.
К сообщению приложен файл: 7684999.xlsx (9.8 Kb)


Сообщение отредактировал bumnik - Пятница, 12.06.2015, 15:20
 
Ответить
СообщениеЗдравствуйте! Подскажите как исправить формулу составления списка.
Автор - bumnik
Дата добавления - 12.06.2015 в 15:09
vikttur Дата: Пятница, 12.06.2015, 15:25 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2941
Репутация: 526 ±
Замечаний: 0% ±

Не советую прибегать к формулам массива, если можно обойтись и без них.
К сообщению приложен файл: 2980527.xlsx (11.0 Kb)
 
Ответить
СообщениеНе советую прибегать к формулам массива, если можно обойтись и без них.
Автор - vikttur
Дата добавления - 12.06.2015 в 15:25
vikttur Дата: Пятница, 12.06.2015, 15:33 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2941
Репутация: 526 ±
Замечаний: 0% ±

Кросс
http://www.planetaexcel.ru/forum....o-lista
 
Ответить
СообщениеКросс
http://www.planetaexcel.ru/forum....o-lista
Автор - vikttur
Дата добавления - 12.06.2015 в 15:33
МВТ Дата: Пятница, 12.06.2015, 16:47 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 476
Репутация: 137 ±
Замечаний: 0% ±

Excel 2007
Можно так попробовать
[vba]
Код
Sub Spis()
Dim A, B
Dim List As New Collection
A = Selection.Value
With List
For Each aa In A
If aa <> "" Then .Add (aa)
Next aa
If .Count = 0 Then Exit Sub
ReDim B(1 To .Count, 1 To 1)
For I = 1 To .Count
B(I, 1) = .Item(I)
Next I
Range("E1:E" & .Count).Value = B
End With
End Sub
[/vba]
 
Ответить
СообщениеМожно так попробовать
[vba]
Код
Sub Spis()
Dim A, B
Dim List As New Collection
A = Selection.Value
With List
For Each aa In A
If aa <> "" Then .Add (aa)
Next aa
If .Count = 0 Then Exit Sub
ReDim B(1 To .Count, 1 To 1)
For I = 1 To .Count
B(I, 1) = .Item(I)
Next I
Range("E1:E" & .Count).Value = B
End With
End Sub
[/vba]
Автор - МВТ
Дата добавления - 12.06.2015 в 16:47
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Составление списка с другого листа. (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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