如果是高级筛选应该是这样
Dim 变量名 As RibbonMenu.Button = RibbonTabs("common").Groups("SortAndFilter").Items ("Advanced").