|
いくつか調べましたがわかりませんでした。
ご教授お願いできましたらよろしくお願いします。
A列に"Appointments"という文字があった場合、その上の行が空白なら
そのまま、文字があった場合は行を1行挿入させたいのですが、
("Appointments"より上にあるデータとの区切りとして、空白行を設けたい)
見つかった文字に対しての上の行というような書き方がわかりません。
また何行目に挿入するという書き方もわかりません。
Dim srcName As String
Dim m As Long
srcName = "Appointments"
Set myRange = Range("A:A").Find(What:=srcName)
If Not myRange Is Nothing Then
※ここに1行上が空白ではない時に・・とIfを入れたい
Rows("?:?").Select ’←ここに何行目とはどう入れたらよいか
Selection.Insert Shift:=xlDown,opyOrigin:=xlFormatFromLeftOrAbove
End If
どうぞよろしくお願いいたします。
|
|