VBA 特定の文字列の下に空白行を入れる
Sub add()
Dim rNum As Long
For rNum = Cells(Rows.Count, 5).End(xlUp).Row To 1 Step -1
If Cells(rNum, 5).Value = "挨拶状希望" Then Rows(rNum + 1).Insert
Next rNum
End Sub
Sub add()
Dim rNum As Long
For rNum = Cells(Rows.Count, 5).End(xlUp).Row To 1 Step -1
If Cells(rNum, 5).Value = "挨拶状希望" Then Rows(rNum + 1).Insert
Next rNum
End Sub