点击按钮隐藏指定行 Private Sub CommandButton1_Click() '按钮名称,点击事件 If Rows("4:4").Hidden = True Then '以某一行为标识,根据一行的显示、隐藏做标识,hidden是否隐藏的标识 Range("4:4,9:10,13:13,21:21,23:25,28:28,30:32,35:37").Select '选中区域,数字标识具体的行 Selection.EntireRow.Hidden = FLAS