End(xlUp)) 'row 8 column H If Not IsNumeric(c.Value) Then i = i + 1 Next c MsgBox "There Are " & i & " Not Numeric Cells" End Sub ...
確定! 回上一頁