根据数值插入对应的行数

gsn2502 · 发表于 2009-7-3 19:33

每次都是周末加班，我诅咒领导。

不过埋怨归埋怨，活还是要干，请各位指点一下。根据数值自动插入相对应的行数。

hupanshan · 发表于 2009-7-3 19:50

需要插入30个空白行
在什么地方插入？在３０的上边？３０的下边？
什么时候插入？填上３０立即执行？按一个按钮然后根据Ｇ列数据情况统一插入？插入时如果发现已经有了空白行要不要处理？

gsn2502 · 发表于 2009-7-3 19:55

下方，数据已经填好了，可以立即执行。

gsn2502 · 发表于 2009-7-3 19:56

空白行不处理。

hupanshan · 发表于 2009-7-3 20:22

什么时候插入？填上３０立即执行？按一个按钮然后根据Ｇ列数据情况统一插入？

gongzl1981 · 发表于 2009-7-3 20:26

試一下,按按鈕就好.在g列的有數字的單元格下加入指定的數

thomasnacy · 发表于 2009-7-3 20:32

楼上的，少插入了一行

gongzl1981 · 发表于 2009-7-3 20:33

呵呵,我是連數字本身也算一行,所以會少吧.改一下就好.

hupanshan · 发表于 2009-7-3 20:39

原帖由 gongzl1981 于 2009-7-3 20:26 发表
試一下,按按鈕就好.在g列的有數字的單元格下加入指定的數

简化一下吧
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
For i = [g65536].End(3).Row  To 4 Step -1
      If Range("g" & i) > 0 Then
         For y = 1 To Range("g" & i)
            Rows(i + 1).Insert
         Next y
      End If
Next i
Application.ScreenUpdating = True
End Sub

[ 本帖最后由 hupanshan 于 2009-7-4 06:34 编辑 ]

lt0000 · 发表于 2009-7-3 20:42

按一下,按两下……不重复、不多次插入，自动搜索空白行，保证两个数值之间的空白行的准确！

		自动登录	找回密码
密码			免费注册

根据数值插入对应的行数

最新热点 /1