[已解决]求自动生成序号，并循环1次，再以4的倍数往下生成序号

wine0431 · 发表于 2017-6-6 20:42

将sheet5中的数据在前面增加一列，从1开始编序号，依次编到批号回到初始值，再循环一次，编到批号回到初始值，再按4的倍数开始编号，并将第二次编号的化验号都改为X，第三次编号的化验号变成Y，做好后成为表6的样子。

最佳答案

大灰狼1976

2017-6-8 10:04

复制代码

大灰狼1976 · 发表于 2017-6-7 12:40

192怎么得出的？

wine0431 · 发表于 2017-6-8 09:32

大灰狼1976 发表于 2017-6-7 12:40
192怎么得出的？

顺着1234567……，B列从小到大，然后到192后又回到了B列的第一个值

大灰狼1976 · 发表于 2017-6-8 10:03

直接用sheet5数据运行以下代码测试，会自动添加列，如果你手工添加列的话结果会出错。

大灰狼1976 · 发表于 2017-6-8 10:04

复制代码

idnoidno · 发表于 2017-6-8 20:57

野狼大大真的好樣，小弟想了兩天，覺得有點難度，硬湊還碰到卡關，拜讀一下，真的很厲害，希望有機會可以跟您多多請教

大灰狼1976 · 发表于 2017-6-9 11:23

idnoidno 发表于 2017-6-8 20:57
野狼大大真的好樣，小弟想了兩天，覺得有點難度，硬湊還碰到卡關，拜讀一下，真的很厲害，希望有機會可以跟 ...

同胞兄弟过奖了，论坛就是我们交流学习的平台

idnoidno · 发表于 2017-6-9 16:15

謝謝您的回覆，可否對於您上面的代碼，可以解說，讓我好好的學學，謝謝

大灰狼1976 · 发表于 2017-6-9 17:21

还是不太容易理解的，主要必须看明白b变量的用法。

Sub aaa()
Dim i&, n&, m&, b As Boolean
Columns(1).Insert '最左边插入1列
For i = 2 To [b65536].End(3).Row 从第2行循环遍历至最后一行
If Cells(i, 2) = Cells(2, 2) And b = True Then 'Cells(2, 2)为初始值，找到等于初始值的单元格时，判断b开关变量状态，b=false时，属于连续相同行，反之说明又从头开始了
m = m + 1 'm变量加1，m变量的值为回到初始值的次数，用来判断是加“X”还是“Y”，序号是1递增还是4递增
If m = 2 Then n = 4 Else n = 1 '根据m变量的值来判断序号初值是4还是1
b = False '判断从头开始后，将b变量恢复初始值，以便下次再用
Else '判断没有从头开始时，仅根据m变量的值对序号进行1或4的递增
If m = 2 Then n = n + 4 Else n = n + 1
End If
If Cells(i, 2) <> Cells(i + 1, 2) Then b = True 'b变量的使用比较关键，也不容易说清楚，这里是在上下单元格值不同时，改变b开关，说明连续相同行结束了，下次再找到跟初始值一样的单元格时，就证明又从头开始了
Cells(i, 1) = n '将n变量（序号）填入A列
If m = 1 Then Cells(i, 3) = "X" Else If m = 2 Then Cells(i, 3) = "Y" '根据m的值来改变C列值X或Y，m等于0时说明第一次循环还没结束，不用改变
Next i
End Sub

复制代码

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