百度网友c7d10072013-05-22TA获得超过6310个赞关注在sheet1中，视图——窗体——画一个按钮就可以了指定宏。右键sheet1添加上面的代码。中文是注释最好是改一下代码SubCommandButton1_Click()ActiveCell.Value=ActiveCell.Value+1'选定单元格内容+1ActiveCell.Offset(1).Select'自动移到下个单元格EndSub