更换细胞B. Excel 床单到其他含义

=IF/NOT/ISERROR/SEARCH/"Aviation",B1///,"Aviation & Transportation",B1/

*Aviation*

Sub replace//

 Dim Rws As Long, Rng As Range, c As Range

 Rws = Cells/Rows.Count, "F"/.End/xlUp/.Row

 Set Rng = Range/Cells/1, 6/, Cells/Rws, 6//



 For Each c In Rng.Cells

 If c Like "*Aviation*" Then c = "Aviation & Transportation"

 Next c

End Sub

Sub Button1_Click//

 Dim Rws As Long, Rng As Range, c As Range

 Rws = Cells/Rows.Count, "F"/.End/xlUp/.Row



 Columns/"F:F"/.AutoFilter Field:=1, Criteria1:="=*Aviation*"

 Set Rng = Range/Cells/2, 6/, Cells/Rws, 6//.SpecialCells/xlCellTypeVisible/

 Rng.Value = "Aviation & Transportation"

 ActiveSheet.AutoFilterMode = 0



End Sub