一键录入奇数至a列单元格

发布时间:2019年8月28日         浏览次数:51次

代码:

Private Sub CommandButton1_Click()  '按钮控件

hang = 1

'100以内奇数写入单元格

For i = 1 To 50 Step 2

Cells(hang, "a") = i

hang = hang + 1

Next

End Sub '按钮控件 对应

源文件:

点击下载文件:一键写入奇数至a列各单元格.rar