把几个问题汇总了一下，有扰各位指点！

lonovo

请看附件！！

情比金坚

问题1用这样的公式：=TEXT(B2,"0.00")&"*"&TEXT(C2,"0.00")&"*"&TEXT(D2,"0.00")&"*"&TEXT(E2,"0")

问题2 用这样的函数：

Function f(s As String)
    For n = 1 To Len(s)
        s1 = Mid(s, n, 1)
        k = InStr("1234567890.+/*-()", s1)
        If k > 0 Then
            s2 = s2 & Mid(s, n, 1)
        End If
    Next
f = Evaluate(s2)
End Function

问题3 要完全自动解决起来太麻烦，半自动就可以了

lonovo

谢谢“情比金坚”！！！

问题已基本解决，现做了个半自动的，

还请大家多指教，看能否再简化点？？

[此贴子已经被作者于2005-12-14 10:23:37编辑过]

grzhu

请看附件,

试试看.

lonovo

谢谢“grzhu”！！！

你的方法很好，学习ing……

lonovo

TO:grzhu

1、“条件格式”用得很好，解决了边框的问题。

2、“COUNTA函数”换“AND函数”也用得很好，方便很多。

3、但用“VLOOKUP函数”好像没有直接调用来得方便呀，有点不解？？

grzhu

是的,同意您的说法,用“VLOOKUP函数”没有直接调用来得方便,我开始制此表时多虑了.