有工作表schedule: 以及工作表team: 在工作表team选定某一支球队所在单元格,运行VBA过程即可在工作表schedule筛选数据复制到工作表team的右边区域。如上图所示: VBA过程代码: 核心代码非常简单,就是一个循环内一个选择结构,用VBA函数InStr()判断单元格是否包含指定字符串。 还可以在工作表team添加事件过程,当单元格选择改变时,自动运行find()过程,代码如下: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Call findtxt End Sub 附代码: Sub findtxt() Dim txt As String Dim i, j, m As Integer m = 2 txt = Trim(ActiveCell.Value) If txt <> "" Then Range("J2:M22") = "" End If For j = 2 To 64 i = InStr(Range("schedule!D" & j).Value, txt) If i > 0 And txt <> "" Then Range("J" & m).Value = Range("schedule!B" & j).Value Range("K" & m).Value = Range("schedule!C" & j).Value Range("L" & m).Value = Range("schedule!D" & j).Value Range("M" & m).Value = Range("schedule!E" & j).Value m = m + 1 End If Next End Sub -End-