在设定范围内更改列号

Question

我已将rng设置为范围。 目前，rng具有以下值：

$M$5:$M$7,$M$13:$M$15,$M$17:$M$19,$M$22:$M$23,$M$25:$M$26

我想在此范围内重新分配列号。 例如：

rng.Column = 1 'or
set rng.Column = 1 'or
rng.Column = "A"

有人知道我该怎么做吗？

Answer 1

使用相交：

Set rng = Intersect(rng.EntireRow,rng.Parent.Range("A:A"))

Answer 2

如果您希望将范围列从 M 更改为 A ，请尝试以下操作：

Sub dural()
    Dim rng As Range
    Set rng = Range("$M$5:$M$7,$M$13:$M$15,$M$17:$M$19,$M$22:$M$23,$M$25:$M$26")
    Set rng = Range(Replace(rng.Address, "M", "A"))
    MsgBox rng.Address
End Sub