Sub 加一票1() Range("B2")=Range("B2")+1End SubSub 减一票1() Range("B2")=Range("B2")-1End Sub有100人,就写100组这样的程序段吧,赋给相应按钮