If Worksheets(sht.Cells(i, 3).Value) Is Nothing Then 不明白，请教高人

happyln

{:soso_e103:}Sub ShtAdd()
    Dim i As Integer, sht As Worksheet
    i = 2                                                          '第一条记录的行号为2
    Set sht = Worksheets("成绩表1")
    Do While sht.Cells(i, "C") <> ""                                '定义循环条件
        On Error Resume Next                                        '当没有对应班级工作表时，忽略下一行代码引起的运行时错误
        If Worksheets(sht.Cells(i, "C").Value) Is Nothing Then      '判断是否存在对应的班级工作表
            Worksheets.Add after:=Worksheets(Worksheets.Count)      '在所有工作表后插入新工作表
            ActiveSheet.Name = sht.Cells(i, "C").Value              '更改工作表的标签名称
        End If
        i = i + 1                                                   '行号增加1
    Loop
End Sub
大家好，打红底这句话的原理是什么啊？它原意是想实现有重复的就忽略过去，可我不明白怎么实现的。

比如在书上，do while sht.cells(i,"C") <> ""它已经是非空值了，那它怎么又和nothing作对比呢？

AVEL

If Worksheets(sht.Cells(i, "C").Value) Is Nothing Then      '判断是否存在对应的班级工作表
后面不是已经加了说明了么。
就是判断C列单元格为工作表名的工作表是否存在

happyln

这样， If Worksheets(sht.Cells(i, "C").Value) Is Nothing 我拆开来说：

假如，worksheets(sht.cells(i,"C").value = 七(1)班
那么，七（1）班 is Nothing 这句话是怎么理解的？怎么由这条语句去掉重复的七（1）班？？？

grf1973

不是worksheets(sht.cells(i,"C").value)= 七(1)班，是sht.cells(i,"C").value = 七(1)班。
worksheets(sht.cells(i,"C").value) =worksheets(" 七(1)班")，即名字为“七(1)班”的表。
worksheets(sht.cells(i,"C").value) is nothing 表示名字为“七(1)班”的表不存在。

灼热的雨

If Worksheets(sht.Cells(i, "C").Value) Is Nothing then
这句话我理解为如果名为sht.cells(i,"C").value的工作表不存在，则进行下面的代码，如果存在，那么上一行的 on error resume next 语句起作用，忽略下一行的代码运行错误
新人一枚.....不知道楼主现在是不是已经是一枚大神了