Как добавить сразу несколько ячеек к каждой ячейке некоего диапазона?

[eugenerud]

Замечательно! Это - Предел Мечтаний!
Только я не силен в программировании. Как изменять этот макрос для того, что бы он распространял свое действие на другие столбцы и, если возможно, что бы можно было было бы добавлять не только строки, но и столбцы?

[SAS888]

И строк и столбцов добавлять по 3, или нужно как-то задавать по сколько?

[eugenerud]

Решение проблеммы интересует в общем и целом - сталкивался неоднократно и есть основания полагать, что столкнусь в будущем.

Как я заметил, за количество строк отвечает параметр "n". Как задать столбец, выделение строк которого позволяет добавить дополнительные строки и как сделать, что бы по выделению значений строки добавлялись столбцы?

[SAS888]

Посмотрите вложение. По-моему, комментариев не требуется.

P.S. Выделение можно задавать в любой строке (любом столбце).

[eugenerud]

Да, кажется, Вы правы.
Большое спасибо!

А возможно ли, что бы было некое поле в которое можно было бы вводить требуемое количество строк и столцов?

[SAS888]

А возможно ли, что бы было некое поле в которое можно было бы вводить требуемое количество строк и столбцов?

Пожалуйста, по-подробнее...

[eugenerud]

Например, что бы при выборе пункта контекстного меняю появлялось всплывающее окно с полем для ввода количества строк или столбцов?

[SAS888]

См. пример во вложении.

[eugenerud]

Это - Щедевр!
Спасибо!

[Aent]

SAS888, в коде маленькая ошибка. Он будет неверно работать если пользователь в диалоге inputbox нажмёт на Cancel или введёт не число или отрицательное число.
Cоответствующий кусок кода можно скорректировать например так

    On Error Resume Next
    n = -999
    n = InputBox("Введите целое положительное число", "Количество добавляемых строк")
    If n = 0 Then Exit Sub
    If n < 0 Or Err.Number <> 0 Then
        MsgBox "Недопустимое значение!"
        Exit Sub
    End If
    On Error GoTo 0