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

lhwhc · 发表于 2011-3-14 11:27

老师您好！感觉您做成按钮形式非常好，再请您看看

规律性间隔多行数据不重复提取成一列1.rar (9.55 KB, 下载次数: 19) ，只间隔地提取第4、6、8、10...行的数据，而不提取第3、5、7、9...行（红色背景）的数据，再做一个代码好吗？谢谢您！

ykqrs · 发表于 2011-3-14 17:14

原帖由 laowuwyx 于 2011-3-13 20:30 发表
=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判断就一下了。

不明白r1c256是什么意思能给讲讲吗
谢！！！！

laowuwyx · 发表于 2011-3-14 17:32

原帖由 ykqrs 于 2011-3-14 17:14 发表

不明白r1c256是什么意思能给讲讲吗
谢！！！！

昨天才跟一个高手学习的，目的是屏蔽错误值，一般说来第一行的最后一列是空的，就可以得到屏蔽错误值的目的，而R1C256在2003中就代表第一行的最后一个单元格。

ykqrs · 发表于 2011-3-14 18:11

,谢谢有点明白
"r0c000;;r1c256"能不能理解是返回正负零试了几次好像不对又把中间的分号去掉可还是错误还是不能深入理解

无辣味水煮鱼 · 发表于 2011-3-14 19:27

原帖由 lhwhc 于 2011-3-14 11:27 发表
老师您好！感觉您做成按钮形式非常好，再请您看看887838，只间隔地提取第4、6、8、10...行的数据，而不提取第3、5、7、9...行（红色背景）的数据，再做一个代码好吗？谢谢您！

请试一试这个：

lhwhc · 发表于 2011-3-14 20:16

鱼老师，效果很好，先谢谢鱼老师现！现在只能好像只能提取到20行的数据,能讲一下怎样控制提取的区域吗？谢谢！

无辣味水煮鱼 · 发表于 2011-3-14 20:21

原帖由 lhwhc 于 2011-3-14 20:16 发表
鱼老师，效果很好，先谢谢鱼老师现！现在只能好像只能提取到20行的数据,能讲一下怎样控制提取的区域吗？谢谢！

你在20行以下写几个不重复的数据试一试（最好写相邻的两行以验证，因为提取分基数行和偶数行，如果写一行刚好写到不提取的行就杯具了）。

lhwhc · 发表于 2011-3-14 20:40

另外，怎么把数据提取到指定列？

gxlwy513 · 发表于 2011-3-14 21:32

有趣，我也正碰到如此问题，谢谢各位老师，学长的指教。

无辣味水煮鱼 · 发表于 2011-3-14 22:30

原帖由 lhwhc 于 2011-3-14 20:40 发表
另外，怎么把数据提取到指定列？

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)
If i Mod 2 = 1 Then
   For j = 1 To UBound(arr, 2)
      If arr(i, j) <> "" Then
         d(arr(i, j)) = ""
      End If
Next j
End If
Next i
[j3].Resize(d.Count) = Application.Transpose(d.keys)
End Sub
这是代码，如果你要改变数据输出的位置，你只需改变[j3].Resize(d.Count) = Application.Transpose(d.keys)中的"j3",比如你将其改为A12，即[a12].Resize(d.Count) = Application.Transpose(d.keys),那么数据列将从A12开始显示。

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

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

回复 4楼无辣味水煮鱼的帖子

回复 13楼 laowuwyx 的帖子

回复 15楼无辣味水煮鱼的帖子

回复 15楼无辣味水煮鱼的帖子

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

回复 4楼 无辣味水煮鱼 的帖子

回复 13楼 laowuwyx 的帖子

回复 15楼 无辣味水煮鱼 的帖子

回复 15楼 无辣味水煮鱼 的帖子

回复 4楼无辣味水煮鱼的帖子

回复 15楼无辣味水煮鱼的帖子

回复 15楼无辣味水煮鱼的帖子