相关疑难解决方法(0)

我需要一个简单的快速解决方案，用于将范围内的所有值乘以 VBA 代码中的数值。我知道这个解决方案：按值乘以整个范围？

Set rngData = ThisWorkbook.Worksheets("Sheet1").Range("A1:B10")
rngData = Evaluate(rngData.Address & "*2")

但它有一个很大的缺点——如果原始单元格是空白的，则结果为零。如何强制它跳过空白值？

我想避免遍历这些值，因为它非常慢。