Excel - 从选定的行中仅选择列（38）中的单元格

Question

我在电子表格中选择了10k行。现在我需要将该选择范围缩小到仅前一个选择中第38列中的单元格。

我对VBA几乎没有经验，但我用来选择行的宏是

Sub selectwholerow()
Selection.EntireRow.Select
End Sub

所以我想我正在寻找的是

Sub selectcolumn()
Selection.Columns(38).Select
End Sub

但我真的不知道。

Answer 1

Sub selectcolumn()
    Intersect(ActiveSheet.Columns(38), Selection.EntireRow).Select
End Sub

Answer 2

如果您只想Select交叉路口，可以使用：

Intersect(Selection.EntireRow, Columns(38)).Select

如果你想用指定范围做其他事情，那么你可以使用一个函数来返回它：

Function Col38(ByRef r As Range) As Range
    Set Col38 = Intersect(r.EntireRow, Columns(38))
End Function

然后使用类似的东西：

Sub Test()
    Col38(Selection).Select
End Sub