Как добавить кнопку фильтра и сортировки в ячейку?

или лучше, нажмите на заполненную ячейку, а затем «Главная» >> «Форматировать как таблицу». Он дает вам множество вариантов фильтрации, сортировки и копирования формул, а также интересный дизайн.

Форматировать как скриншот таблицы

Вот некоторый код, который можно использовать с ответом Джорджа об использовании таблицы.

Я сразу же столкнулся с проблемой добавления таблиц, когда фильтры работают нормально. Вы не можете преобразовать диапазон запроса в таблицу, но можете добавить фильтр. См. --› https://stackoverflow.com/a/40492129/5079799 и отказ от ответственности. Это мой блог, где я буду разместить обновленный код https://www.freesoftwareservers.com/display/FREES/Filter+Worksheet+-+Table+-+Query+-+Excel+VBA

Public Sub DatatoTable(ws As Worksheet)
   
    Dim TblStyle As String
    TblStyle = "TableStyleMedium20"
    
    Dim TblName As String
    TblName = ws.Name
     
    Dim TblRng As Range
    Set TblRng = GetUsedRange(ws)
    
    ws.Activate
    TblRng.Select
    Set lo = TblRng.ListObject
    If Not lo Is Nothing Then
         Debug.Print "Table Found"
    Else
     ws.ListObjects.Add(xlSrcRange, TblRng, , xlYes).Name = TblName
     Range(TblName & "[#All]").Select
     ws.ListObjects(TblName).TableStyle = TblStyle
    End If
End Sub
Public Function GetUsedRange(ws As Worksheet) As Range
 Dim lRow As Integer, lCol As Integer, fCol As Integer, fRow As Integer
 fCol = Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlLeft).Column
 lCol = Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
 fRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlDown).Row
 lRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
 Set GetUsedRange = ws.Range(Cells(fRow, fCol), Cells(lRow, lCol))
End Function
Sub Test()
 
 Call DatatoTable(ActiveSheet)
 
End Sub