преобразование список столбцa в другом 2 столбце с условиям

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

преобразование список столбцa в другом 2 столбце с условиям (Формулы/Formulas)

nikaluka1

Дата: Среда, 21.10.2015, 18:24 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 74

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007, 2010

Возможно ли это?

слово который начинается с " pos" в столбце А, отображался в столбце E
и с правом (в столбце F) бильo слово, который в столбце A расположенo внизу этого слово

К сообщению приложен файл: Book1.xlsx (10.1 Kb)

Ответить

_Boroda_

Дата: Среда, 21.10.2015, 20:47 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16912

Репутация: 6616 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Так нужно?
Формулы массива, вводятся одновременным нажатием Контрл Шифт Ентер

Код

=ЕСЛИОШИБКА(ИНДЕКС(A$1:A$12;НАИМЕНЬШИЙ(ЕСЛИ(ЛЕВБ(A$1:A$12;3)<>"pos";ПРОСМОТР(СТРОКА(A$1:A$12);СТРОКА(A$1:A$12)/(ЛЕВБ(A$1:A$12;3)="pos");СТРОКА(A$1:A$12)));СТРОКА()));"")

Код

=ЕСЛИОШИБКА(ИНДЕКС(A$1:A$12;НАИМЕНЬШИЙ(ЕСЛИ(ЛЕВБ(A$1:A$12;3)<>"pos";СТРОКА(A$1:A$12));СТРОКА()));"")

Добавлено
Формулы упростил, файл перевложил

К сообщению приложен файл: Book1_2.xlsx (11.2 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Hugo

Дата: Среда, 21.10.2015, 21:01 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3854

Репутация: 814 ±

Замечаний: 0% ±

365

Макросом можно, но это правда не по профилю темы...
[vba]

Код

Option Explicit
Option Compare Text

Sub Perebor()    'коллекция в словаре
    Dim a, i&, t$, Dic As Object
    Dim el, col

    a = Range("A1", Cells(Rows.Count, "A").End(xlUp)).Value
    Set Dic = CreateObject("Scripting.Dictionary")
    With Dic
        .comparemode = 1
        For i = 1 To UBound(a)
            If a(i, 1) Like "pos*" Then
                t = a(i, 1)
                If Not .exists(t) Then .Add t, New Collection
            Else
                .Item(t).Add a(i, 1)
            End If
        Next
    End With

    i = 0
    For Each el In Dic.keys
        If Dic.Item(el).Count > 0 Then
            For Each col In Dic.Item(el)
                i = i + 1
                Cells(i, 5) = el
                Cells(i, 6) = col
            Next
        End If
    Next

End Sub

[/vba]
Код для Windows!