根据要求自动填充考号，跪求VBA

ssllmc · 发表于 2019-10-7 23:03

跪求大侠出手：根据G1人数（例如附件中为34），从C3开始向下自动填入考号，样子为7101~7134，需要强调的是自动填的终点是根据G1人数确定的，假如G1是50的话，那么自动填入的考号就为7101至7150。。然后向下根据J1的人数（例如附件中为35），继续向下自动填充考号，样子为7201~7235.两个班级总人数上线为100人。有没表述清楚的地方我会根据大侠的要求补充。

kkf5560 · 发表于 2019-10-8 00:44

Sub t()
Dim i&, k&
k = 3
For i = 1 To [g1]
Range("c" & k) = 7100 + i
k = k + 1
Next i
For i = 1 To [j1]
Range("c" & k) = 7200 + i
k = k + 1
Next i
If k - 3 > 100 Then MsgBox "超过100人了"
End Sub

复制代码

绿谷龙芽 · 发表于 2019-10-8 00:53

=SUBSTITUTE(A3,".","")&TEXT(COUNTIF(A$3:A3,A3),"00")

kkf5560 · 发表于 2019-10-8 01:01

Option Explicit
Sub t()
Dim k&
k = 3
Do Until k - 3 = 100
If k - 2 <= [g1] Then
Range("c" & k) = 7100 + k - 2
Else
Range("c" & k) = 7200 + k - 2 - [g1]
End If
k = k + 1
Loop
End Sub

复制代码

换了个思路

kkf5560 · 发表于 2019-10-8 01:07

=IF(ROW()-2<=$G$1,7100+ROW()-2,7200+ROW()-2-$G$1)换成函数解

zp602 · 发表于 2019-10-8 03:07

VBA我不熟悉，用公式帮你做了一个。
C3=IF(D3<=$G$1,7100+D3,IF(AND(D3>$G$1,D3<=$G$1+$J$1),7200+D3-G$1,""))

ssllmc · 发表于 2019-10-8 08:15

kkf5560 发表于 2019-10-8 00:44

完美解决，跪谢

ssllmc · 发表于 2019-10-8 08:35

zp602 发表于 2019-10-8 03:07
VBA我不熟悉，用公式帮你做了一个。
C3=IF(D3$G$1,D3

解决，谢谢

ssllmc · 发表于 2019-10-8 15:49

kkf5560 发表于 2019-10-8 01:01
换了个思路

谢谢谢谢谢谢

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

[求助] 根据要求自动填充考号，跪求VBA