Question

所以，我有一个脚本正在为我绘制数据点，而我遇到的问题是数据中有几个空白点。计算了我的列中的一部分，如果计算中使用的单元格多于0，则我有一个公式将其设置为“”。使用空白单元格的图表可以很好地显示数据中的间隙，但Excel不会评估具有导致“”为空白的公式的单元格。

因此，我需要设置一些代码，可以搜索整列数据，并从值等于“”的单元格中清除公式，从而使它们变为空白，并在图中显示为间隙。

我知道我可以使用Find和What命令查找评估为“”的第一个单元格，但是如何使用它来查找所有列中的单元格？

数据的行范围始终保持不变，介于4和243之间，我正在搜索的列号（在循环内）评估为3*(iCounter - 1) + 2，如果这有助于任何人

（我搜索的范围等于Range(Cells(4, 3*(iCounter - 1) + 2), Cells(243, 3*(iCounter - 1) + 2))

Answer 1

单击要清理的列中的任何单元格并运行它：

Sub ClearThem()
    Dim BigR As Range, r As Range
    Set BigR = Intersect(ActiveCell.EntireColumn, ActiveSheet.UsedRange)
    For Each r In BigR
        If r.Value = "" Then r.Clear
    Next r
End Sub

清除列中的所有单元格=＆＃34;＆＃34;？

1 个答案: