求助贴 对于你们应该很简单的说

跳转至表1，我理解为激活表1
那么传送到表1是啥意思?将某控件的内容复制到表1？

设控件名称为combobox1
Private Sub ComboBox1_Change()
Dim sh As Worksheet
Application.ScreenUpdating =
False
For Each sh In Worksheets
If sh.Name = ComboBox1.Text Then
sh.Activate
Exit For
End If
Next
MsgBox "没有该工作表，请核实", 64,"提示框"
Application.ScreenUpdating = True
End Sub

天才，拜你为师

不太明白你提的问题！
sheet2.b2单元格为筛选条件？g列为数据源吗？
筛选后的数据你添加到什么控件上去？

@青水蛙鸣

Sub 筛选()
xtext = Sheets("表1").Range("a3").Value
Worksheets("表2").Range("A1").AutoFilter field:=1, Criteria1:=xtext
End Sub