一个很强大的表格 不知道怎么搞

C2中输入“=IF(RIGHT(B2,2)="如何","如何",""”,向下填充；
D2中输入“=IF(RIGHT(B2,2)="怎么办","怎么办",""”,向下填充。

自动筛选都不会，你玩什么十万词的Escel？选中标题行执行“数据/筛选/自动筛选”。

关键的是你如何让EXCEL知道哪些是关键词，是你已经将所有关键词都输入到第一行了？还是要EXCEL自己去甄别？

这个对吗？
=INDEX($A:$A,SMALL(IF(RIGHT($A$1:$A$100,LEN(B$1))=B$1,ROW($A$1:$A$100),4^8),ROW(A1)))&""，数组公式右拉，下拉。

A列包含如何的数据
Sub My()
Dim CONN, RE, SQL, SH
Set CONN = CreateObject("Adodb.Connection")
With CONN
.Open "Provider=Microsoft.jet.oledb.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
SQL = "Select [关键词] AS 结果 FROM [" & ActiveSheet.Name & "$A:A] WHERE [关键词] LIKE '%如何%'" '主要修改这里
Set RE = .Execute(SQL)
ActiveSheet.Range("B:B").Clear
ActiveSheet.Range("B1") = RE.FIELDS(0).Name
ActiveSheet.Range("B2").CopyFromRecordset RE
End With
End Sub