[Excel 宏] 求助, Loop如何停止? (更新問題)

ryb

如圖, 想要寫一個Loop的宏是可以自己加行的

比如在 I 列裡面有數值的如下

Column I

I5:
I6: 702
I7:
I8:
I9:
I10: 701
I11:
I12: 700
I13
以此類推


想要寫一個宏是可以在 I 列裡面每個有數值的cell 上面加上一個空白行

所以 702 變成第 7 行, 701 變成第 13 行


請問有兄弟姊妹懂得木???

多謝


或者有這種excel 可以發問討論的論壇可以介紹木??



Sub testxx()
    Do
        Selection.End(xlDown).Select
        ActiveCell.EntireRow.Insert Shift:=xlDown
        ActiveCell.Offset(2, 0).Select
    Loop
End Sub


目前試出來的是這樣
這樣確實可以使每個有數值的cell上面都加一行

但是如何停止這個Loop??
每次都會一路到底


多謝

sunjian

不懂 路过帮顶。。。。。。

天神十三煞

他这个表述好像有点问题，没看原文不知道
不过应该就是if后loop插入链表+1
我没学过office宏，按程序思想的话
当新加行batch值702时自动插入到702那一堆首行

ryb

感謝LS回覆啊
VBA的程碼就可以了

......原文?? 這是我寫的問題啊, 啥原文??

张飞是文豪

我每天都弄我的excel
但是LZ你的描述我真不懂
而且我用中文。。。。。。。。。。。。。。。。。。。

ryb

就是說, 把702, 701, 700............
有這些數字的地方自動加一個空行 (自動斷行)

        Selection.End(xlDown).Select
        ActiveCell.Offset(-1, 0)
        ActiveCell.EntireRow.Insert Shift:=xlDown

可是, 我不知道要加Loop的話要怎麼寫

ricyouhaku

Sub test()
Dim i
i = 6
Do Until i > Range("A65536").End(xlUp).Row + 1
Rows(i & ":" & i).Insert Shift:=xlDown
i = i + 2
Loop
End Sub

张飞是文豪

ricyouhaku 发表于 2011-11-2 09:13
Sub test()
Dim i
i = 6

有点C语言的感觉               

ryb

回复 ricyouhaku 的帖子

強人啊, 謝謝

現在是每行都行都控開了

不論有沒有數值的都加了一行


能夠只在有數值的上面加一行嘛?


多謝

ryb

Sub testxx()
    Do
        Selection.End(xlDown).Select
        ActiveCell.EntireRow.Insert Shift:=xlDown
        ActiveCell.Offset(2, 0).Select
    Loop
End Sub


目前試出來的是這樣
這樣確實可以使每個有數值的cell上面都加一行

但是如何停止這個Loop??
每次都會一路到底


多謝