For语句下面那一句，缺少语句结束
Sub 插入dim rw%,sr$,ss
for rw=2 to worksheetfunction.countA([a:a])
sr=sr&rw&":"&rw&","
next rw
left(sr,len(sr)-1)
End Sub
程序代码：Sub 插入()
Dim rw%, sr$, ss
For rw = 2 To WorksheetFunction.CountA([a:a])
sr = sr & rw & ":" & rw & ","
Next rw
sr = Left(sr, Len(sr) - 1)
End Sub