Скопировать интервал, состоящий из переменных.

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Скопировать интервал, состоящий из переменных. (Макросы/Sub)

akobir

Дата: Четверг, 13.08.2015, 15:28 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 201

Репутация: 9 ±

Замечаний: 0% ±

Excel 2010

Добрый день!
Ситуация следующая:
Есть три переменных:
a = 2 (начальный интервал строки)
b = 12 (конечный интервал строки)
c = 2 (столбец)

Задача: скопировать B2:B12. Можно ли это сделать, имея только переменные?
Буду признателен!

e-mail: akobir.ismailov@gmail.com

Ответить

Manyasha

Дата: Четверг, 13.08.2015, 15:39 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 902 ±

Замечаний: 0% ±

Excel 2010, 2016

akobir, так?
[vba]

Код

Range(Cells(a, c), Cells(b, c)).Copy

[/vba]

ЯД: 410013299366744 WM: R193491431804

Ответить

miver

Дата: Четверг, 13.08.2015, 15:42 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 190

Репутация: 37 ±

Замечаний: 0% ±

Excel 2010

Можно так
[vba]

Код

Range([A1].Offset(a - 1, c - 1).Address, [A1].Offset(b - 1, c - 1).Address).Copy

[/vba]

Ответить

_Boroda_

Дата: Четверг, 13.08.2015, 15:47 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 17005

Репутация: 6667 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Еще вариант
[vba]

Код

Cells(a, c).Resize(b - 1).Copy

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995