请大神诊断一下这段代码哪里错了

Leven.Z · 发表于 2017-2-22 20:34

请大家诊断一下这段代码哪里错了，目的是要按C列的班级名建立worksheet

Leven.Z · 发表于 2017-2-22 20:38

不好意思图片质量有点渣

笑着...两年过去 · 发表于 2017-2-22 22:09

range(行号，列号）没见过这种语法啊

笑着...两年过去 · 发表于 2017-2-22 22:19

本帖最后由笑着...两年过去于 2017-2-22 22:24 编辑

Sub test()
For i = 2 To Sheets("作业").[c1].End(4).Row
If Application.CountIf(Sheets("作业").Range("c1:c" & i), Sheets("作业").Cells(i, 3)) = 1 Then Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = Sheets("作业").Cells(i, 3)
Next
End Sub

复制代码

kingsman · 发表于 2017-2-23 21:08

变量i没付值

wang-way · 发表于 2017-2-26 19:29

Sheets("作业")重复出现好多遍。可以先赋值给变量set sht=sheets("作业")

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