[[20241203181753]]　『1行おきにある空白行を削除するマクロ』（たたた）　ページの最後に飛ぶ

『1行おきにある空白行を削除するマクロ』（たたた）

はじめまして
例えば
１

２

３
を
1行おきにある空白行を削除して
１
２
３
と
するマクロを作りたいのですがどう作ればいいでしょうか
よろしくお願いいたします

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

■１
どこで詰まっているかわかりませんが↓のようにしてみてはどうでしょうか？

 1. オートフィルタで空白行を抽出する
 2. 抽出された行があれば、その行全体を削除する
 3. オートフィルタ自体を解除する

■２
無論、ループ処理で１行ずつ削除しても解決できます。
ただ、行を削除するとその分繰り上がるので、そのような場合は、下から（後ろから）処理することが鉄則です。

（もこな２） 2024/12/03(火) 19:02:07

ありがとうございます　オートフィルタってどうやればいいですか
（たたた） 2024/12/03(火) 19:14:12

 Sub test()
    Dim r As Range

    Set r = Columns(1)

    On Error Resume Next
    r.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    On Error GoTo 0

 End Sub
（マナ） 2024/12/03(火) 19:19:30

  Sub 一行おきの空白行を削除()
      Dim i As Long
      For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
            If i Mod 2 = 0 And WorksheetFunction.CountA(Rows(i)) = 0 Then
                  Rows(i).Delete
            End If
      Next i
  End Sub

（G_1） 2024/12/03(火) 20:01:41

１～３までを選択したままジャンプ、空白でＯＫ
選択されたセルを右クリック行ごと削除
たったこれだけ
（らたたたた） 2024/12/03(火) 20:12:48

ありがとうございます
（たたた） 2024/12/03(火) 22:07:19

並び替えをすると、空白は下に追いやられるので
そのやり方は使えないでしょうか？

（まっつわん） 2024/12/04(水) 12:13:53

コメント返信：

[ 一覧(最新更新順) ]

[[20241203181753]] 『1行おきにある空白行を削除するマクロ』（たたた） ページの最後に飛ぶ

[[20241203181753]]　『1行おきにある空白行を削除するマクロ』（たたた）　ページの最後に飛ぶ