質問: VBAで空行を入れるで教えてください 見出しはありません A列 B列 C列 O列 Z列 リンゴ データ データ 日付または時間 1 みかん データ データ 日付または時間 2 ぶどう データ データ 日付または時間 3 リンゴ データ データ 日付または時間 1 みかん データ データ 日付または時間 2 ぶどう データ データ 日付または時間 3 バナナ データ データ 日付または時間 4 イチゴ データ データ 日付または時間 5 リンゴ データ データ 日付または時間 1 みかん データ データ 日付または時間 2 ぶどう データ データ 日付または時間 3 リンゴ データ データ 日付または時間 1 みかん データ データ 日付または時間 2 ぶどう データ データ 日付または時間 3 バナナ データ データ 日付または時間 4 イチゴ データ データ 日付または時間 5 スモモ データ データ 日付または時間 6 梨 データ データ 日付または時間 7 表がうまく表示されないので見にくいと思いますが 上記のように書かれているシートに空行を入れていき 下のように空行、込の10行にしたいのですが マクロでどう書けばよろしいでしょうか わかる方がおられましたら教えていただけないでしょうか よろしくお願いします。 リンゴ データ データ 日付または時間 1 みかん データ データ 日付または時間 2 ぶどう データ データ 日付または時間 3 空行 空行 空行 空行 空行 空行 空行 リンゴ データ データ 日付または時間 1 みかん データ データ 日付または時間 2 ぶどう データ データ 日付または時間 3 バナナ データ データ 日付または時間 4 イチゴ データ データ 日付または時間 5 空行 空行 空行 空行 空行 空行を入れる区切りをO列かZ列を基準でお願いします O列には日付または時間が入っているものとします Z列には昇順で数字が入っているものとします よろしくお願いします。
回答: Z列が1の場合で判断します。 Sub sample() Dim lastRow As Long Dim r As Long lastRow = Range("Z" & Rows.Count).End(xlUp).Row r = lastRow Do While r >= 1 If Range("Z" & r).Value = 1 Then If lastRow - r < 9 Then Rows(lastRow + 1).Resize(9 - lastRow + r).Insert lastRow = r - 1 End If r = r - 1 Loop End Sub