如何删除一系列单元格中的所有checkbox

我有代码删除某个单元格中的checkbox，但我需要它删除我select的范围内的所有checkbox。 以下是我的代码删除了某个单元格中的checkbox。

Columns("B:B").Select Selection.Find(What:="FIELD SERVICES", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate ActiveCell.Offset(1, -1).Select Dim CB8 As CheckBox For Each CB8 In ActiveSheet.CheckBoxes If CB8.TopLeftCell.Address = ActiveCell.Address Then CB8.Delete Next 

以下是我如何修改它以删除我需要的范围内的单元格，但它只删除该范围的第一个单元格中的checkbox。

 Columns("B:B").Select Selection.Find(What:="FIELD SERVICES", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate Range(ActiveCell.Offset(1, -1), ActiveCell.Offset(8, 0).Select Dim CB8 As CheckBox For Each CB8 In ActiveSheet.CheckBoxes If CB8.TopLeftCell.Address = ActiveCell.Address Then CB8.Delete Next 

任何意见是极大的赞赏。

Answer 1

 Dim f as Range, cbRange as range Dim CB8 As CheckBox Set f = Columns("B:B").Find(What:="FIELD SERVICES", After:=ActiveCell, _ LookIn:=xlFormulas, LookAt:=xlPart) if not f is Nothing then set cbRange = f.parent.range(f.Offset(1, -1), f.Offset(8, 0)) For Each CB8 In ActiveSheet.CheckBoxes If not application.intersect(CB8.TopLeftCell, cbRange) is nothing Then CB8.Delete Next end if