去掉A列单元格中的学校代码怎样修改？

小草看日出

想去掉A列单元格中的5位学校代码，学着写了你码，但提示对象变量或with块变量未设置，求大神指导怎样修改？谢谢。


Sub 去掉学校代码()
Dim i%, r%, rng As Range, rngs As Range
r = Range("a65536").End(xlUp).Row
For i = 1 To r
rngs = Range("a1:a" & i)
For Each rng In rngs
Range("a" & i).Value = Right(Range("a" & i), Len(Range("a" & i)) - 5)
Next
Next
End Sub

杨建营

Sub 去掉学校代码()
Dim i%
For i = 1 To Range("a65536").End(xlUp).Row
    Range("a" & i).Value = Trim(Right(Range("a" & i), Len(Range("a" & i)) - 5))
Next
End Sub
楼主写的有点复杂了，精简一下就好了。

jinlei2006

1. Sub 去掉学校代码()
   
2. Dim i%, r%
   
3. r = Range("a65536").End(xlUp).Row
   
4. For i = 1 To r
   
5. Range("a" & i).Value = Right(Range("a" & i), Len(Range("a" & i)) - 5)
   
6. Next
   
7. End Sub
   

复制代码

有for循环，没必要再用for each 了

cjc209

智能填充瞬间完成 还需用代码?

小草看日出

杨建营 发表于 2023-2-22 21:40
Sub 去掉学校代码()
Dim i%
For i = 1 To Range("a65536").End(xlUp).Row

经验证正确，而且很精炼，太强大了。感谢帮助，今天没分了，明天再评分。
如果用for each next的形式写，请问我写的该怎样改？我是想学习一下对于这个问题用这个语句的写法，谢谢。

shiruiqiang

直接right（xx，lenb-len)就行

zxsea_7426

也可以这样写

小草看日出

zxsea_7426 发表于 2023-2-22 22:06
也可以这样写

经验证正确，感谢帮助。明天再评分。

小草看日出

shiruiqiang 发表于 2023-2-22 21:56
直接right（xx，lenb-len)就行

谢谢帮助。

小草看日出

cjc209 发表于 2023-2-22 21:55
智能填充瞬间完成 还需用代码?

想学习一下代码