excel insert 2 row

William Tam

2013-10-15 10:30 pm

想出現N字, 就插入兩行. 以下是插入一行, 唔知點改成插入兩行.

Sub addrowA()
R = 1
For X = 1 To 100
If Cells(R, 1) = "n" Then
R = R + 1
Else
Rows(R + 1).Insert Shift:=xlDown
R = R + 2
End If
Next X
End Sub

回答 (1)

Yuen

2013-10-16 9:20 pm

✔ 最佳答案

你的IF 是否設定錯了？
If Cells(R, 1) = "n" Then
是否應改成 If Cells(R, 1) <> "n" Then
...
Else
Rows(R).Insert Shift:=xlDown .... 加第一行
Rows(R+1).Insert Shift:=xlDown ....加第二行
R=R+2
......

我不曉，只是覺得你說的條件是CHECK 欄A 每個CELL (1 TO 100) 等唔等於"N", 不等於就CHECK下一個，等於就 INSERT 兩行。
所以，條件應該是IF (Cell(R, 1) 不等於 "N"。

至於，Rows(R + 1).Insert Shift:=xlDown , 這個COMMAND 應該是只INSERT了一行，所以我就加多句Rows(R + 1).Insert Shift:=xlDown, 插入第二行。
至於我改成ROW(R) 因為我覺得應該是在ROW R 下加一行，而你的ROW (R+1)應該是在ROW (R+1)下加一行。

👍 0 👎 0