有工作表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－
閱讀更多 小智雅匯 的文章
