摘要:
Sub 程序自动加行号() Dim nLineNum Dim sLindNum As String Dim selRge As Range '以下变量用于"将注释改为蓝色" Dim lineProgramRange As Range Dim commentRange As Range '注释范围 Dim TextLine As String '每一行程序代码(内容) Dim ProgComment As String '每一行程序代码内的注释文字 Dim RgnStart As Long Dim RgnEnd As Long Set selR 阅读全文