在excel自动筛选器搜索框中获取默认值

Question

可以将变量传递给excel autofilter searchbox吗？ （除了sendkeys方法）

Sub slixx()
Dim x
x = "bubi"
Range("b10").Select
SendKeys "%{down}"
SendKeys "%{down}e"
SendKeys x
End Sub

谢谢。