如何在vba excel中引用选定的单元格块

如何在代码中引用活动工作表中选定的单元格范围。 澄清一下，我不是问如何选择一个单元格范围

有任何ActiveRange或ActiveRegion之类的东西吗？ 我还没有找到它

例如，（不工作）这里有一个简单的子系统：

子测试（）
暗淡区域，cel As范围
region=ActiveCell.CurrentRegion
对于区域中的每个cel
cel=1
下一个细胞
端接头

几句话： 定义所有变量类型，如果选择了一个范围，则选择已经是一个范围。请注意，它可能会返回其他对象，因此在使用它之前应检查返回的对象的类型

几句话： 定义所有变量类型，如果选择了一个范围，则选择已经是一个范围。请注意，它可能会返回其他对象，因此在使用它之前应检查返回的对象的类型

要使用选定的单元格，请使用

示例

---

备注
返回的对象类型取决于当前选择（例如，如果选择了单元格，此属性将返回范围对象）。如果未选择任何内容，则Selection属性将不返回任何内容

要使用选定的单元格，请使用

示例

---

备注
返回的对象类型取决于当前选择（例如，如果选择了单元格，此属性将返回范围对象）。如果未选择任何内容，则Selection属性将不返回任何内容

---

你的意思是

选择。地址

？这可能比我之前的评论更有帮助：这个帖子中有更多的答案可以帮助你。你的意思是

选择。地址

？这可能比我之前的评论更有帮助：这个帖子中有更多的答案可以帮助你。

Public Sub LoopActiveRange()

    Dim sourceCell As Range

    For Each sourceCell In Selection
        sourceCell = 1
    Next sourceCell

End Sub

Option Explicit
Public Sub Example()
    Dim rng As Range
    
    For Each rng In Selection
        DoEvents
        rng.Value = "value"  ' adds a to all selected cells
    Next

End Sub