Excelマクロ

質問

もし、C9が空白で、C10も空白ならばC9の行は削除。
もし、C9が空白で、C10が空白でなければA9に「ID]、B9に「氏名」、C9に「住所」、D9に「年齢」E9に「電話番号」、F9に「備考」と入力する。
上記を実現するには、どのようにすればよいでしょうか？
よろしくお願いします。

回答No.1

cj_mover

こんにちは。
セル範囲の捉え方、がポイントですね。
色々な書き方が可能ですし、どう書くかは、状況によりますけれど、
必ずしも、９行め、でなくても動くような書き方が
需要が多い思いますから、２例、挙げてみます。

Sub Re8310635a()
　　Dim i As Long
　　i = 9
　　If Cells(i, "C") = "" Then
　　　　If Cells(i + 1, "C") = "" Then
　　　　　　Rows(i).Delete
　　　　Else
　　　　　　Rows(i).Resize(, 6) = Array("[ID]", "氏名", "住所", "年齢", "電話番号", "備考")
　　　　End If
　　End If
End Sub

Sub Re8310635c()
　　Dim i As Long
　　i = 9
　　With Cells(i, "C")
　　　　If .Value = "" Then
　　　　　　If .Offset(1).Value = "" Then
　　　　　　　　.EntireRow.Delete
　　　　　　Else
　　　　　　　　.EntireRow.Resize(, 6) = Array("[ID]", "氏名", "住所", "年齢", "電話番号", "備考")
　　　　　　End If
　　　　End If
　　End With
End Sub

お礼

ありがとうございます！！
応用して、完成できました。