弄好了,打开EXCEL,点工具->宏->visual basic编辑器,如果代码窗口出现直接把下面的代码复制进去,如果没有,双击左边的sheet1,然后复制下面代码:Dim i As IntegerDim x As IntegerDim m As Integerm = 1For i = 2 To 100x = m + i Mod 2Worksheets("sheet1").Cells(i, 3).Value = "=A" & xm = xNext i然后选中这段代码点上面的运行就行了,这里是2-100行的,如果觉得不够可以把100改成你想要的就行了....
|