请看附件，我想备注批量生成，请问有这样的函数吗？

各位大哥，小弟遇到一个问题，请帮帮忙！您的一分钟可能就抵小弟一天的时间！因为人员有几千行！谢谢！问题请看附件！如果EXCEL本身没有这样的功能，请会VBA的朋友帮写一个自定义数量！

S6
                 =SUMPRODUCT($B$1:$O$1,B6:O6)

                     是这意思吗？？

[ 本帖最后由 uug 于 2011-8-5 23:28 编辑 ]

大哥，备注是文本的形式！您的方法是生成值！

Public Function GetExpression(staffName As Range) As String
Dim r As Integer
Dim vals
r = staffName.Row
For i = 2 To 15
vals = Cells(r, i)
If vals <> "" And vals <> 0 Then
If GetExpression = "" Then
GetExpression = GetExpression & Cells(1, i) & "*" & vals
Else
GetExpression = GetExpression & "+" & Cells(1, i) & "*" & vals
End If
End If
Next i
End Function



=GetExpression(A3)