len,counta,& “”连接符号,字符串长度,非空单元格数量

来源:互联网 发布:在淘宝买狗狗安全吗 编辑:程序博客网 时间:2024/06/08 10:24

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

0 0
原创粉丝点击