値が0の場合、空の行と埋め込み行を読み込み、埋められた行を削除する方法は？

Question

空の行（空白）を読み込み、列Cから塗りつぶし（タイトル）行を読み込むコードを書くのが難しいですが、空の行（空白）ではなくタイトルの空の行のみが削除されます。

行タイトルと空白の空白については列Cを読むためのコードを作成することができます。列Cにタイトルがないギャップだけが表示されます。次に、タイトルがある行が列Dから空の場合、Lとn/mは空でないことを意味するものを意味しません。その行は削除されますが、ギャップは削除されません。この図はファイルの書式を示しており、4行目を削除する必要があります。すべてのヘルプは、いくつかのスエードのコードで

私のコードをいただければ幸いです。私はこれについてどうやって行くのか少し混乱しています。

Dim WS As Worksheet 
    For Each WS In Sheets 
    WS.Activate 

     Dim n As Long 
     Dim nlast As Long 
     Dim rw As Range 
     Set rw = ActiveWorkbook.ActiveSheet.UsedRange 
     nlast = rw.count 

     For n = nlast To 9 Step -1 
      If (rw.Cells(n, 3).Value = "") Then 
      keep 
      ElseIf (rw.Cells(n, 3).Value = text) Then 
      keep but 
      Else (rw.Cells(n, 4).Value = "" And rw.Cells(n, 5).Value = "" And rw.Cells(n, 6).Value = "" And rw.Cells(n, 7).Value = "" And rw.Cells(n, 8).Value = "" And rw.Cells(n, 9).Value = "" And rw.Cells(n, 10).Value = "" And rw.Cells(n, 11).Value = "") Then 
      rw.Rows(n).Delete 

      End If 
     Next n 
     Next WS 
    End Sub 

Answer 1

あなたはかなり近いです。ここに固定コードがあります：

Sub Test() 

Dim WS As Worksheet 
Dim n As Long 
Dim nlast As Long 


For Each WS In Sheets 

nlast = WS.UsedRange.Rows(WS.UsedRange.Rows.Count).Row 

    For n = nlast To 9 Step -1 
     If WS.Cells(n, 3).Value <> "" And WS.Cells(n, 4).Value = "" And WS.Cells(n, 5).Value = "" And _ 
     WS.Cells(n, 6).Value = "" And WS.Cells(n, 7).Value = "" And WS.Cells(n, 8).Value = "" And _ 
     WS.Cells(n, 9).Value = "" And WS.Cells(n, 10).Value = "" And WS.Cells(n, 11).Value = "" Then 

     WS.Rows(n).EntireRow.Delete 

     End If 
    Next n 
Next WS 
End Sub