规律性间隔的多行数据不重复地提取成一列

lhwhc · 发表于 2011-3-13 16:05

请老师帮助，将规律性间隔的多行数据不重复地提取成一列，见附件

规律性间隔多行数据不重复提取成一列.rar (6.12 KB, 下载次数: 136)

laowuwyx · 发表于 2011-3-13 16:15

K3=INDIRECT(TEXT(MIN(IF((COUNTIF(K$2:K2,B$4:I$20)=0)*(B$4:I$20<>""),ROW($4:$20)*1000+COLUMN($B:$I),65536001)),"r0c000"),)&""

复制代码

数组。

hopeson2010 · 发表于 2011-3-13 16:22

=INDIRECT(TEXT(MIN(IF((COUNTIF(K$2:K2,B$4:I$20)=0)*(B$4:I$20<>""),ROW($4:$20)*1000+COLUMN($B:$I),6^10)),"r0c000"),)&""

无辣味水煮鱼 · 发表于 2011-3-13 16:26

Sub test()
Dim d As Object, arr, i%, j%
Set d = CreateObject("Scripting.dictionary")
arr = Range("B4:I" & Range("B65536").End(3).Row)
For i = 1 To UBound(arr)
For j = 1 To UBound(arr, 2)
      If arr(i, j) <> "" Then
         d(arr(i, j)) = ""
      End If
Next j
Next i
[j3].Resize(d.Count) = Application.Transpose(d.keys)
End Sub

Datous · 发表于 2011-3-13 16:38

K2 既然为空，就利用一下。
=INDIRECT(TEXT(MIN(IF(COUNTIF(K$2:K2,B$4:I$20&"")=0,ROW($4:$20)*1000+COLUMN($B:$I))),"r0c000;;r1c99"),)&""

ykqrs · 发表于 2011-3-13 16:43

原帖由 laowuwyx 于 2011-3-13 16:15 发表
K3=INDIRECT(TEXT(MIN(IF((COUNTIF(K$2:K2,B$4:I$20)=0)*(B$4:I$20""),ROW($4:$20)*1000+COLUMN($B:$I),65536001)),"r0c000"),)&""数组。

=INDIRECT(TEXT(MIN(IF((COUNTIF(K$2:K2,B$4:I$20)=0)*(B$4:I$20<>""),ROW($4:$20)*1000+COLUMN($B:$I),6^10)),"r0c000"),)&""

为什么是B$4:I$20
B$4:I$8不行吗
请老师告知

laowuwyx · 发表于 2011-3-13 16:49

原帖由 ykqrs 于 2011-3-13 16:43 发表

为什么是B$4:I$20
B$4:I$8不行吗
请老师告知

当然可以，害怕楼主到时候说，数据增加了怎么办呢，所以将区域指定大一点。

lhwhc · 发表于 2011-3-13 17:22

谢谢各位老师出手相助！

lhwhc · 发表于 2011-3-13 17:29

可能是开始我没有说明白，我的需要是只能提取间隔地提取第4、6、8、10...行的数据，不要提取第3、5、7、9的数据，能做到吗？

laowuwyx · 发表于 2011-3-13 20:30

原帖由 lhwhc 于 2011-3-13 17:29 发表
可能是开始我没有说明白，我的需要是只能提取间隔地提取第4、6、8、10...行的数据，不要提取第3、5、7、9的数据，能做到吗？

=INDIRECT(TEXT(MIN(IF((COUNTIF(L$2:L2,B$4:I$20&"")=0)*(MOD(ROW($4:$20),2)=0),ROW($4:$20)*1000+COLUMN(B:I))),"r0c000;;r1c256"),)&""

复制代码

加一个mod判断就一下了。

[ 本帖最后由 laowuwyx 于 2011-3-13 20:31 编辑 ]

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

[求助] 规律性间隔的多行数据不重复地提取成一列

评分

回复 5楼 Datous 的帖子

再求教