通过选择单元格运行宏

Question

我需要这个宏来应用＆＃34; Pass＆＃34;我选择的每个单元格。目前，即使我选择多个单元格，它也只会在我选择的第一个单元格上写入Pass。

我对整个编码事情都很陌生，所以我知道我做错了什么。

Dim rngMyRange As Range
Dim cell As Range

Set rngMyRange = Selection
For Each cell In rngMyRange.Cells
ActiveCell = "Pass"
Next cell 

End Sub

Answer 1

使用For Each循环时。在这种情况下，变量cell表示迭代时的每个单元格。所以将循环改为：

For Each cell In rngMyRange.Cells
    cell = "Pass"
Next cell

应该这样做。

ActiveCell仅指实际的活动单元，并且循环不会更改哪个单元处于活动状态。在循环中激活单元格被认为是不好的形式，因为它会降低代码的速度。