Блог

У меня есть этот код, который отфильтровывает значения «0», я бы хотел, чтобы он был отфильтрован до сортировки в алфавитном порядке. Это делается для того, чтобы гистограммы выглядели лучше с наибольшим числом вверху.

Как бы я реализовал это в этом коде?

 Sub Apply_Filter()  Dim xAF As AutoFilter  Dim xFs As Filters  Dim xLos As ListObjects  Dim xLo As ListObject  Dim xRg As Range  Dim xWs As Worksheet  Dim xIntC, xF1, xF2, xCount As Integer  Application.ScreenUpdating = False  On Error Resume Next  ActiveSheet.ShowAllData  Set xLos = ActiveSheet.ListObjects  xCount = xLos.Count  For xF1 = 1 To xCount  Set xLo = xLos.Item(xF1)  Set xRg = xLo.Range  xIntC = xRg.Columns.Count  For xF2 = 1 To xIntC  xLo.Range.AutoFilter Field:=2, Criteria1:="lt;gt;0", Operator:=xlFilterValues  Next  Next  Application.ScreenUpdating = True   End Sub