[已解决]求个好公式请各位老师指点一下

awa1985 · 发表于 2013-3-1 19:18

求个好公式,请各位老师指点一下

最佳答案

cbg2008

2013-3-1 21:04

cbg2008 · 发表于 2013-3-1 19:33

用公式挺难的，如果数据量超过1000，可能运算就慢了，所以，建议不用公式解决，用VBA

hwc2ycy · 发表于 2013-3-1 20:19

还要用VBA？那我得看看。

hwc2ycy · 发表于 2013-3-1 20:20

果然，用VBA是极好的。

hwc2ycy · 发表于 2013-3-1 20:26

得到的数字还是用、号相连么。

jiexing01 · 发表于 2013-3-1 20:32

不知道这个行不行。

=IF(K2="y",0,)&SUBSTITUTE(SUM(N(INDIRECT(TEXT(IF(K2:U2="y",ROW($1:$1)*100+COLUMN(K:U),4^8),"r0c00"),))*10^(11-COLUMN(A:K))),0,)&IF(U2="Y",0,)

复制代码

hwc2ycy · 发表于 2013-3-1 20:39

复制代码

hwc2ycy · 发表于 2013-3-1 20:40

Sub 求对应数()
'---------------------------------------------------------------------------------------
' Procedure : 求对应数
' Author : hwc2ycy
' Date : 2013/3/1
' Purpose : 数组遍历
'---------------------------------------------------------------------------------------
'
Dim iLastRow As Long, i As Long, j As Long
Dim arr
Dim arrResult()
Dim strTemp As String
Application.ScreenUpdating = False
iLastRow = Cells(Rows.Count, "x").End(xlUp).Row
Range("y2:y" & iLastRow).Value = ""
arr = Range("k1:u" & iLastRow).Value
ReDim arrResult(1 To UBound(arr), 1 To 1)
arrResult(1, 1) = "对应数"
For i = LBound(arr) + 1 To UBound(arr)
For j = LBound(arr, 2) To UBound(arr, 2)
If arr(i, j) Like "[yY]" Then
strTemp = strTemp & j - 1 & "、"
End If
Next
arrResult(i, 1) = Left(strTemp, Len(strTemp) - 1)
strTemp = ""
Next
Range("y1").Resize(iLastRow) = arrResult
Columns("y").AutoFit
Application.ScreenUpdating = True
MsgBox "整理完毕", vbInformation + vbOKOnly
End Sub

复制代码

faliming7 · 发表于 2013-3-1 20:46

=IF(K2="y","0、","")&TEXT(SUM(LARGE(((L2:T2="y")*L$1:T$1),ROW($1:$9))*10^(ROW($1:$9)-1)),REPT("#、",COUNTIF(L2:T2,"y")-1)&"#")&IF(U2="y","、10","")

cbg2008 · 发表于 2013-3-1 21:04

		自动登录	找回密码
密码			注册