假设在G列
函数
H2=INDEX(G:G,SMALL(IF(ISNUMBER(FIND("社交活动",G2)),ROW($A$2:$A$1000),65536),ROW(A1)))&""
同时按CTRL SHIFT 回车键，出现结果，再下拉公式
VBA
Sub t()
k = 1
For i = 1 To ActiveSheet.UsedRange.Rows.Count
For j = 1 To ActiveSheet.UsedRange.Columns.Count
If InStr(Cells(i, j), "社交活动") > 0 Then
Sheets("样表").Cells(k, 8) = Cells(i, j)
k = k + 1
End If
Next
Next
Sheets("样表").Select
Columns(8).Select
Selection.Copy
End Sub
假设的你的表名是 样表
按ALT+F8执行
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024