请问如何写1到20，再从20到1，如此循环的代码啊？

Moneky · 发表于 2020-11-14 00:10

这个论坛也太胆小了吧，楼上的回复居然要沈河？？

Moneky · 发表于 2020-11-14 00:11

怎么了，前面两层楼都需要沈河？

65861954 · 发表于 2020-11-14 00:37

yjh_27 发表于 2020-11-13 23:07
Sub tttt()
Dim irow, j, k As Integer
k = 1

你这个不对哦，谢谢了。

65861954 · 发表于 2020-11-14 00:40

Moneky 发表于 2020-11-14 00:09
用数组写了一遍，思路是一样的，不过速度提上很明显，如果a列最后一行是10001行，我的电脑上运行时间如下： ...

谢谢大神指点，大神你写代码习惯真好。不过代码有点点小问题。不能做到从1到20，再从20到1，然后1到20.如此循环，这代码。是1 to 20 to 1 to 20

renkangjizhen · 发表于 2020-11-14 02:58

无限循环建议用do---loop加余数判断（（n-1）/20+1 ）

Moneky · 发表于 2020-11-14 08:38

65861954 发表于 2020-11-14 00:40
谢谢大神指点，大神你写代码习惯真好。不过代码有点点小问题。不能做到从1到20，再从20到1，然后1到20.如 ...

你看错了吧

准提部林 · 发表于 2020-11-14 11:27

Sub tttt()
Dim j&, k%, a%
For j = 2 To Range("a65536").End(xlUp).Row
k = k + a
If k = 21 Then k = 20: a = -1
If k = 0 Then k = 1: a = 1
Range("h" & j) = k
Next
End Sub

yjh_27 · 发表于 2020-11-14 12:10

65861954 发表于 2020-11-14 00:37
你这个不对哦，谢谢了。

端点要双份？

Sub tttt()
Dim irow, j, k As Integer
k = 0
a = 1
irow = Range("a65536").End(xlUp).Row
For j = 2 To irow
k = k + a
If k = 0 Or k = 21 Then a = -a: k = k + a
Range("h" & j) = k
Next
End Sub

复制代码

65861954 · 发表于 2020-11-14 12:33

yjh_27 发表于 2020-11-14 12:10
端点要双份？

逻辑简单明了。容易理解。强。。。。

。谢谢大神。

65861954 · 发表于 2020-11-14 17:26

准提部林发表于 2020-11-14 11:27
Sub tttt()
Dim j&, k%, a%
For j = 2 To Range("a65536").End(xlUp).Row

谢谢，，，，

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

[求助] 请问如何写1到20，再从20到1，如此循环的代码啊？