выделение нескольких ячеек в VBA

[Slavutich_RED]

Сообщение от SAS888

Укажите полный диапазон для вставки:

ws1.Range(ws1.Cells(x1, y1), ws1.Cells(x2, y2)).Copy ws2.Range(ws2.Cells(x1, y1), ws2.Cells(x2, y2))

ПОМОГЛО!!! СПАСИБИЩЕ!!!

Какойто этот ВБА все равно мягко говоря "странный" - сильно неоднозначный - ну типа если ячейка "ЕВРОАМЕРИКАНЕЦ" ("E5") то тогда можно ему заказ в три вагона доставлять указав только место начала парковки без указания места окончания парковки последнего вагона, а вот если заказ для "НЕГРОАмериканца" (Cells(x1, y1)) то надо четко указать в заявке с точностью до сантиметра откуда начать размещать вагоны и до кудова иначе вагоны не выедут с депо - В ЧЕМ ЛОГИКА?

[DiemonStar]

В ЧЕМ ЛОГИКА?

А логика в том, что в случае, если используется Range в указателе куда копировать, то в эту область должна поместиться исходная область. Т.е. вы не сумеете заткнуть в одну ячейку область из 15 ячеек. Поэтому я обычно делаю так:

ws1.Range(ws1.Cells(x1, y1), ws1.Cells(x2, y2)).Copy ws2.Cells(x1, y1)

т.е. указываю только верхнюю левую ячейку для вставляемого диапазона.

[SAS888]

Можно так:

s = Range(Cells(x1, y1), Cells(x2, y2)).Address
ws1.Range(s).Copy ws2.Range(s)