GBKEE

¦^´_ 1# fpoqua
VBA  ¤@¯ë¼Ò²Õ(Module) ¦Û­q¨ç¼Æ

1. Option Explicit
   
2. Function Ex(Target As Range) As String
   
3.     Dim A As String, i As Integer
   
4.     A = Target(1).Formula
   
5.     For i = Len(A) To 1 Step -1
   
6.         If Mid(A, i, 1) Like "[!+]" Then A = Replace(A, Mid(A, i, 1), "")
   
7.     Next
   
8.     Ex = Len(A)
   
9. End Function

½Æ»s¥N½X

GBKEE

¦^´_ 3# fpoqua
ÁÙ¨S§ä¨ì­ü!!