Как добавить строку?

[Legachoff]

Sub ааа()
Dim r As Variant
For r = 5 To 20 Step 1
If Cells(r, 13).Value = "OK" Then Rows(r + 1).Select
Selection.Insert Shift:=xlDown
Next r
End Sub

добавляет аж до 20, а надо только 1 строку...

___________________
http://socialnye-sety.ru/
http://www.studopedia.ru/
http://zdos.ru/
http://life-prog.ru/

[GSerg]

Dim r As Variant

Step 1

Then Rows(r + 1).Select
Selection.Insert Shift:=xlDown

Наверное, всё же надо как-то прочитать в разделе "Азы" про область действия If?

[Legachoff]

???

[Legachoff]

Sub dob()
Dim r As Variant
For r = 1 To 40 Step 1
Do While Cells(r, 2).Value = "AAA"
Rows(r + 1).Select
Selection.Insert Shift:=xlDown
Exit Do
Cells(r + 2, 2).Value = ""
Loop
Next r
End Sub

[Legachoff]

Sub dob()
Dim r As Variant
For r = 4 To 40 Step 1
Do While Cells(r, 2).Value = "FFF"
Rows(r + 1).Select
Selection.Insert Shift:=xlDown
Exit Do
Cells(r + 2, 2).Value = ""
Loop
Next r
End Sub

[algol2]

Предположительно намек был на:

Sub ааа()
Dim r As Integer
For r = 5 To 20
If Cells(r, 13).Text = "WWW" Then
Rows(r + 1).Select
Selection.Insert Shift:=xlDown
Exit For
End If
Next r
End Sub

[Legachoff]

Да где-то так

[Avtopic]

Dim r As Integer
For r = 40 To 4 Step -1
If Cells(r, 2).Text = "fff" Then Rows(r + 1).Insert Shift:=xlDown
Next