VB宏基本案例(3)

Sub seachText()
//查找菜单中所需要的文字

    Dim allStr, strA, tmpStr, tmpStr1 As String
    Sheets("tmpmenu").Select
    For j = 1 To 500
        strA = Range("A" & j).Value
        For i = 1 To Len(strA)
           tmpStr = Left(Mid(strA, i, Len(strA)), 1)
            Set fin_cha = Worksheets("tmpmenu").Cells.Find(What:=tmpStr, LookIn:=xlValues)
            If Not fin_cha Is Nothing Then
                strB = fin_cha
                Worksheets("tmpmenu").Cells.Replace What:=tmpStr, Replacement:="", LookAt:=xlPart, SearchOrder:= _
                    xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
               
                allStr = allStr & tmpStr
               
            Else
                allStr = allStr & tmpStr
   
            End If
        Next i
    Next j
    Worksheets("resutle").Range("C2 ") = allStr

End Sub