在一个范围内更改特定列的值

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