excel - 如何在VBA中用0替换数组中的黑色值
问题描述
我正在尝试使用 VBA 读取一系列单元格并将它们存储在一个数组中,然后我将数组中的所有空白单元格更改为 0。但是,我不断收到越界错误这就是我到目前为止。
PercentComplete = Range("E3:E149").Value
For i = 1 To 147
If IsEmpty(PercentComplete(i)) Then
PercentComplete(i) = 0
End If
Next i
解决方案
请试试这个方法。它不涉及任何迭代:
Dim sh As Worksheet, rngBlk As Range
Set sh = ActiveSheet 'use here your necessary sheet
If WorksheetFunction.CountA(sh.Range("A1:I25")) < sh.Range("A1:I25").cells.count Then
Set rngBlk = sh.Range("E3:E149").SpecialCells(xlCellTypeBlanks)
rngBlk.Value = 0
Else
MsgBox "No empty cells in the range to be processed..."
End If
或者,在活动工作表上工作,以较短的变体执行所有操作:
If WorksheetFunction.CountA(sh.Range("E3:E149")) < sh.Range("E3:E149").cells.count
Range("E3:E149").SpecialCells(xlCellTypeBlanks).Value = 0
End If
推荐阅读
- jakarta-ee - EJBConfigurationException IBM websphere 9.0.11
- python - 使用递归函数排序
- javascript - 如何使用来自 react-responsive 的 MediaQuery 来仅隐藏一个 JSX 属性?
- wordpress - wordpress 多站点辅助站点不工作
- typescript - 打字稿:从字符串类型中通用删除类型
- xcode - 如何防止 PHPickerViewController 显示 iCloud 照片/视频?
- r - 使用 R 在 Postgres 中创建表时创建索引出现问题?
- xml - 使用样式表 ( xsl ) 清理 xml
- jenkins - 在 Jenkins-Batchscript 中使用 groovy-variable
- reactjs - 如何使用 React js 获取 alpha vantage api 库存