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