求助隔行取数的方法。。多谢大家了。。

Rockey1987 · 发表于 2011-1-31 13:27

能把我这里面数据隔行取数么？
每隔5行取一个数，我已经写了两个周期的例子，详见附件内容
拜托了~~~~

P.S.隔行取数之后，把每五个数分别复制到新的一列，也就是五列，每一列我都用星期1-5表示
谢谢大家。。。

zzmxy · 发表于 2011-1-31 13:33

C6输入下面的公式，下拉、右拉即可！！
=IF(MOD(ROW(),5)=COLUMN(A$1),$B6,"")

Rockey1987 · 发表于 2011-1-31 13:43

C6？我还是不懂啊。。。能不能麻烦把附件里的数据帮忙排好上传呀。。。
多谢。。。

Rockey1987 · 发表于 2011-1-31 14:09

多谢你啊。。。有空的话能不能教教我你是怎么做到的呢？

wolf03 · 发表于 2011-1-31 13:54

附件里就是

无辣味水煮鱼 · 发表于 2011-1-31 14:11

请查看附件
Sub test()
Dim arr, i%
arr = Range("B6:B" & Range("B65536").End(xlUp).Row)
For i = 1 To UBound(arr) Step 5
Cells(i + 5, "c").Value = arr(i, 1)
Cells(i + 6, "d").Value = arr(i + 1, 1)
Cells(i + 7, "e").Value = arr(i + 2, 1)
Cells(i + 8, "f").Value = arr(i + 3, 1)
Cells(i + 9, "g").Value = arr(i + 4, 1)
Next i
End Sub

Rockey1987 · 发表于 2011-1-31 14:17

也谢谢你，我第一次来这个论坛，大家都好热心啊。。。呵呵。。

还想补充一个问题。。5L的大侠，我的数据里面按每隔5行就取了一个数。。那么能不能把中间的空格合并呢？
就是每一列的数都是紧紧挨着的。。
还有就是怎么不能复制这些数呢？复制的时候显示的是一个公式。。。。

[ 本帖最后由 Rockey1987 于 2011-1-31 14:28 编辑 ]

wolf03 · 发表于 2011-1-31 21:08

复制后在粘贴时用右键，选择性粘贴，数值就行了

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

[求助] 求助隔行取数的方法。。多谢大家了。。

回复 4楼 wolf03 的帖子

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

[求助] 求助隔行取数的方法。。多谢大家了。。

回复 4楼 wolf03 的帖子

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

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