excel用按钮取消单选按钮选中状态

Sub 清除选项按钮选中状态() '单选按钮要连续添加，否则名称不连续 For i = 1 To 4 ActiveSheet.Shapes.Range(Array(Option Button & i)).Select Selection.Value = False Next i Range(A1).SelectEnd Sub