Фильтр в строках, а не в столбцах?

[MaxxVer]

Да есть.
Весь код такой:
Private Sub Workbook_Open()

Dim i As Long, x As New Collection, a(): Application.ScreenUpdating = False
With Sheets(1)
a = .Range([B6], .Cells(6, Columns.Count).End(xlToLeft)).Value
.ComboBox1.Clear: .ComboBox1.AddItem "Все"
For i = 1 To UBound(a, 2)
On Error Resume Next: x.Add a(1, i), CStr(a(1, i))
If Err = 0 Then .ComboBox1.AddItem a(1, i) Else On Error GoTo 0
Next: End With

End Sub

Макросы включены.

[SAS888]

Попробуйте перед строкой

End Sub

Вставить в этот код строку

MsgBox "Макрос выполнен."

. Сохраните, закройте и вновь откройте книгу. Появится ли это сообщение?

[MaxxVer]

Всё сделал, сообщение не выходит...

[SAS888]

Значит, по какой-то причине макрос не выполняется. В причине нужно разбираться. Попробуйте вставить общий программный модуль и в него скопировать код из модуля "Эта книга". Затем смените имя макроса Private Sub Workbook_Open(), например, на Sub Main(). После всего этого запустите макрос Main вручную.

[MaxxVer]

Перезапустил эксель - заработало. Возможно причина была в том, что было открыто много книг, в одной из которых была выставлена настройка пересчета формул вручную, а не автоматически, соответственно, когда я открывал нашу книгу с макросом, пересчет не шел, менял в настройках пересчет на автомат - результата не было, а закрыл все книги и перезапустился - заработало...
П.С. спасибо за макрос.

[SAS888]

Вам такая сортировка была нужна?

[MaxxVer]

Да. Только подскажите еще, пожалуйста, если я захочу применить этот макрос в другой книге, увеличить или уменьшить количество столбцов, как изменить код, где задается кол-во столбцов или диапазон?

[SAS888]

При открытии книги, запускается макрос, который формирует значения критериев для последующей фильтрации в ComboBox-е из уникальных значений 6-й строки, начиная со столбца "B" до последнего заполненного. Так что столбцов может быть сколько угодно. Единственное, что нужно учитывать, это то, что макрос заполняет ComboBox при открытии. Поэтому, поле внесения изменений на рабочем листе (изменение количества столбцов, изменение заголовков столбцов и т.п.) необходимо сохранить, закрыть и снова открыть файл.

[MaxxVer]

Теперь всё понятно. Огромное спасибо. С каждым днём, всё больше убеждаюсь, что даже рядовому экономисту необходимы знания программирования ВБА. А так как в универе меня этому не учили, а на самостоятельное изучение времени не хватает, приходится мучить Вас

[MaxxVer]

Еще один маленький вопрос - я заметил что при использовании данного фильтра Excel, видимо, его не распознает как фильтр, потому что при использвании формулы "ПРОМЕЖУТОЧНЫЕ.ИТОГИ" суммируется всё равно весь диапазон. Можно ли как-то справиться с этой проблемой?