Изменить номер столбца в заданном диапазоне

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

Если вы хотите изменить диапазон-столбец с 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

Answer 2

Использовать Пересечение:

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