第1个回答 2012-11-07
这个用数据 筛选 自动筛选或高级筛选 。
公式如下
在B1输入
=IF(ISERROR(FIND("6668",A1)),"",A1)
或者
=IF(ISERROR(SEARCH("6668",A1)),"",A1)
下拉填充。
第2个回答 2012-11-07
百度Hi我,我来帮你!!!
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$AA$1" Then Exit Sub
Range("A10:AL21").Select
Selection.ClearContents
t = 9
For i = 10 To Sheets("1").[g65536].End(3).Row
If Target.Value = --Mid(Sheets("1").Cells(i, 7), 5, 4) Then
t = t + 1
Cells(t, 1) = Sheets("1").Cells(i, 3)
For j = 5 To 11
Cells(t, j - 3) = Sheets("1").Cells(i, j)
Next
End If
Next
End Sub本回答被提问者采纳