按Alt和F11键,右键点“ThisWorkBook”——插入——模块,粘入下面的代码,点运行那个绿色三角就好了,可以自己改起始和终止的数字。 sub test() dim idxnum as integer worksheets(1).activate cells(1,1).select activecell.value=1 for idxnum=2 to 100 activecell.offset(1,0).select activecell.value=idxnum next idxnum end sub