在一個範圍內更改特定列的值

Question

我想在當前所選範圍內設置一列的值。例如，當前所選範圍（可能會有所不同）爲A5：D10，我希望範圍的B列中的值爲「某件事」。我猜它會是這樣的：

ActiveCell.Columns("B").Value="Something" 

謝謝。

Answer 1

您也可以使用Intersect()功能...

Sub Intersection_Example() 

    Dim rngB As Range 
    Dim rngResult As Range 

    Set rngB = Columns("B") 
    Set rngResult = Intersect(Selection, rngB) 

    rngResult.Value = "Something" 

End Sub