主题：增加列，会弹窗报错，求指导

For i As Integer = e.NewRange.TopRow To e.NewRange.BottomRow

    r = e.Table.Rows(i)

if r.isnull(c.Name) = false

    If dict.ContainsKey(r(c.Name)) Then

        dict(r(c.Name)) += 1

    Else

        dict.Add(r(c.Name),1)

    End If

end if

Next