在EXCEL的A1到I1中有数据：1，无，3，4，5，无,7，8，无。 现在要在A2到C2中输出：2，6，9。
展开全部
Function 无(b As Range, k As Integer)
Dim i%, j%, c As Range, wu%, a(1 To 9)
For i = 1 To 9: a(i) = i: Next i: i = 0
For Each c In b
i = i + 1
If c = "无" Then wu = a(i): j = j + 1
If j = k Then Exit For
Next c
无 = wu
End Function
Dim i%, j%, c As Range, wu%, a(1 To 9)
For i = 1 To 9: a(i) = i: Next i: i = 0
For Each c In b
i = i + 1
If c = "无" Then wu = a(i): j = j + 1
If j = k Then Exit For
Next c
无 = wu
End Function
追问
使用公式是？
追答
=无(a1:i1,1)
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
