[已解决]自动调用指定列的数据到另一指定列，并按规则排序

cunfu2010 · 发表于 2016-4-12 19:52

本帖最后由 cunfu2010 于 2016-4-13 09:01 编辑

学做了一个自动调用指定列的数据到另一指定列，并按规则排序文件，现在基本能实现但存在一些问题：
1、调用数据到指定列后，每次循环后中间都间隔2个空行（单元格）
2、排序最后会多出3行（单元格）
请帮忙看看问题出在哪儿了？如何解决？最好把代码也注释一下。谢谢了！！！

最佳答案

月排行榜 / 总排行榜

橘子红

2016-4-12 21:38

Sub yy()
Dim arr, brr, crr, ar, br, j%, s%
[C4￡oC34].Clear
crr = [G2:G7]
c = UBound(crr)
ar = Sheets(1).Range("a3").CurrentRegion
ReDim br(1 To UBound(ar) - 3, 1 To 3) 'òòÎaar°üo¬Ç°èyDD,μ«êÇ·μ»ØμÄêy¾Y±è×üDDêyéù3,ËùòÔ¼õ3
For j = 4 To UBound(ar) '′óarμÄμúËÄDD(ò2¾íêÇ3-1oÅÕaDD¿aê¼)
If ar(j, 2) <> "DÇÆúáù" And ar(j, 2) <> "DÇÆúèÕ" Then
s = s + 1
cc = (s + 4) Mod c + 1
br(j - 3, 1) = crr(cc, 1) 'μ±ìõ¼t3éá￠brμÄμú1DD¿aê¼D′èëêy¾Y,ËùòÔj-3
End If
Next
Sheets(1).Range("C4").Resize(UBound(br), 3) = br
Application.ScreenUpdating = True
End Sub

复制代码

跳转到最佳答案楼层

橘子红 · 发表于 2016-4-12 20:33

Sub yy()
Dim arr, brr, crr, ar, br, j%, s%
[C4：C34].Clear
crr = [G2:G7]
c = UBound(crr)
ar = Sheets(1).Range("a3").CurrentRegion
ReDim br(1 To UBound(ar) - 3, 1 To 3) '因为ar包含前三行,但是返回的数据比总行数少3,所以减3
For j = 4 To UBound(ar) - 3 '从ar的第四行(也就是3-1号这行开始)
If ar(j, 2) <> "星期六" And ar(j, 2) <> "星期日" Then
s = s + 1
cc = (s + 4) Mod c + 1
br(j - 3, 1) = crr(cc, 1) '当条件成立br的第1行开始写入数据,所以j-3
End If
Next
Sheets(1).Range("C4").Resize(UBound(br), 3) = br
Application.ScreenUpdating = True
End Sub

复制代码

cunfu2010 · 发表于 2016-4-12 21:13

橘子红发表于 2016-4-12 20:33

太感谢了，原来是这么回事，另外：
s = s + 1
cc = (s + 4) Mod c + 1

这两句代码怎么理解

cunfu2010 · 发表于 2016-4-12 21:16

本帖最后由 cunfu2010 于 2016-4-12 21:19 编辑

橘子红发表于 2016-4-12 20:33

还有，按你的代码执行：
1.' If ar(j, 2) <> "星期六" And ar(j, 2) <> "星期日" Then
2.       s = s + 1
3.       cc = (s + 4) Mod c + 1
4.    br(j - 3, 1) = crr(cc, 1) '当条件成立br的第1行开始写入数据,所以j-3
5.'       End If
如果第1行和第5行代码运行则中间有2行的空间间隔，如果第1行和第5行代码不运行则最后有3行的空行，怎么处理？

橘子红 · 发表于 2016-4-12 21:38

Sub yy()
Dim arr, brr, crr, ar, br, j%, s%
[C4￡oC34].Clear
crr = [G2:G7]
c = UBound(crr)
ar = Sheets(1).Range("a3").CurrentRegion
ReDim br(1 To UBound(ar) - 3, 1 To 3) 'òòÎaar°üo¬Ç°èyDD,μ«êÇ·μ»ØμÄêy¾Y±è×üDDêyéù3,ËùòÔ¼õ3
For j = 4 To UBound(ar) '′óarμÄμúËÄDD(ò2¾íêÇ3-1oÅÕaDD¿aê¼)
If ar(j, 2) <> "DÇÆúáù" And ar(j, 2) <> "DÇÆúèÕ" Then
s = s + 1
cc = (s + 4) Mod c + 1
br(j - 3, 1) = crr(cc, 1) 'μ±ìõ¼t3éá￠brμÄμú1DD¿aê¼D′èëêy¾Y,ËùòÔj-3
End If
Next
Sheets(1).Range("C4").Resize(UBound(br), 3) = br
Application.ScreenUpdating = True
End Sub

复制代码

cunfu2010 · 发表于 2016-4-12 21:56

橘子红发表于 2016-4-12 21:38

你好，注释都是乱码，麻烦你看看

cunfu2010 · 发表于 2016-4-12 22:05

橘子红发表于 2016-4-12 21:38

谢谢，明白了很多，还是要麻烦你：
s = s + 1
cc = (s + 4) Mod c + 1

这两句代码怎么理解，其他代码我基本上能理解了，这两句实现是不明白

橘子红 · 发表于 2016-4-13 17:03

s = s + 1 '累加计数
cc = (s + 4) Mod c + 1 's+4 除以c 的余数 +1

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

[已解决]自动调用指定列的数据到另一指定列，并按规则排序

点评