Skip to main content

Excel VBA Get Text


按照多于2个关键字完全匹配方式,在 Excel VBA 检索传染病日志。缺陷:自定义的传染病诊断,无法得到结果。

Sub 传染病筛选() '适用于 Excel 2007, 2010
Dim sht As Worksheet
With Range("a1").CurrentRegion  '利用 with 语句获取 A1 当前区域,避免多次引用,提升速度
.AutoFilter Field:=7, Criteria1:=Array("手足口病", "乙肝", "病毒性肝炎", "流行性感冒"), Operator:=xlFilterValues '以第7列为条件,筛选关键词, 完全匹配
On Error Resume Next        '防错,有错误时继续下一步
ShtNmae = ActiveSheet.Name  '记录当前表的名称
Set sht = Sheets("查询结果")    '将工作表”查询结果”赋予变量 sht,
If Err.Number <> 0 Then
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "查询结果"
Else
Sheets(Sheets.Count).Cells.Clear
End If
Sheets(ShtName).Select
.SpecialCells(xlCellTypeVisible).Copy Sheets(Sheets.Count).[a1] '将筛选后的所欲对象复制到“查询结果”中
.AutoFilter
End With
End Sub

Comments

TOP