可以插入复选框,也可以左右对齐,还可以在单元格中上下居中和左右居中 QQ:394901158 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim c As Range Set c = Range("c3") CheckBox1.Left = (c.Width - CheckBox1.Width) / 2 + c.Left CheckBox1.Top = (c.Height - CheckBox1.Height) / 2 + c.Top