-2

我有一个生成大约 10 个部分的硬编码报告。运行报告后,某些部分可能不包含数据。如果该单元格为空白(无数据),我想搜索那些特定的单元格并删除上面的两行(部分标题)。

例如:

如果单元格 B586 为空白,请删除第 584:585 行。

接着...

如果单元格 B505 为空白,则删除行 503:504

ETC..

4

1 回答 1

0

实现此目的的一种方法如下,我在检查上面的行(505)之前删除下面的行(586)的原因是因为一旦删除了行,行就会向上移动,本质上会改变行号:

Sub foo()
Dim ws As Worksheet: Set ws = Sheets("Sheet1")
    If ws.Range("B586").Value = "" Then ws.Rows("584:585").Delete
    If ws.Range("B505").Value = "" Then ws.Rows("503:504").Delete
End Sub
于 2018-06-08T16:22:06.870 回答