excel insert row 的问题。

evo9

row     column A
1                    a
2                    a
3                    b
4                    b
5                    c
6                    c

请问要怎样让Excel automatic 在a,b,c 的最后一个insert 多一blank 的row.
使它变成
row     column A
1                    a
2                    a
3                    [blank row]
4                    b
5                    b
6                    [blank row]
7                        c
8                        c
9                      [blank row]

请大家帮帮忙，小弟感激不尽!

tensaix2j

Sub a()
   
    i = 1: Do: l = Range("A" & i): i = i + 1
    If p <> l And LenB(p) Then Rows(i - 1).Insert shift:=xlDown
    p = l: Loop While LenB(l)
   
End Sub

evo9

原帖由 tensaix2j 于 3-5-2008 12:29 AM 发表
Sub a()
   
    i = 1: Do: l = Range("A" & i): i = i + 1
    If p  l And LenB(p) Then Rows(i - 1).Insert shift:=xlDown
    p = l: Loop While LenB(l)
   
End Sub

谢谢大大！不过我学写起来。
我几个不明白的问题，想请教
为什么i 不用declare 的？
LenB（）是什么意思？
Insert shift:=xlDown 是什么意思？

anyway, 还是谢谢你

tensaix2j

嗯，是该declare 的，不然就变 variance了。。
lenB 是number of byte
Insert shift:=xlDown 是 insert 一个 row

不用客气。