代码操作代码

朗驰

.InsertLines 1, " 有  Sheets("汇总") 或   !  

提示 缺少结束语句  然后整行代码红色


还有下面这种 '注释掉 会报错  删掉' 也不行 必须返回  或者重新写
'Range("C1").Select

朗驰

朗驰

1    .InsertLines 6, "If Range("A3") ="
2     .InsertLines 50, "                .Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=NM & "!A1", TextToDisplay:=NM"""
3         .InsertLines 41, "                .Font.Name = "宋体""

代码整行红色   解决方法是1  A3或者""去掉    2 是去掉!A1  3是去掉宋体首尾的""  

代码是不红了  可是加进去的也基本散架了不能用了    然后蹦出个错误的参数号或无效的属性赋值