Question

EXCEL vba 不能执行命令

附原码：

Sub text()
Dim rng As Range, b%
b = Sheet1.UsedRange.Rows.Count
MsgBox b
For Each rng In Range("a1:a" & b)
If rng Like "*标题行*" Then
Rows(rng.Row).Insert
Rows(rng.Row + 1).Insert
End If
Next
End Sub
目的是在在A列含有“标题行”字符的行 上下各插入一个空行，可运行的时间鼠标就一直打转转，命令执行没有效果，请高手指点迷津

Answer 1

你想想啊，如果第2行A列中的单元格含有“标题行",那么就选中第2行，插入新的一行，这样原来的第2行就变成了第3行，而Rng下一个不就是这第3行A列么？于是重复上述步骤，就这样无限循环下去了。

Answer 2

Sub text()
Dim rng As Range, b%
b = Sheet1.UsedRange.Rows.Count
'MsgBox b

For i = 1 To 65535 Step 1 'Range("a1:a65535")
If Range("A" & i) Like "*标题行*" Then
b = b - 1
Rows(Range("A" & i).Row).Insert
Rows(Range("A" & i).Row + 2).Insert
i = i + 2
End If
If b = 0 Then Exit For
Next

End Sub

你的加行数不对，还有A列全局使用量b用错的。完全是不同的概念

Answer 3

Sub text()
Dim rng As Range, b%
b = Sheet1.UsedRange.Rows.Count
inserRows = 0
For iRow = 1 To b
If Cells(iRow + inserRows, 1) Like "*标题行*" Then
Rows(iRow + inserRows + 1).Insert
Rows(iRow + inserRows).Insert
inserRows = inserRows + 2
End If
Next
End Sub