运行 个通过 select 个单元格的宏
Run a Macro through select cells
我需要这个宏来将 "Pass" 应用于我的 selection 中的每个单独的细胞。目前，即使我 select 多个单元格，它也只会在我 select 编辑的第一个单元格上写 Pass。
我对整个编码过程还很陌生，所以我知道我做错了什么。
Dim rngMyRange As Range
Dim cell As Range
Set rngMyRange = Selection
For Each cell In rngMyRange.Cells
ActiveCell = "Pass"
Next cell
End Sub
使用 For Each 循环时。在本例中，变量 cell 表示迭代时的每个单元格。所以将循环更改为：
For Each cell In rngMyRange.Cells
cell = "Pass"
Next cell
应该可以解决问题。
ActiveCell仅指实际活动的单元格，循环不会改变哪个单元格处于活动状态。在循环中激活单元格被认为是不好的形式，因为它会减慢代码速度。
我需要这个宏来将 "Pass" 应用于我的 selection 中的每个单独的细胞。目前，即使我 select 多个单元格，它也只会在我 select 编辑的第一个单元格上写 Pass。
我对整个编码过程还很陌生，所以我知道我做错了什么。
Dim rngMyRange As Range
Dim cell As Range
Set rngMyRange = Selection
For Each cell In rngMyRange.Cells
ActiveCell = "Pass"
Next cell
End Sub
使用 For Each 循环时。在本例中，变量 cell 表示迭代时的每个单元格。所以将循环更改为：
For Each cell In rngMyRange.Cells
cell = "Pass"
Next cell
应该可以解决问题。
ActiveCell仅指实际活动的单元格，循环不会改变哪个单元格处于活动状态。在循环中激活单元格被认为是不好的形式，因为它会减慢代码速度。