紧急求助！！按要求在行及列中填写内容！！不胜感激！！

lj1226189 · 发表于 2020-12-15 18:20

要求从第二列开始到最后一列以及从第二行开始到最后一行中空白的格子里填写 “备用“ 两字然后
每一行填备用的格子数为34 个
每一列备用的格子数为352 个

谢谢各位大佬！！

1_重做.zip (91.71 KB, 下载次数: 16)

sylinmc · 发表于 2020-12-15 19:17

这个意思？？

Sub tst()
Dim lr%, lc%, i%, j%
lr = [A65536].End(xlUp).Row
lc = Cells(1, Columns.Count).End(xlToLeft).Column
For i = 2 To lr
For j = 2 To lc
If Cells(i, j) = "" Then Cells(i, j) = "备用"
Next
Next
End Sub

复制代码

lj1226189 · 发表于 2020-12-15 19:28

再次求助！！！！！！！！！！！！！

蓝桥玄霜 · 发表于 2020-12-16 08:52

2楼的代码是可以的哦。也可以用数组来加快速度。

Dawn123666 · 发表于 2021-1-14 17:32

蓝桥玄霜发表于 2020-12-16 08:52
2楼的代码是可以的哦。也可以用数组来加快速度。

蓝桥老师，我想问下您在命名的变量后加的特殊符号：&、%、￥是什么意思呢？

loirol · 发表于 2021-1-14 17:41

本帖最后由 loirol 于 2021-1-14 17:42 编辑

Dawn123666 发表于 2021-1-14 17:32
蓝桥老师，我想问下您在命名的变量后加的特殊符号：&、%、￥是什么意思呢？

dim i!　　相当于　dim i as single
dim i#　　相当于　dim i Double
dim i@　　相当于　dim i as Currence
dim i$　　相当于　dim i as String
dim i%　　相当于　dim i as Integer
dim i&　　相当于　dim i as i Long

		自动登录	找回密码
密码			免费注册

[求助] 紧急求助！！按要求在行及列中填写内容！！不胜感激！！

最新热点 /1