For语句下面那一句，缺少语句结束

对影成三人发布于 2019-06-02 17:53， 2424 次点击

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

1 回复

厨师王德榜2019-06-19 09:30

代码写得不规范：

程序代码：

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