Страницы: 1
RSS
Выбор из фильтра 2 одинаковых значения
 
Приветствую.
Есть таблица встреч хоккейных команд.
Возможно ли сделать через фильм выборку из столбца Команда 1 и Команда 2 например значения "Анахайм".
По факту я могу выбрать "Анахайм" только в одной из столбцов.  
 
wotar, здравия. Как-то так.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
Может лучше выборку макросом, копируете через специальную вставку на другой лист и макрос "Анахайм"
 
В ячейке К1 пишите название команды и запускаете макрос
Код
Sub Slovo()
Dim Slovo As String
Dim i As Long
Dim iLastRow As Long
    iLastRow = Cells(Rows.Count, 4).End(xlUp).Row
    For i = iLastRow To 2 Step -1
      If Cells(i, 5) <> Cells(1, 11) And Cells(i, 6) <> Cells(1, 11) Then
        Cells(i, 5).EntireRow.Hidden = True
      End If
    Next
End Sub
 
С макросам конечно классно. Жаль, что макросы для меня это как космос )  
 
Немного доделал. В А1 копируете название нужной команды, жмете на кнопку и на Лист2 выходит нужный Вам список. Ненужные строки  удаляются.
 
Можно применить макрос на изменение ячейки А1, вписываете название команды в А1 и нажимаете Enter
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
Dim iLastRow As Long
       Application.ScreenUpdating = False
    If Target.Cells.Count > 1 Then Exit Sub 'выделено больше одной ячейки
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        Application.EnableEvents = False
          iLastRow = Cells(Rows.Count, 4).End(xlUp).Row
        Range("D2:G" & iLastRow).EntireRow.Hidden = False
          iLastRow = Cells(Rows.Count, 4).End(xlUp).Row
      For i = iLastRow To 2 Step -1
        If Cells(i, 5) <> Range("A1") And Cells(i, 6) <> Range("A1") Then
          Cells(i, 5).EntireRow.Hidden = True
        End If
      Next
        Application.EnableEvents = True
    End If
        Application.ScreenUpdating = True
End Sub
Страницы: 1
Наверх