Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


16346 / 76732 ←次へ | 前へ→

【65854】検索後、条件により行を挿入する
質問  けい  - 10/7/1(木) 11:04 -

引用なし
パスワード
   いくつか調べましたがわかりませんでした。
ご教授お願いできましたらよろしくお願いします。

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

どうぞよろしくお願いいたします。
2 hits

【65854】検索後、条件により行を挿入する けい 10/7/1(木) 11:04 質問
【65855】Re:検索後、条件により行を挿入する 超初心者 10/7/1(木) 11:19 発言
【65856】Re:検索後、条件により行を挿入する けい 10/7/1(木) 11:42 質問
【65857】Re:検索後、条件により行を挿入する ひつまぶし 10/7/1(木) 11:59 発言
【65858】Re:検索後、条件により行を挿入する けい 10/7/1(木) 13:10 お礼

16346 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free