这个方法需要开启excel的“开发工具”,然后使用宏功能,编写vba代码,代码如下: Sub IMonday() Dim r, c, i, WJhangshu, WJshu, bt As Long r = Range("A" & Rows.Count).End(xlUp).Row b = InputBox("请输入分表行数") If IsNumeric(b) Then WJhangshu = Int(b) Else MsgBox "输入错误", ...