EXCEL巨集碼：檢查座號有否缺漏

==============================================
Sub 檢查座號有否缺漏()
startrow = Asc("E")
y = 0
Sheets("座位表初填").Select
For stno = 1 To 49
    y = 0
    For r = 1 To 7
          For col = 1 To 15 Step 2
       
            If CStr(stno) = Range(Chr(startrow + r - 1) & col).Value Then
                y = 1
                Exit For
            End If
         
          Next
    Next
If y = 0 Then miss = miss & stno & ","
Next
MsgBox "1~49中，缺漏的座號：" & miss
End Sub
================================================