请帮助看看这个例子为什么不能执行,请帮助修改一下,谢谢

YANWEI82123300 · 发表于 2024-12-21 17:58

解释:
N为Alie非空单元格的数量
如果发现A列某单元格的数据为"经理",则插入空行
查找结束后,直接跳出[经理]上已经插入空行提示

,现在希望将A2行的空行不显示

sub TEST()
dim M as integer
dim N as integer
N=application.worksheetfunction.count([A:A])
for M = N to 1 step -1
if cells(M,1)="经理" then
rows(m).insert
end if
next
msgbox"ok"& chr(10) & "[经理]上已经插入空行"

end sub

YANWEI82123300 · 发表于 2024-12-21 18:15

,谢谢大家,我已经发现了问题是CountA函数,书写错误

YANWEI82123300 · 发表于 2024-12-21 18:17

本帖最后由 YANWEI82123300 于 2024-12-21 18:20 编辑

现在希望将A列中的"经理"后面的值这个值添加到空行的A单元格中,如图,谢谢

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

[求助] 请帮助看看这个例子为什么不能执行,请帮助修改一下,谢谢