len()返回字符串的个数值
worksheetfunction.counta()返回区域内非空单元格数量
所有的字符串的连接都需要 & 符号,而文本内容需要用“ ”引起来。
rs = rs & rw & ":" & rw & "," 表示出来就是 rw:rw,rw:rw,…
本例中,rs是变量(dim rs as string)“:” “,”是字符,因此需要用“ ”
Sub t( )
Dim rw As Integer, rs As String
For rw = 2 To WorksheetFunction.CountA([a:a]) ‘计算A列中的非空单元格数量,从2开始循环到此值
rs = rs & rw & ":" & rw & "," ‘此命令得出从第2行开始,每个行的行号:2:2,3:3,4:4,……
Range(Left(rs, Len(rs) - 1)).insert 'left 函数主要为了去掉rs字符串中最后一个逗号,也就是把【2:2,3:3,4:4,】换成【2:2,3:3,4:4】然后用range函数把字符串转化成地址名,insert函数则实现插入空行的功能。
Next rw
End Sub