wps 宏【84218501吧】

84218501吧关注：1贴子：19

Sub aaaa()
Dim j, I As Integer
A = 123
j = 1
For I = 1 To 100
Range("A1").Cells(I).Value = j
j = 1 + j
Next
End Sub

送TA礼物

IP属地:广东

1楼2023-10-24 12:23回复

Sub aaaa()
Dim j, B, I As Integer
A = 123
j = 1
For I = 1 To 100
Range("A1").Cells(I).Value = j
j = 1 + j
Next
B = MsgBox(1 + 64 + 999 + 0)
End Sub

IP属地:广东

2楼2023-10-24 12:57

下载贴吧APP
看高清直播、视频！

贴吧热议榜

发表回复

内容:

使用签名档查看全部

发表

保存至快速回贴