| |
▼超初心者 さん：
早々のご回答をありがとうございました。
"Appointments"は１行目には発生しないので、エラーにはなりません。
上手くいきました。
補足で質問がよろしければお聞きしたいのですが、
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"が１行目にあった場合は
>エラーが発生してしまいます ｍ（＿〜＿）ｍ
|
|
けい
- 10/7/1(木) 11:42 -
