MS Excel

Zaškrtnutie na to nemá vplyv. To sa dá testovať bez odškrtávania. Záleží na tom, či majú byť vo výsledku zaškrtnuté alebo nie. Testuje sa najskôr, či bunka obsahuje nejakú hodnotu a zároveň je to číslo, a ešte navyše nie je číslo zapísané vzorcom. Až potom sa bunka zmaže. Teraz je na konci Select pre ukážku, tak si tam po overení aktivujte ten ClearContents.
No a to zmazanie CheckBoxov si aktivujte v prípade potreby aktivovaním riadku
rB.Offset(0, 3).ClearContents
Sub Smazat()
Dim rB As Range, rDel As Range, i As Long, B()

Set rB = Worksheets("List1").Range("B2:B25")
B = rB.Value2

' rB.Offset(0, 3).ClearContents 'stačí zmazať stĺpec E, prázdna bunka je pre CheckBox ako FALSE/NEPRAVDA, ale v tomto prípade to asi netreba

For i = 1 To UBound(B, 1)
If LenB(B(i, 1)) <> 0 And IsNumeric(B(i, 1)) Then 'je niečo v bunke a zároveň je to číslo?
If Not rB.Cells(i).HasFormula Then 'a ešte k tomu to nie je vzorec
If rDel Is Nothing Then Set rDel = rB.Cells(i) Else Set rDel = Union(rDel, rB.Cells(i)) 'tak pridaj bunku do oblasti na zmazanie
End If
End If
Next i

If Not rDel Is Nothing Then rDel.Select 'ClearContents 'zmaž oblasť na zmazanie
End Subcitovat