Excel VBA如何选中活动单元格所在的整行和整列？

原代码存在两个问题：

• 误用了VBA内置关键字Column和Row作为变量名，会引发语法冲突
• 调用Union时无需用.range()包裹已经是Range对象的整行/整列，直接传入对应对象即可

修正后的完整代码：

Private Sub CommandButton7_Click()
    Dim targetCol As Range
    Set targetCol = ActiveCell.EntireColumn
    
    Dim targetRow As Range
    Set targetRow = ActiveCell.EntireRow
    
    Dim rng As Range
    Set rng = Union(targetCol, targetRow)
    
    rng.Select
    Unload Me
End Sub

如果想更精简，也可以省略中间变量，直接一行完成选中：

Private Sub CommandButton7_Click()
    Union(ActiveCell.EntireColumn, ActiveCell.EntireRow).Select
    Unload Me
End Sub

以上代码均能实现选中活动单元格所在整行和整列的需求。

内容的提问来源于stack exchange，提问作者Pom