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

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

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值