Как добавить столбцы в текущий диапазон

Question

Есть ли пример Excel VBA, который добавляет 2 столбца в текущий диапазон, а затем вставляет данные в эти столбцы. Спасибо.

Answer 1

Простой пример, основанный на измерениях исходного набора данных:

Sub qwerty()
    Dim r As Range, rNew As Range, rCombined As Range
    Dim nLastRow As Long, nFirstRow As Long
    Dim nLastColumn As Long, nFirstColumn As Long

    Set r = Range("B2:D7")

    nLastRow = r.Rows.Count + r.Row - 1
    nLastColumn = r.Columns.Count + r.Column - 1
    nFirstRow = r.Row
    nFirstColumn = r.Column

    Set rNew = Range(Cells(nFirstRow, nLastColumn + 1), Cells(nLastRow, nLastColumn + 2))
    Set rCombined = Union(r, rNew)

    r.Value = "x"
    rNew.Value = "y"
    MsgBox rCombined.Address

End Sub