方方格子
一个专注Excel学习交流、求助定制的网站
`
  格子社区
阅： 1978 | 回： 1
在a列中凡是数值为1的行前插入空行 代码只能执行到第一个数值为一的行 全部 , 编号:0808 快速回复
m0566716423
发表于2017/4/4 17:15:12 楼主 
头像 等级:初学者
积分:1
财富值:0.0
身份:普通用户
Sub cr()
Dim rng As Range


For Each rng In Range("a1: a200")
  If Cells(rng, 1).Value = 1 Then
      Rows(rng).Insert

      
End If
Next

End Sub


悬赏：5 财富值
我的个性签名
土豪
发表于 2017/4/7 23:21:14   
头像 等级:学者
积分:85
财富值:10
身份:普通用户
rang 是单元格 不是数字
我的个性签名

快速回复

目前不允许游客发表，请 登录 注册 后再发贴。