如果单元格值等于“空白”,则删除Excel中多个工作表上的行

时间:2015-06-20 11:58:17

标签: excel vba excel-vba

如果单元格值为空,我想删除多个工作表上的行(仅限工作簿中的特定行)。请注意,行中的其余字段确实包含数据。到目前为止,我有以下不确定如何指定工作表。有人可以帮忙吗?

  Sub sbDelete_rows_if_cell_blank()
    Dim lRow As Long
    Dim iCntr As Long
        lRow = 2000
        For iCntr = lRow To 1 Step -1
        If Cells(iCntr, 1).Value = "" Then
            Rows(iCntr).Delete
        End If
    Next
    End Sub 

2 个答案:

答案 0 :(得分:3)

将代码置于此循环中将循环遍历此代码所在的工作簿中的所有工作表,并在每个工作表中运行代码。

double a = Double.parseDouble(editDieselRate.getText().toString());
double b = Double.parseDouble(editDieselQty.getText().toString());
double c = a * b;
editAmount.setText(String.valueOf(c));

更新了D_Bester对.container { width: 200px; height: 200px; position: relative; background: url(http://www.indiacrunch.in/wp-content/uploads/2014/11/Astronaut-in-India.jpg); background-size: cover; background-position: center; } .container button { position: absolute; top: 50%; left: 50%; transform: translate(-50%, -50%); }条件的建议

更新2:参见评论

这将做我认为你想要实现的目标

<div class="container">
  <button>Go</button>
</div>

答案 1 :(得分:1)

您可以遍历工作表,然后使用特殊单元删除空白。 Yoi还可以设置循环,因此它不会删除&#34; Sheet1&#34;中的空白(在此示例中)

Sub DeleteBlnkRows()
    Dim sh As Worksheet

    For Each sh In Sheets
        If sh.Name <> "Sheet1" Then
            sh.Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
        End If
    Next sh

End Sub