Hsieh

¦^´_ 1# ML089

1. Sub nn()
   
2. For Each b In Range([B2], [B65536].End(xlUp))
   
3.   mystr = b
   
4.   For Each a In Range("E:E").SpecialCells(xlCellTypeConstants)
   
5.     mystr = Replace(mystr, a, "")
   
6.   Next
   
7.   b.Offset(, 1) = Evaluate(mystr)
   
8. Next
   
9. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 3# ML089

1. Function MyCal(Mystr As String, Rng As Range) As Double
   
2. For Each a In Rng
   
3.   Mystr = Replace(Mystr, a, "")
   
4. Next
   
5. MyCal = Evaluate(Mystr)
   
6. End Function

½Æ»s¥N½X

C2=mycal(B2,$E$2:$E$6)

Hsieh

¦^´_ 5# ML089

1. Function MyCal(Mystr As String, ParamArray MyStrList()) As Double
   
2. For Each a In MyStrList
   
3.   Mystr = Replace(Mystr, a, "")
   
4. Next
   
5. MyCal = Evaluate(Mystr)
   
6. End Function

½Æ»s¥N½X

Hsieh

¦^´_ 7# ML089

1. Function MyCal(Mystr As String) As Double
   
2. MyStrList=Array("¤ç","¨â","Ä«ªG","­»¿¼","¨F½¼")
   
3. For Each a In MyStrList
   
4.   Mystr = Replace(Mystr, a, "")
   
5. Next
   
6. MyCal = Evaluate(Mystr)
   
7. End Function

½Æ»s¥N½X