index small if求助

cocojyg

求助：
用公式 index small if  得到结果 1 和 结果 2，谢谢，

1111.rar (36.81 KB, 下载次数: 34)

2015-4-6 17:24 上传

点击文件名下载附件

笑着...两年过去

1. =INDIRECT(TEXT(RIGHT(SMALL(IF(C$5:J$15="",9^9,ROW($5:$15)/1%+COLUMN(C:J)+COLUMN(C:J)/1%%),ROW(A1)),4),"r0c00"),)&""

复制代码

笑着...两年过去

答案二：

1. =INDIRECT(TEXT(RIGHT(SMALL(IF(C$5:J$15="",9^9,ROW($5:$15)/1%+COLUMN(C:J)),ROW(A1)),4),"r0c00"),)&""

复制代码

sayhi95

问题解决了楼主也多少表示一下啊...

笑着...两年过去

条目比较多的话，可以用VBA

1. Sub test()
   
2.     ReDim 结果1(1 To [b65536].End(3).Row * [c4].End(2).Column, 1 To 1)
   
3.     For i = 5 To [b65536].End(3).Row
   
4.         For j = 3 To [c4].End(2).Column
   
5.             If Cells(i, j) <> "" Then
   
6.                m = m + 1
   
7.                结果1(m, 1) = Cells(i, j)
   
8.             End If
   
9.         Next
   
10.     Next
    
11.     [o5].Resize(m) = 结果1
    
12.     ReDim 结果2(1 To [b65536].End(3).Row * [c4].End(2).Column, 1 To 1)
    
13.     For i = 3 To [c4].End(2).Column
    
14.         For j = 5 To [b65536].End(3).Row
    
15.             If Cells(j, i) <> "" Then
    
16.                k = k + 1
    
17.                结果2(k, 1) = Cells(j, i)
    
18.             End If
    
19.         Next
    
20.     Next
    
21.     [m5].Resize(k) = 结果2
    
22. End Sub

复制代码

1111.rar (43.07 KB, 下载次数: 5)

2015-4-7 16:20 上传

点击文件名下载附件