国产一区二区欧美精品免费-欧美国产日韩在线视频-欧美亚洲国语精品一区二区-欧美激情五月综合啪啪-国产69精品麻豆久久久久-亚洲人成精品久久久久桥网站-欧美刺激肥熟在线视频-十七岁日本免费完整版BD-黑夜在线拖拽不卡第一页
方方格子
一個(gè)專注Excel學(xué)習(xí)交流、求助定制的網(wǎng)站
登錄
注冊(cè)
格子社區(qū)
專注Excel學(xué)習(xí)互助,海量資源
Excel
求助
,找方方格子
公式定制、VBA編程、圖表設(shè)計(jì)等
`
首頁(yè)
函數(shù)公式
視頻教程
知識(shí)庫(kù)
資源模板
求助專區(qū)
格子社區(qū)
閱: 3371 | 回: 1
在a列中凡是數(shù)值為1的行前插入空行 代碼只能執(zhí)行到第一個(gè)數(shù)值為一的行
全部 , 編號(hào):0808
m0566716423
發(fā)表于2017/4/4 17:15:12
樓主
回復(fù)樓主
等級(jí):初學(xué)者
積分:1
財(cái)富值:0.00
身份:普通用戶
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 財(cái)富值
我的個(gè)性簽名
土豪
發(fā)表于 2017/4/7 23:21:14
回復(fù)2樓
等級(jí):學(xué)者
積分:85
財(cái)富值:10
身份:普通用戶
rang 是單元格 不是數(shù)字
我的個(gè)性簽名
<<
<
1
>
>>
快速回復(fù)
目前不允許游客發(fā)表,請(qǐng)
登錄
注冊(cè)
后再發(fā)貼。
格子社區(qū)
(
閩ICP備15004082號(hào)-1
) © 2014-2018
加入會(huì)員
技術(shù)支持:
方方格子
1.0.1
版權(quán)所有:方方格子
官方QQ群
微信公眾號(hào):方方格子