Вот то, что вы могли бы попробовать:
Private Sub Worksheet_Calculate()
If ActiveSheet.FilterMode = True Then
Rcount = ActiveSheet.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count - 1
If Rcount < 10 Then
ActiveSheet.AutoFilterMode = False
Else
End If
Else
End If
End Sub
Это будет работать только в листе вы работаете, но все еще может пригодиться. Там также должна быть одна летучая формула, такая как Countif на листе, для запуска.
В противном случае это хорошо работает.
К сожалению, если вы выберете результат с менее чем 10 - он отключит фильтр в целом. Я попытался добавить код, чтобы включить его, но в этом случае ошибки - возможно, вам повезло на этом фронте.
Я надеюсь, что это что-то, что вы искали тем не менее
Вы могли бы сделать что-то на фильтр для подсчета '.visible' клетки, а затем» .clear' если не хватает – Raystafarian