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