更改范围内特定列的值

Question

我想在当前所选范围内设置列的值。例如，当前选择的范围（可以变化）是A5：D10，我希望范围的B列中的值为＆＃34; Something＆＃34;。我猜它会是这样的：

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