|
▼超初心者 さん:
早々のご回答をありがとうございました。
"Appointments"は1行目には発生しないので、エラーにはなりません。
上手くいきました。
補足で質問がよろしければお聞きしたいのですが、
B列にも何もないかを確認するため、行全体が空白かどうか
を調べる方法はありますか?
お手数ですが、もし方法がありましたらよろしくお願いいたします。
>▼けい さん:
>
>こんな感じでしょうか
>
>> If Not myRange Is Nothing Then
>> ※ここに1行上が空白ではない時に・・とIfを入れたい
> If myRange.Offset(-1, 0) <> "" Then
>>> 'Rows("?:?").Select '←ここに何行目とはどう入れたらよいか
>>> 'Selection.Insert Shift:=xlDown, opyOrigin:=xlFormatFromLeftOrAbove
> myRange.EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
> End If
>> End If
>
>
>ちなみに、"Appointments"が1行目にあった場合は
>エラーが発生してしまいます m(_〜_)m
|
|