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