Vba excel копирование несвязанных диапазонов - Word и Excel

shakermaker

0 / 0 / 0

Регистрация: 29.03.2013

Сообщений: 3

Копирование несвязных диапазонов

29.03.2013, 15:43. Показов 9469. Ответов 14

Метки нет (Все метки)

Друзья, подскажите, пожалуйста, как скопировать несвязные диапазоны с помощью VBA?

Использую такой код, но он копирует весь диапазон от A5 до F80. Нужно, чтобы копировал только перечисленные ниже и удалял пробелы между ними. Спасибо!

Visual Basic

Private Sub CommandButton1_Click()
 
    Range("A5:F36", "A75:F80").Copy
    
End Sub

Скрипт

5468 / 1148 / 50

Регистрация: 15.09.2012

Сообщений: 3,514

29.03.2013, 16:09

Вот так можно скопировать одновременно два несмежных диапазона:

Visual Basic

Sub Procedure_1()
 
    Range("A1, A3").Copy
 
End Sub

Visual Basic

Sub Procedure_1()
 
    Range("A1:A2, A4:A5").Copy
 
End Sub

Hugo121

6875 / 2807 / 533

Регистрация: 19.10.2012

Сообщений: 8,562

29.03.2013, 16:11

Или

Visual Basic

1	Union(Range("A5:F36"), Range("A75:F80")).Copy Sheets(2).Cells(1)

Аксима

6076 / 1320 / 195

Регистрация: 12.12.2012

Сообщений: 1,023

29.03.2013, 16:14

Здравствуйте, shakermaker,

Вот возможное решение:

Visual Basic

Private Sub CommandButton1_Click()
   Dim src As Range, dest As Range, rng As Range
   'Откуда копируем.
   Set src = Range("A5:F36, A75:F80")
   'Куда копируем (указываем верхнюю левую ячейку целевого диапазона).
   Set dest = Range("H5")
   'Копирование.
   For Each rng In src.Areas
      rng.Copy dest
      Set dest = dest.Offset(rng.Rows.Count)
   Next rng
End Sub

С уважением,

Aksima

0 / 0 / 0

Регистрация: 29.03.2013

Сообщений: 3

29.03.2013, 16:26

[ТС]

Aksima, круто! а какой код, чтобы он копировал не в ячейку, а просто в буфер?

IvanOK

693 / 99 / 10

Регистрация: 25.06.2011

Сообщений: 718

29.03.2013, 16:28

Visual Basic

Sub asd()
 Dim t
 For Each t In Range("A1,C8:C23,E8:E18")
  i = i + 1
  Cells(i, 1) = t.Value
 Next
End Sub

Добавлено через 32 секунды

Сообщение от Скрипт

Sub Procedure_1()
Range(«A1:A2, A4:A5»).Copy
End Sub

ето не проходит

Добавлено через 1 минуту

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

Union(Range(«A5:F36»), Range(«A75:F80»)).Copy Sheets(2).Cells(1)

ето тоже не работает

6875 / 2807 / 533

Регистрация: 19.10.2012

Сообщений: 8,562

29.03.2013, 16:53

Как так «не проходит, не работает»?
Всё и проходит, и работает!

Добавлено через 2 минуты
А вот Ваш пример не работает — мне например нужно заливку копировать, там нет значений!

693 / 99 / 10

Регистрация: 25.06.2011

Сообщений: 718

29.03.2013, 17:04

звеняйте

Аксима

6076 / 1320 / 195

Регистрация: 12.12.2012

Сообщений: 1,023

29.03.2013, 17:31

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

Aksima, круто! а какой код, чтобы он копировал не в ячейку, а просто в буфер?

Пришлось попотеть, но, кажется, получилось. Даже два варианта сделал .

Visual Basic

'Ïðîöåäóðà ïîäòÿãèâàåò äèàïàçîíû ê åäèíîé øèðèíå ïî ñòðîêàì è êîïèðóåò èõ â áóôåð îáìåíà.
Sub ToBufferCastingByRow()
   Dim src As Range, rng As Range
   Dim leftmostColumn As Long, rightmostColumn As Long
   Set src = Range("A5:C10, B15:D20, A25:B30")
   leftmostColumn = Cells.Columns.Count
   For Each rng In src.Areas
      If rng.Cells(1).Column < leftmostColumn Then leftmostColumn = rng.Cells(1).Column
      If rng.Cells(rng.Cells.Count).Column > rightmostColumn Then rightmostColumn = rng.Cells(rng.Cells.Count).Column
   Next rng
   Application.Intersect(src.EntireRow, Range(Columns(leftmostColumn), Columns(rightmostColumn))).Copy
End Sub

Visual Basic

'Ïðîöåäóðà ïîäòÿãèâàåò äèàïàçîíû ê åäèíîé âûñîòå ïî ñòîëáöàì è êîïèðóåò èõ â áóôåð îáìåíà.
Sub ToBufferCastingByColumn()
   Dim src As Range, rng As Range
   Dim topmostRow As Long, bottommostRow As Long
   Set src = Range("A5:B10, D15:E20")
   topmostRow = Cells.Rows.Count
   For Each rng In src.Areas
      If rng.Cells(1).Row < topmostRow Then topmostRow = rng.Cells(1).Row
      If rng.Cells(rng.Cells.Count).Row > bottommostRow Then bottommostRow = rng.Cells(rng.Cells.Count).Row
   Next rng
   Application.Intersect(src.EntireColumn, Range(Rows(topmostRow), Rows(bottommostRow))).Copy
End Sub

С уважением,

Aksima

0 / 0 / 0

Регистрация: 29.03.2013

Сообщений: 3

29.03.2013, 17:56

[ТС]

Aksima, спасибо. только не получается это привязать к кнопке

Аксима

6076 / 1320 / 195

Регистрация: 12.12.2012

Сообщений: 1,023

29.03.2013, 22:11

shakermaker, еще как получается

Visual Basic

Private Sub CommandButton1_Click()
    ToBufferCastingByRow
End Sub
 
Sub ToBufferCastingByRow()
   Dim src As Range, rng As Range
   Dim leftmostColumn As Long, rightmostColumn As Long
   Set src = Range("A5:C10, B15:D20, A25:B30")
   leftmostColumn = Cells.Columns.Count
   For Each rng In src.Areas
      If rng.Cells(1).Column < leftmostColumn Then leftmostColumn = rng.Cells(1).Column
      If rng.Cells(rng.Cells.Count).Column > rightmostColumn Then rightmostColumn = rng.Cells(rng.Cells.Count).Column
   Next rng
   Application.Intersect(src.EntireRow, Range(Columns(leftmostColumn), Columns(rightmostColumn))).Copy
End Sub

С уважением,

Aksima

693 / 99 / 10

Регистрация: 25.06.2011

Сообщений: 718

02.04.2013, 17:20

Aksima,

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

Range(«A5:F36, A75:F80»)

есть какоето ограничение в количестве копируемых строк

1 / 1 / 0

Регистрация: 29.01.2014

Сообщений: 21

19.11.2018, 13:05

Вот возможное решение:

Private Sub CommandButton1_Click()
Dim src As Range, dest As Range, rng As Range
‘Откуда копируем.
Set src = Range(«A5:F36, A75:F80»)
‘Куда копируем (указываем верхнюю левую ячейку целевого диапазона).
Set dest = Range(«H5»)
‘Копирование.
For Each rng In src.Areas
rng.Copy dest
Set dest = dest.Offset(rng.Rows.Count)
Next rng
End Sub

Aksima, а как можно преобразовать этот код таким образом, чтобы копировать не указанные ячейки, а выделенные не смежные?

~~Остап Бонд~~

Заблокирован

19.11.2018, 13:54

Shaman Weeder, Selection вместо Range(….) подставить не пробовали?

1 / 1 / 0

Регистрация: 29.01.2014

Сообщений: 21

19.11.2018, 14:13

Сообщение от Остап Бонд

Selection вместо Range(….) подставить не пробовали?

Вот это я затупил!!!
Спасибо!

Источник

Ольга G

Пользователь

Сообщений: 21
Регистрация: 09.11.2016

28.11.2019 13:50:16

Добрый день!
Прошу помощи, так как в VBA чайник:)
Имеется макрос, который выгружает только выделенный диапазон в новую книгу, с подальшим его преобразованием и сохранением.

Код

Sub ИМПОРТ()

    Selection.Copy
    Workbooks.Add
    Range("A2").Select
    ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=True, Transpose:=False
Columns("L:L").Select
CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Columns("O:O").Select
CutCopyMode = False
Selection.Delete Shift:=xlToLeft

   ActiveWorkbook.SaveAs Filename:= _
   ("C:UsersolgaDesktopИМПОРТ реестров.xls")

End Sub

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

Помогите усовершенствовать код!

Изменено: Ольга G — 28.11.2019 14:34:55

IKor

Пользователь

Сообщений: 1167
Регистрация: 27.09.2017

из общих соображений (т.к. в VBA понимаю слишком мало):
если Вы умеете выделять нужный диапазон на нескольких листах, то сможете сделать это и для диапазона на одном листе.
Вывод: перебирайте все листы листы и копируйте/вставляйте диапазоны последовательно, а не единовременно.

Ольга G Пользователь Сообщений: 21 Регистрация: 09.11.2016	Спасибо за ответ! Тогда как сделать, чтобы он копировал эти диапазоны в одну и ту же открытую книгу один под другим? Иначе каждый диапазон будет копироваться в новую книгу, а мне они нужны все в одном файле, один списком.

Jack Famous

Пользователь

Сообщений: 10848
Регистрация: 07.11.2014

OS: Win 8.1 Корп. x64 | Excel 2016 x64: | Browser: Chrome

28.11.2019 14:32:41

Цитата
Ольга G: нужно, чтобы копировались все выделенные диапазоны с других листов в текущей книге

Selection (выделенная область) может быть только у активного листа и выделения на других листах не запоминаются. Ну то есть они «запоминаются» (т.к. при переходе на лист мы видим то, что ранее на нём выделили), но как добраться до этого я не знаю

Цитата
Ольга G: как сделать, чтобы он копировал эти диапазоны в одну и ту же открытую книгу один под другим?

как вариант:

1. запоминаем в переменную текущую книгу (откуда копируем)
2. создаём новую книгу
3. запоминаем в переменную новую книгу
4. прыгаем между книгами, перемещаясь по листам старой и копируя нужные диапазоны в новую
4.1. чтобы копировать друг под другом, нужно будет каждый раз вычислять последнюю строку
Можно, конечно, на массивах сделать (если нужны только значения, как в вашем примере), но вам будет разобраться сложнее

P.S.:

оформите код в первом сообщении тэгом «<…>» на панели

UPD (пример кода на массивах)

UPD2. Шустрее. Сначала собираем массив и выгружаем всё одним махом

Изменено: Jack Famous — 28.11.2019 15:53:21

Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄

Ольга G Пользователь Сообщений: 21 Регистрация: 09.11.2016	Jack Famous,спасибо огромное, но что-то у меня ничего не выходит… Данные, которые нужно выгрузить каждый раз меняются, да и листов в книге более 20-ти… Изменено: Ольга G — 28.11.2019 17:48:54

Jack Famous

Пользователь

Сообщений: 10848
Регистрация: 07.11.2014

OS: Win 8.1 Корп. x64 | Excel 2016 x64: | Browser: Chrome

28.11.2019 17:54:55

Цитата
Ольга G: у меня ничего не выходит

вводите имена листов и адреса диапазонов на них и всё должно сработать (не тестил)

Цитата
Ольга G: Данные меняются и листов в книге более 20-ти

• меняйте организацию данных в пользу гораздо более универсальных и надёжных плоских умных таблиц (надёжный проверенный вариант)
•

можно изменить метод отбора данных:

отбирать именованные диапазоны или по цвету, например (не хотелось бы). Задача вообще сводится к тому, чтобы понять правило и «объяснить» его машине через код. Если правила нет, то как-то «пометить» ручками и отбирать помеченное

Изменено: Jack Famous — 28.11.2019 17:55:34

Ольга G Пользователь Сообщений: 21 Регистрация: 09.11.2016	Спасибо за подсказку!Да, есть маркер в виде даты ввода этих диапазонов, хотя выгрузку иногда нужно делать несколько раз в день… В общем, я ещё Query попробую, может им проще будет.

Jack Famous

Пользователь

Сообщений: 10848
Регистрация: 07.11.2014

OS: Win 8.1 Корп. x64 | Excel 2016 x64: | Browser: Chrome

29.11.2019 09:32:49

Цитата
Ольга G: нужно, чтобы копировались все выделенные диапазоны с других листов в текущей книге

А ларчик просто открывался. Лист надо было просто активировать (сюрприз)

UPD 2019/11/29 10:20:

протестировал. Всё корректно работает

Изменено: Jack Famous — 29.11.2019 10:19:42

Ольга G

Пользователь

Сообщений: 21
Регистрация: 09.11.2016

29.11.2019 10:34:31

Jack Famous написал:

Цитата
А ларчик просто открывался. Лист надо было просто активировать (сюрприз)

О, это шедеврально!!! Спасибо!

Единственный нюанс, что он собирает все активные ячейки со всех листов…

Jack Famous

Пользователь

Сообщений: 10848
Регистрация: 07.11.2014

OS: Win 8.1 Корп. x64 | Excel 2016 x64: | Browser: Chrome

#10

29.11.2019 10:36:44

Цитата
Ольга G: нужно, чтобы копировались все выделенные диапазоны с других листов в текущей книге

Цитата
Ольга G: нюанс, что он собирает все активные ячейки со всех листов

так это ведь и было нужно — что не так?

Ольга G

Пользователь

Сообщений: 21
Регистрация: 09.11.2016

#11

29.11.2019 10:41:24

Цитата
Jack Famous написал: так это ведь и было нужно — что не так?

Нюанс в том, что выбирать диапазоны нужно не со всех сразу листов, а выборочно.
Разве что всегда оставлять на других листах активной ячейкой пустую и тогда в итоговом файле уже их удалять…

Изменено: Ольга G — 29.11.2019 10:43:04

Jack Famous

Пользователь

Сообщений: 10848
Регистрация: 07.11.2014

OS: Win 8.1 Корп. x64 | Excel 2016 x64: | Browser: Chrome

#12

29.11.2019 10:54:51

Цитата
Ольга G: выбирать диапазоны нужно не со всех сразу листов, а выборочно

вы себя с каждым шагом всё глубже закапываете — это ж надо такой геморрой придумать

Дело ваше — добавим проверку списком

Изменено: Jack Famous — 29.11.2019 11:05:53

Ольга G

Пользователь

Сообщений: 21
Регистрация: 09.11.2016

#13

29.11.2019 11:28:51

Цитата
Jack Famous написал: вы себя с каждым шагом всё глубже закапываете — это ж надо такой геморрой придумать

Да, у нас не работа, а сплошной, как вы выразились…))

Вы так оперативно решаете задачи, что мне аж неудобно писать еще о каких-либо нюансах)))
Диапазоны, которые нужно выгрузить, могут находиться на разных листах, а листов очень много и они тоже могут меняться со временем, поэтому лучше не указывать имена листов.

В общем, я попробую немного доработать предыдущий вариант — он гениален!
Вам здесь и так пол офиса уже должны до конца своей рабочей жизни, не то что я!
Так что еще раз огромное спасибище!

Jack Famous

Пользователь

Сообщений: 10848
Регистрация: 07.11.2014

OS: Win 8.1 Корп. x64 | Excel 2016 x64: | Browser: Chrome

#14

29.11.2019 11:44:10

Ольга G, пожалуйста — у нас вообще очень дружелюбные завсегдатаи

Цитата
Ольга G: неудобно писать еще о каких-либо нюансах

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

Цитата
Ольга G: листов очень много и они тоже могут меняться со временем, поэтому лучше не указывать имена листов

тогда нужно определиться,

как программе понять, брать лист или нет:

• брать (не брать, а брать остальные) N листов по-порядку слева/первые (справа/последние)
• использовать в качестве критерия какую либо ячейку/диапазон на листе

Можно не отсеивать ничего при сборе данных, отфильтровать уже собранный массив, но тут тоже надо понимать, что и как проверять…

Ольга G

Пользователь

Сообщений: 21
Регистрация: 09.11.2016

#15

29.11.2019 11:48:49

Цитата
Jack Famous написал: Можно не отсеивать ничего при сборе данных, отфильтровать уже собранный массив, но тут тоже надо понимать, что и как проверять…

А как дописать удаление пустых строк уже в собранном массиве?

Jack Famous

Пользователь

Сообщений: 10848
Регистрация: 07.11.2014

OS: Win 8.1 Корп. x64 | Excel 2016 x64: | Browser: Chrome

#16

29.11.2019 12:04:04

Цитата
Ольга G: как дописать удаление пустых строк уже в собранном массиве?

оно, конечно, можно, но я догадываюсь, что пустые строки появятся, если на листе была выделена 1 пустая ячейка

Если я прав, то изменятся строки кода 31-32:

Ольга G

Пользователь

Сообщений: 21
Регистрация: 09.11.2016

#17

29.11.2019 12:08:26

Цитата
Jack Famous написал: оно, конечно, можно, но я догадываюсь, что пустые строки появятся, если на листе была выделена 1 пустая ячейка

А как иначе…если по другим критериям не выйдет правильно собрать то, что нужно, то уж лучше в итоге удалить пустые строчки:)
Мерси!

Ольга G Пользователь Сообщений: 21 Регистрация: 09.11.2016	Jack Famous, Ой, а можно так, чтобы только первую пустую всегда оставлять?

Jack Famous

Пользователь

Сообщений: 10848
Регистрация: 07.11.2014

OS: Win 8.1 Корп. x64 | Excel 2016 x64: | Browser: Chrome

#19

29.11.2019 12:20:11

Цитата
Ольга G: первую пустую всегда оставлять?

не понял вас — что это значит?

Вариант с удалением полностью пустых «строк» массива после сбора

Изменено: Jack Famous — 29.11.2019 12:27:09

Ольга G

Пользователь

Сообщений: 21
Регистрация: 09.11.2016

#20

29.11.2019 12:33:23

Цитата
Jack Famous написал: не понял вас — что это значит?

Вопрос снимается:) это я накрутила — поставила выгрузку раньше удаления:)

Ольга G

Пользователь

Сообщений: 21
Регистрация: 09.11.2016

Jack Famous,еще вопрос!
В диапазонах для выгрузки стоят ячейки с датами.
После выгрузки у этих ячеек теряется формат, соответственно и содержимое.
Как это исправить?
В принципе, можно выгружать с сохранением форматов, если остальные данные не поплывут…

Изменено: Ольга G — 29.11.2019 12:54:23

Jack Famous

Пользователь

Сообщений: 10848
Регистрация: 07.11.2014

OS: Win 8.1 Корп. x64 | Excel 2016 x64: | Browser: Chrome

#22

29.11.2019 13:07:49

Ольга G, попробуйте заменить строку 57 кода из #19 на эту

Код
If IsDate(arr(r, c)) Then arrNew(rMax, c) = CDate(arr(r, c)) Else arrNew(rMax, c) = arr(r, c)

если не поможет, то ещё замените .Value2 на .Value во всём коде

UPD:

замена строки 57 не нужна, а вот .Value для вашего случая лучше, чем .Value2
UPD2: схлопнул 2 цикла по столбцам (при проверке на полностью пустые строки) в один + убрал (закомментировал) проверку листов по списку

Улучшенный код + файл-пример

Матчасть

по дате-времени, чтобы не думать, что формат что-то значит, кроме визуального отображения

Прикрепленные файлы

Копирование между книгами.xlsb (23.69 КБ)

Изменено: Jack Famous — 29.11.2019 13:52:09

Ольга G

Пользователь

Сообщений: 21
Регистрация: 09.11.2016

#23

29.11.2019 13:19:04

Цитата
Jack Famous написал: если не поможет, то ещё замените .Value2 на .Value во всём коде

Работает!
Вы даже не представляете, как я Вам благодарна!!!
Теперь еще нужно подумать, как сделать, чтобы выделение с уже выгруженных диапазонов снималось и выделялась какая-нибудь пустая ячейка, чтобы этот диапазон в последующих выгрузках не участвовал…

Jack Famous

Пользователь

Сообщений: 10848
Регистрация: 07.11.2014

OS: Win 8.1 Корп. x64 | Excel 2016 x64: | Browser: Chrome

#24

29.11.2019 13:28:38

Ольга G, дополнил выше. Пожалуйста

Цитата
Ольга G: как сделать, чтобы выделение с уже выгруженных диапазонов снималось

1. пройтись в цикле по листам и выделить другие ячейки
2. менять подход, потому что это явный борщ

Ольга G

Пользователь

Сообщений: 21
Регистрация: 09.11.2016

#25

29.11.2019 13:38:15

Цитата
Jack Famous написал: менять подход, потому что это явный борщ

Борщ не то слово!

Цитата
Jack Famous написал: пройтись в цикле по листам и выделить другие ячейки

Буду разбираться.

И спасибо за матчасть

Jack Famous

Пользователь

Сообщений: 10848
Регистрация: 07.11.2014

OS: Win 8.1 Корп. x64 | Excel 2016 x64: | Browser: Chrome

Ольга G, пожалуйста) разбирайтесь и заходите к нам на Планету

P.S.:

ещё раз обновил #22 (код и файл)

Изменено: Jack Famous — 29.11.2019 13:42:32

Ольга G Пользователь Сообщений: 21 Регистрация: 09.11.2016	#27 29.11.2019 14:14:26 Jack Famous, спасибо, буду захаживать) на огонёк)) ибо эти кракозяблы мне тяжко даются, хоть и очень влекут )

Источник

копирование несвязанных диапазонов по выделенным ячейкам

Markovich

Дата: Четверг, 08.12.2022, 11:51 |
Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 48

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

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

Excel 2019

Здравствуйте, уважаемые форумчане!
Помогите, пожалуйста, разобраться с проблемой, долго не могу разобраться…
На листе выделяю с помощью CTRL+ЛКМ произвольное (заранее неизвестное) количество ячеек. Далее определяю номера строк выделенных ячеек. По этим номерам строк необходимо диапазоны фиксированной ширины скопировать, например, в строку 40 и ниже данного листа. Написал код, но он не работает, т.к. «Union» не воспринимает текст из переменной. Метод копирования построчно не подойдет, т.к. в итоге вставка будет происходить другим кодом в другой книге. Подскажите, пожалуйста, в чем у меня ошибка и как можно преодолеть ограничение «Union» в 30 аргументов (выделенных ячеек может быть больше 30)? Или может быть есть более оптимальный быстроработающий вариант кода? Заранее спасибо.
[vba]

Код

Sub test2()
Dim element As Range
‘Dim a As String
Dim a
Dim b
Dim i As Integer
Dim multirng As Range
b = «, «
i = 1
For Each element In Selection
i = i + 1
a = a & «Range(Cells(» & element.Row & «, 1), Cells(» & element.Row & «, 7))» & b
Next
a = Left(a, Len(a) — 2)
‘Range(«B40») = a
Set multirng = Union(a)
multirng.Copy
Range(Cells(40, 1), Cells(40 + i — 1, 7)).Paste
End Sub

[/vba]

К сообщению приложен файл:

7907987.xlsb
(18.0 Kb)

Сообщение отредактировал Markovich — Четверг, 08.12.2022, 14:39

Ответить

Pelena

Дата: Пятница, 09.12.2022, 09:34 |
Сообщение № 2

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

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

Сообщений: 18797

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

Замечаний:
±

Excel 2016 & Mac Excel

Здравствуйте.
Можно так попробовать
[vba]

Код

Sub test2()
    Dim element As Range
    Dim multirng As Range
    For Each element In Selection
        If multirng Is Nothing Then
            Set multirng = Cells(element.Row, 1).Resize(1, 7)
        Else
            Set multirng = Union(multirng, Cells(element.Row, 1).Resize(1, 7))
        End If
    Next
    multirng.Copy Cells(40, 1)
End Sub

[/vba]

К сообщению приложен файл:

9794571.xlsb
(16.6 Kb)

«Черт возьми, Холмс! Но как??!!»
Ю-money 41001765434816

Ответить

Markovich

Дата: Пятница, 09.12.2022, 11:45 |
Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 48

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

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

Excel 2019

Pelena, здравствуйте. Код работает так как и было задумано. Не первый раз мне помогаете, большое Вам спасибо!

Ответить

Markovich

Дата: Пятница, 09.12.2022, 14:04 |
Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 48

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

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

Excel 2019

Выявилась интересная особенность… Если копировать один связанный диапазон, то формулы копируются (столбцы C, F). Если выделенные ячейки не связаны, то копируются только значения. Можно это ограничение как то преодолеть?

К сообщению приложен файл:

0382698.xlsb
(17.3 Kb)

Сообщение отредактировал Markovich — Пятница, 09.12.2022, 14:05

Ответить

Pelena

Дата: Пятница, 09.12.2022, 15:33 |
Сообщение № 5

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

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

Сообщений: 18797

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

Замечаний:
±

Excel 2016 & Mac Excel

Так будут копироваться значения. Добавила ещё очистку диапазона, начиная от ячейки А40, и буфера обмена, чтобы убиралась пунктирная рамка
[vba]

Код

[/vba]

«Черт возьми, Холмс! Но как??!!»
Ю-money 41001765434816

Ответить

Источник

Уважаемые спецы экселя, столкнулся со следующей проблемой — надо скопировать из одно столбца в соседний разрозненые диапазоны — не могу понять, как сократить макрос — а в таком виде как у меня — естественно ничего не работает.
Пример ниже
Sub Percetage_Filling()
Worksheets(«Konsol 2011»).Select
Range(«W9»).Select
ActiveCell.FormulaR1C1 = _
«=RC[-5]*R6C24»
Selection.Copy
Union(Range(«W9:W14,W16:W23,W27:W28,W30:W31,W33:W36,W39:W40,W44:W50,W52:W54,W56,W58:W60») _
, Range(«W63:W64,W67:W68,W71:W75,W79:W82,W84:W85,W87:W89,W92:W93,W95:W101,W103:W109,W112:W114») _
, Range(«W116:W122,W124,W126:W127,W129:W131,W133:W135,W137:W146,W154:W155,W158:W159») _
, Range(«W162:W163,W165:W167,W169:W170,W172,W174»)).Select
Range(«W9»).Activate
ActiveSheet.Paste
Selection.Copy
Union(Range(«R9:R14,R16:R23,R27:R28,R30:R31,R33:R36,R39:R40,R44:R50,R52:R54,R56,R58:R60») _
, Range(«R63:R64,R67:R68,R71:R75,R79:R82,R84:R85,R87:R89,R92:R93,R95:R101,R103:R109,R112:R114») _
, Range(«R116:R122,R124,R126:R127,R129:R131,R133:R135,R137:R146,R154:R155,R158:R159») _
, Range(«R162:R163,R165:R167,R169:R170,R172,R174»)).Select
Range(«R9»).Activate
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
‘Copy and paste as Text
Dim rCell As Range
For Each rCell In Selection
rCell.Value = rCell.Text
Next rCell
‘Text to Number
On Error Resume Next
Application.ScreenUpdating = False
Dim Cell As Range
Selection.NumberFormat = «_(* #,##0_);_(* (#,##0);_(* «»-«»_);_(@_)»
For Each Cell In Selection
Cell.Value = Cell.Value * 1
Next Cell
Application.ScreenUpdating = True
For Each Cell In Selection
Cell.Value = Replace(Cell.Value, » — «, «», 1, 1, vbTextCompare)
Next Cell

End Sub

Цитироватьнадо скопировать из одно столбца в соседний разрозненые диапазоны

Выложите лист экселя со столбцами как есть и как надо.
А разбирать Ваш код без примера, вряд ли кто будет.

Может и я на что сгожусь … Если сгодился, можете меня по+благодарить+.

Я предложил бы Вам:
1. Оформлять коды тегами Code
2. Объявлять переменные в теле кода один раз(Dim rCell As Range). Если объявить два раза одну переменную — код выполняться не будет. Но сразу укажет Вам на дубль.
3. Выкладывать пример данных в файле, т.к. без примера часто не совсем понятно что именно у Вас не работает и почему. А все экстрасенсы форума ушли в реалити-шоу на телеканал в ТНТ.
4. Попробовать приведенный ниже код:

Sub Percetage_Filling() Dim rRng As Range, rArea As Range Application.ScreenUpdating = False Worksheets("Konsol 2011").Select Union(Range("W9:W14,W16:W23,W27:W28,W30:W31,W33:W36,W39:W40,W44:W50,W52:W54,W56,W58:W60") _ , Range("W63:W64,W67:W68,W71:W75,W79:W82,W84:W85,W87:W89,W92:W93,W95:W101,W103:W109,W112:W114") _ , Range("W116:W122,W124,W126:W127,W129:W131,W133:W135,W137:W146,W154:W155,W158:W159") _ , Range("W162:W163,W165:W167,W169:W170,W172,W174")).FormulaR1C1 = "=RC[-5]*R6C24"


        Set rRng = Union(Range("R9:R14,R16:R23,R27:R28,R30:R31,R33:R36,R39:R40,R44:R50,R52:R54,R56,R58:R60") _
             , Range("R63:R64,R67:R68,R71:R75,R79:R82,R84:R85,R87:R89,R92:R93,R95:R101,R103:R109,R112:R114") _
             , Range("R116:R122,R124,R126:R127,R129:R131,R133:R135,R137:R146,R154:R155,R158:R159") _
             , Range("R162:R163,R165:R167,R169:R170,R172,R174"))
    rRng.FormulaR1C1 = "=RC[-5]*R6C24"
    For Each rArea In rRng.Areas
        rArea.Value = rArea.Value
        rArea.NumberFormat = "_(* #,##0_);_(* (#,##0);_(* ""-""_);_(@_)"
    Next rCell
    rRng.Replace "                                     -   ", "", xlPart
    Application.ScreenUpdating = True
End Sub

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…
www.excel-vba.ru
Просто СПАСИБО [+оказать+]
Считаешь СПАСИБО мало? Яндекс.Деньги: 41001332272872; WM: R298726502453

Спасибо за ответ и сорри за то, что не прикрепил файл — слишком много там надо было «чистить». Предложенный макрос не прошел Debug — может быть я не добавил какую-то информацию?
Изначально моя задача была провести расчет в спомогательном столбце (умножить на одну ячейку) все данные из начального столбца и потом туда же (где располагались первичные данные) вставить полученный результат умножения. Проблема была в том, что при копировании не связанных выделенных диапазонов, эксель отказывался их вставлять.
Сейчас я прикрепил файл со своим «старым» макросом и с предложенным выше (который у меня не выполняется).
Если подскажите как решить проблему — буду очень благодарен.

Заполните в Вашем файле пару строк так, как они в реальном файле. Интересует, прежде всего, как данные в ячейке V9 (мы ведь там хотим изменить — я правильно понял?) оказываются — там формула или просто число?

Скажи мне, кудесник, любимец ба’гов…

Яндекс-деньги: 41001632713405
Webmoney: R289877159277; Z102172301748; E177867141995

Итак. Один косяк мой — один Ваш. В Вашем файле вместо Range почему-то Vange какой-то фигурировал. Откройте файл и посмотрите. Мой косяк: забыл заменить в Next rCell на Rarea. Макрос ниже запускается и работает. Вопрос в том, тот ли результат он дает.

Sub Filling_Percentage_Recommended() Dim rRng As Range, rArea As Range Application.ScreenUpdating = False Worksheets("Konsol 2011").Select Union(Range("AA9:AA14,AA16:AA23,AA27:AA28,AA30:AA31,AA33:AA36,AA39:AA40,AA44:AA50,AA52:AA54,AA56,AA58:AA60") _ , Range("AA63:AA64,AA67:AA68,AA71:AA75,AA79:AA82,AA84:AA85,AA87:AA89,AA92:AA93,AA95:AA101,AA103:AA109,AA112:AA114") _ , Range("AA116:AA122,AA124,AA126:AA127,AA129:AA131,AA133:AA135,AA137:AA146,AA154:AA155,AA158:AA159") _ , Range("AA162:AA163,AA165:AA167,AA169:AA170,AA172,AA174")).FormulaR1C1 = "=RC[-5]*R6C24"


        Set rRng = Union(Range("V9:V14,V16:V23,V27:V28,V30:V31,V33:V36,V39:V40,V44:V50,V52:V54,V56,V58:V60") _
             , Range("V63:V64,V67:V68,V71:V75,V79:V82,V84:V85,V87:V89,V92:V93,V95:V101,V103:V109,V112:V114") _
             , Range("V116:V122,V124,V126:V127,V129:V131,V133:V135,V137:V146,V154:V155,V158:V159") _
             , Range("V162:V163,V165:V167,V169:V170,V172,V174"))
    rRng.FormulaR1C1 = "=RC[-5]*R6C24"
    For Each rArea In rRng.Areas
        rArea.Value = rArea.Value
        rArea.NumberFormat = "_(* #,##0_);_(* (#,##0);_(* ""-""_);_(@_)"
    Next rArea
    rRng.Replace "                                     -   ", "", xlPart
    Application.ScreenUpdating = True
End Sub

Да, макрос работает — только не вставляются данные из столбца АА в столбец V. После выполнения команды For Each rArea In rRng.Areas — в столбце V появляются ноли (ну и соответственно появляются ноли в столбце АА,т.к. там остается формула — не пойму — как можно в Столбец V вставить только значения, которые получились в столбце АА. Оставлять информацию в столбце АА не обязательно.

Вы не ответили на мой вопрос

Цитата: _Boroda_ от 25.01.2012, 14:43
Заполните в Вашем файле пару строк так, как они в реальном файле. Интересует, прежде всего, как данные в ячейке V9 (мы ведь там хотим изменить — я правильно понял?) оказываются — там формула или просто число?

Проверяйте, так нужно?

Sub Percetage_Filling() Application.ScreenUpdating = 0 With Worksheets("Konsol 2011") .Range("AA6").Copy .Range("V7:V176").SpecialCells(xlCellTypeConstants, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply Application.CutCopyMode = False .Range("V9").Select End With Application.ScreenUpdating

Скажи мне, кудесник, любимец ба’гов…

Яндекс-деньги: 41001632713405
Webmoney: R289877159277; Z102172301748; E177867141995

Борода, данные в ячейку я «загоняю» макросом из внешних файлов — просто не стал этот макрос оставлять, т.к. это я уже научился делать самостоятельно. Результатом в столбце V должно быть именно число — как вы и сделали. Премного благодарен.
Также меня заинтересовало использование Range.SpecialCells Method. К сожалению, в стандартной справке не представлены примеры ее практического применения и тем более того наворота, что Вы там добавили. Если у Вас есть какие-либо ссылки на «популярные» тексты о применении (вариантах использования) этой функции, то был бы признателен (можно на англ.).
Еще раз спасибо.

ЦитироватьТакже меня заинтересовало использование Range.SpecialCells Method. К сожалению, в стандартной справке не представлены примеры ее практического применения и тем более того наворота, что Вы там добавили. Если у Вас есть какие-либо ссылки на «популярные» тексты о применении (вариантах использования) этой функции, то был бы признателен (можно на англ.).

У меня вообще никаких материалов нет. А если на пальцах — то на листе Excel жмем F5 (или Ctrl+G) — выделить — а дальше ставим нужные галки.

Скажи мне, кудесник, любимец ба’гов…

Яндекс-деньги: 41001632713405
Webmoney: R289877159277; Z102172301748; E177867141995

Источник

Перемещение и копирование ячеек и их содержимого

Смотрите такжеSub qwert() Dim cell As Николая я уже надо. not empty, warn моем примере нужноJu_Lets не оченьтребуется из одной сожалению с макросамиНа вкладке со стрелками переместитьсяГлавнаяЕсли часть ячеек, строкДля перемещения ячейки илиБуфер обменаПримечание:Dim wb As Range, i As поблагодарил.

KuklP user If NonEmptyCellCount выделить диапазон А358:Q444: Добрый день!Вопрос: как передать книги выбрать и не знаю какГлавная в другую ячейку,в группе или столбцов на диапазона ячеек поместитевыполните одно из Мы стараемся как можно

Workbook Long ‘запрашиваем уПросто напоследок выложил: Там переменная , < > 0

Размер отфильтрованного диапазонаЕсть таблица с в переменную номер скопировать в другую обращаться.в группе сначала нажмите клавишуБуфер обмена

 листе не отображается,

указатель на границу указанных ниже действий. оперативнее обеспечивать вас
Set wb = пользователя по очереди
каким дурацким путем c As Range Then _ If постоянно меняется. данными, есть столбцы

 строки активной ячейки?{/post}{/quote} несвязанный диапазон ячеекМВТ

Буфер обмена ВВОД, чтобы завершить
щелкните стрелку под можно скопировать все выделенного фрагмента. КогдаЧтобы переместить ячейки, нажмите актуальными справочными материалами Workbooks.Add(1)
диапазоны копирования ипошел я сам. лишняя, можно удалить.
MsgBox(«Overwrite existing data?»,Спасибо. с месяцами 13И ещё вопрос: (построчно, но за: А как Вы

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

на вашем языке.Dim n As
вставки Set copyrngЧитайте предыдущие сообщения.Мур
vbQuestion + vbYesNo,Dima S года и следующие

Перемещение и копирование ячеек

как копировать не исключением некоторых столбцов)

этот диапазон выделяете?
указанных ниже действий. активную ячейку.Вставить видимые. Например, можно указателя перемещенияВырезать
- Эта страница переведена Name = Application.InputBox(«Диапазон копирования», Вам тоже спасибо!
  
  : Приветствую всех участников! _ «Copy Multiple: файл с примером.
- столбцы с месяцами в буфер обмена,алгоритм вижу такой: justirus
  
  Чтобы переместить ячейки, нажмитеПри вставке скопированных данныхи выберите вариант
скопировать только отображаемые, перетащите ячейку

. автоматически, поэтому ееFor Each n «Запрос», Type:=8) SetKuklPВопрос к макросоведам Selection») < >на пальцах никто 14 года. Делаем а в массив?
1. просим выделить: Зажимаете Ctrl и кнопку можно выполнить любоеСпециальная вставка итоговые данные на или диапазон ячеек

Сочетание клавиш текст может содержать In ThisWorkbook.Names

 pasterng = Application.InputBox(«Диапазон: Здравствуйте, Мур. И

или просто знающим vbYes Then Exit не сделает (разве отбор по нужнымIgor67 ячейку в строке
выделяете нужные ячейки,Вырезать из следующих действий:. листе со структурой.
в новое расположение. Можно также нажать клавиши неточности и грамматическиеwb.Names.Add Name:=n.Name, RefersTo:=Replace(n.RefersTo, вставки», «Запрос», Type:=8) Вам спасибо за ребятам. Sub ‘ Copy очень уж помогливые) критериям и соответственно: Ваша задача как
(с которой начнём потом копируете и.вставить только параметры форматированияУстановите флажокВыделите ячейки, которые выЧтобы скопировать ячейки или CTRL+X. ошибки. Для нас ThisWorkbook.Sheets(1).Name, wb.Sheets(1).Name) ‘проверяем, чтобы они аккуратность. Я ужеНеобходимо скопировать диапазон and paste eachМакс ненужные нам строки то не понятно вставку) в книге вставляете куда нужно.Сочетание клавиш ячейки, такие какпропускать пустые ячейки хотите скопировать. диапазон ячеек, поместитеЧтобы скопировать ячейки, нажмите

Перемещение и копирование ячеек с помощью мыши

важно, чтобы этаNext были одинакового размера извинился за свою с одного листа

area For i: извините, забыл прикрепить. скрываются. Получившийся результат

выглядит, поэтому даже
куда будем копироватьОтветил как понял,
- Можно также нажать клавиши цвет текста или.Выделение ячеек и диапазонов указатель на границу кнопку статья была вамEnd Sub If pasterng.SpecialCells(xlCellTypeVisible).Cells.Count <>
- невнимательнось от Дата: на другой, при = 1 To Вот. из 13 года не буду ввязываться… (например ячейка G5 без примера не CTRL+X. цвет заливки (но

Дважды щелкните ячейку сНа вкладке выделенного фрагмента, удерживаяКопировать полезна. Просим вас

To GIG_ant copyrng.Cells.Count Then MsgBox Понедельник, Сегодня, 04:34 этом исходный лист NumAreas RowOffset =Все_просто нам нужно скопироватьМакросов копирования данных в книге1) понятно, что именноЧтобы скопировать ячейки, нажмите не содержимое ячеек); данными, которые нужно

Главная нажатой клавишу CTRL.. уделить пару секундЕсли не ошибаюсь, «Диапазоны копирования и | Сообщение №должен быть скрыт.

Вставка скопированных и перемещенных ячеек между существующими ячейками

SelAreas(i).Row — TopRow: Не проверял код, в 14 год, из книги в

2. запрашиваем первую
вы имеете ввиду. кнопкупреобразовать формулы в ячейках переместить или скопировать.в группе Когда указатель примет
- Сочетание клавиш и сообщить, помогла тогда еще и вставки разного размера!»,vbCritical
  
   8.Подскажите где ошибка, ColOffset = SelAreas(i).Column
- но работать должен. не снимая фильтра. книгу, листа на и последнюю строки
  
  МотяКопировать в вычисленные значения
ПримечаниеРедактирование форму указателя копирования Можно также нажать сочетание ли она вам, названия листов должны Exit Sub EndУдачи!

 пример прилагается. — LeftCol SelAreas(i).CopyOption Explicit Sub при стандартном копировании лист на форуме в книге откуда: !. без переопределения существующего По умолчанию можно редактировать
нажмите кнопку, перетащите ячейку клавиш CTRL+C. с помощью кнопок совпадать

 If ‘переносим данныеВесьма распространенная ситуация, вопросЗаранее спасибо. PasteRange.Offset(RowOffset, ColOffset) Next CopyMultipleSelection() Dim SelAreas() данные вставляются и

Копирование только видимых ячеек

полно. будем копировать (напримерПокажите в файле:Сочетание клавиш форматирования; и выделять данныеНайти и выделить или диапазон ячеекВыделите левую верхнюю ячейку

внизу страницы. Дляroka

из одного диапазона
про которую мнеnilem i End Sub As Range Dim в спрятанные строки.Главная задача определить указывая ячейки D10 что — «есть» Можно также нажать сочетание
вставить только формулы (но непосредственно внутри ячейки,и выберите команду в новое расположение. области вставки. удобства также приводим: Это понятно, спасибо.
в другой только задают почти на: Избавляйтесь от SelectionВсе_просто PasteRange As Range Специальные вставки не начальную и конечную

 и K16 в и что «надо». клавиш CTRL+C.
не вычисленные значения). дважды щелкнув ее,

Выделить группу ячеекПримечание:Совет: ссылку на оригиналсудя по коду, в видимые ячейки каждом тренинге. Есть200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub Макрос1(): У Уокенбаха в Dim UpperLeft As
помогают. Нужно чтобы строку диапазона (столбцы книге2)The_PristВыделите левую верхнюю ячейкуВыделите ячейку или диапазон но можно редактировать

. При перемещении ячеек в Чтобы переместить или скопировать

(на английском языке). похоже то что i = 1 таблица, в которойSheets(«Лист1»).Range(«B1:D3»).Copy Sheets(«Лист2»).Range(«H9») книге такое было, Range Dim NumAreas

данные вошли в фиксированы как понял),3. нажимаем кнопку: Может имеется ввиду области вставки. ячеек со значениями, и выделять данныеВ группе приложении Excel замещаются

выделенный фрагмент наЧтобы переместить или скопировать надо. For Each cell Фильтром (End Sub но лень искать.

Предотвращение замещения данных скопированными пустыми ячейками

As Integer, i соответствующие строки.

а потом копируем
и копируем строки, это:Совет: форматами или формулами, и в строкаВыбор существующие данные в

 другой лист или содержимое ячейки сGIG_ant
In pasterng IfДанные — Фильтр
Мур Нашел на англоязычном As Integer DimНапример, есть строки: эти блоки в но не полностьюgrablik Чтобы переместить или скопировать которые нужно скопировать. формул.
щелкните элемент области вставки. в другую книгу,

Перемещение и копирование только содержимого ячейки

помощью: Категорически с вами cell.EntireRow.Hidden = False

) отобраны несколько строк.: nilem, большое спасибо! сайте. TopRow As Long,№ янв’13 фев’13 другую книгу… а по определённому: нужно перенести значения выделенный фрагмент на

Выделение ячеек и диапазоновВ ячейке выделите символы,Только видимые ячейки

При копировании ячеек ссылки

щелкните ярлычок другого	Вырезать
согласен )	Then cell.Value = Задача — вставитьРаботает замечательно. ИМакс LeftCol As Integer
янв’14 фев’14	Определить начало и формату, который прописываем размеров из первого другой лист илиНа вкладке которые нужно скопировать
и нажмите кнопку	на ячейки изменяются листа или выберите,Казанский copyrng.Cells(i).Value i = какие-либо нужные нам главное просто.: Я так и

Dim RowOffset As1 1,596 2,450 конец диапазона можно в макросе (например столбца во второй в другую книгу,
- Главная или переместить.ОК автоматически. Но при
  
   другую книгу иКопировать: Во прикол!
- i + 1 значения именно вА тут мудрю, сначала понял, сам там
  
   Long, ColOffset As 0000 0000 через InputBox
копируем только столбцыСергей щелкните ярлычок другогов группеВыделение символов в ячейке. перемещении ячеек ссылки
выделите левую верхнююиЕсли скопировать таким End If Next видимые отфильтрованные строки,200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sheets(«Ëèñò1»).Visible = True смотрел, код не

 Integer Dim NonEmptyCellCount2 0000 3,784примерно так
1-5, 8-15, 20)

: в столбец С листа или выберитеБуфер обменаЧтобы выделить содержимое ячейкиНа вкладке не изменяются, и ячейку области вставки.Вставить образом имя, которое cell End Sub пропуская при этомперед Selection вписываю, подходит. Нужно чтобы As Integer ‘ 0000 0000

Копирование значений ячеек, форматов ячеек и только формул

On Error ResumeВ итоге получаем =ЕСЛИ(ЕЧИСЛО(A2);A2;B2) протягиваете копируете

другую книгу инажмите кнопкуВыполните следующие действияГлавная вместо содержимого этих
На вкладке. Или скопируйте определенного ссылается на несуществующийКак легко сообразить, макрос
скрытые. Обычное копирование-вставка затем после выполнения
макрос сам определял Exit if a3 0000 1,009 Next

что в книге1
вставляете как значения выделите левую верхнююКопироватьВ ячейкев группе ячеек и всех Главная

 содержимого или атрибутов лист, имя создается, запрашивает у пользователя
при этом не кода наооборот эту область для range is not 0000 0000Set rngStartRange =
заполнены строки 5grablik ячейку области вставки..Дважды щелкните ячейку, аБуфер обмена ячеек, которые на в группе ячеек. Например скопируйте
- но его значение, по очереди два сработает, т.к. данные вставятсяSheets(«Ëèñò1»).Select
- выделения. selected If TypeName(Selection)4 8,957 1,123 Application.InputBox _
- — 11 столбцы: Сергей, спасибо, ноНа вкладкеСочетание клавиш
  
   затем протащите указательнажмите кнопку них ссылаются, можетБуфер обмена результатом формулы без ессно, равно ошибке диапазона — копирования не только вActiveWindow.SelectedSheets.Visible = FalseПробовал так < > «Range» 0000 0000(Prompt:=»Выделите начальную ячейку», 1-5, 8-15, 20 это не тоГлавная Можно также нажать сочетание мыши, чтобы охватитьКопировать отображаться ошибка адресации.нажмите кнопку копирования формулы или #ЗНАЧ! и вставки. Затем видимые, но иЕще раз спасибо!Sub tyu() Cells.Select

Копирование параметров ширины ячеек

Then MsgBox «Select5 1,321 0000 _Вот и всё. что нужно, потомув группе клавиш CTRL+C. содержимое ячейки, которое

. В этом случае

Вставить
скопировать только формулу.Теперь, если создать проверяет, чтобы их в скрытые ячейки.Мур Selection.CurrentRegion.Select Selection.Copy Range(Selection,
- the range to 0000 0000Title:=»», Type:=8) Спасибо за помощь.
  
   что нужно будетБуфер обменаВыделите левую верхнюю ячейку
- требуется выделить.Сочетание клавиш потребуется изменить ссылки .
  
  Ячейки в Excel перемещаются лист с соотв. размеры совпадали, т.к.
Давайте посмотрим, как: О как наредактировал!

 Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlToRight)).Select be copied. AОтфильтровали, получилосьIf rngStartRange Is Готового решения в удалить эти значениянажмите стрелку под области вставки илиВ строке формул Можно также нажать сочетание
вручную.Сочетание клавиш и копируются вместе именем, то имя разница в размерностях можно обойти этуМур Range(Selection, Selection.End(xlToRight)).Select Range(Selection, multiple selection is№ янв’13 фев’13

support.office.com

Как скопировать только видимые ячейки в Excel

Nothing Then MsgBox Интернете не нашёл. из первого столбца, кнопкой ту ячейку, куда

Щелкните ячейку, а затем клавиш CTRL+C.

Если выделенная область копирования Можно также нажать сочетание с формулами, итоговыми заработает ТОЛЬКО в

вызовет впоследствии ошибку проблему.: А если так:

Selection.End(xlToRight)).Select End Sub allowed.» Exit Sub янв’14 фев’14
«Выберите ячейку, аРоман так что ониВставить нужно вставить значение, протащите указатель мыши,Выделите левую верхнюю ячейку содержит скрытые ячейки,
клавиш CTRL+V. значениями, форматом и VBA: можно использовать при вставке. ЗатемЕсли вам нужно вставитьnilem, большое спасибо!
но макрос выделяет End If ‘1 1,596 2,450 то ни чего
: файлы прикрепляю потеряюца и вои выберите пункт формат ячейки или чтобы охватить содержимое

области вставки.

строки или столбцы,Примечания:
примечаниями.
диапазон range(«имя») или

макрос перебирает все

office-guru.ru

Копирование несвязанных диапазонов

 одни и теРаботает замечательно. И только диапазон с Store the areas 0000 0000 делать не буду»,Роман втором. Тут нужноСохранить ширину столбцов оригинала формулу. ячейки, которое требуетсяСовет: приложение Excel копирует В Excel ячейки можно

 names(«имя»).RefersTorange или [имя], ячейки в диапазоне же значения во

 главное просто. А по J, as separate Range3 0000 1,009 vbInformation, «НУ?!»
: К сожалению все скопировать без свзяи.На вкладке

 выделить в строке Чтобы переместить или скопировать
их. Может понадобитьсяВ Excel вырезанные или перемещать путем перетаскивания

 но его нельзя вставки и переносит все отфильтрованные строки

А тут мудрю, оставшийся не захватывает, objects NumAreas = 0000 0000

If Not rngStartRange столбцы должны бытьЮрий МПо умолчанию Excel копирует

Главная формул. выделенный фрагмент на временно отобразить данные, скопированные ячейки выделяются или с помощью выделить: [имя].select дает туда данные из списка, то все сначала даже при наличии

 Selection.Areas.Count ReDim SelAreas(14 8,957 1,123 Is Nothing Then открыты и требуется: Но Вы же как видимые, такв группеС помощью клавиатуры другой лист или которые не нужно

 анимированной пунктирной рамкой. команд ошибку. диапазона копирования, если просто. Предположим, что200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sheets(«Ëèñò2»).Select

 Range(Selection, Selection.End(xlToRight)).Select To NumAreas) For 0000 0000iNachRow = rngStartRange.row

 скопировать несвязанные диапазоны просили КОПИРОВАНИЕ, а и скрытые ячейки.Буфер обмена

Нажмите клавишу F2, чтобы в другую книгу, копировать. Чтобы снять этоВырезатьИ на листе строка видима (т.е. у нас естьSheets(«Ëèñò1»).Visible = TrueВсе_просто i = 1теперь из 13 ‘начальная строка блока

 формат которых заранее получается, что Вам Однако можно скопировать

щелкните стрелку под изменить ячейку. С щелкните ярлычок другогоВыделите ячейку или диапазон выделение, нажмите клавишуи использование этого имени не отфильтрована). вот такой списокSheets(«Ëèñò1»).Select: Какой-то странный код To NumAreas Set года копируем данные данных известне (это столбцы

planetaexcel.ru

выбор несвязанного диапазона ячеек из одной книги и их копирование в другую

 нужен перенос. Но только видимые ячейки.
кнопкой
помощью клавиш со листа или выберите ячеек с данными, ESC.Вставить приводит к ошибке.

roka
сделок:Range(«B1:D3»).Select в 6 посте. SelAreas(i) = Selection.Areas(i) и вставляем их—- 1-5, 8-15, 20
у тут естьВ этом примере строкаВставить стрелками поместите курсор другую книгу и которые нужно переместитьПри перемещении ячеек путем
.При выборе имени: Подскажите, плиз, есть… и в нем нужно поставитьSelection.Copy Может я что-то Next ‘ Determine в ячейки вместо
Потом конечную строку, в примере) выход: выделяем скопированное, 2 скрыта:и выполните одно
в нужное место,
выделите левую верхнюю или скопировать. вырезания и вставки

Перемещение ячеек путем перетаскивания в Диспетчере имен

 ли возможность скопировать фиксированную скидку вSheets(«Ëèñò2»).Select не понимаю? the upper left тире в 14 проверку больше меньше,Роман правый клик -

Если просто скопировать, а из следующих действий: а затем выделите ячейку области вставки.
Выделение ячеек и диапазонов

 в приложении ExcelВыделите ячейки или диапазон диапазон даже выделяется
имена диапазонов из 1000 рублей каждомуRange(«H9»).SelectЕсли не хотите
cell in the год а потом просто

: до сих пор Специальная вставка - затем вставить этот
чтобы вставить только значения, содержимое, удерживая нажатойНа вкладкеНа вкладке
замещаются существующие данные ячеек, которые требуется на листе, но

одной книги в «Ашану».ActiveSheet.Paste выбирать вручную нужные
multiple selection TopRowдолжно быть так: копируем заданные диапазоны…
ничего сделать не значения. диапазон, результат получается

 выберите вариант клавишу SHIFT.Главная
Главная в области вставки. переместить или скопировать. ошибка не пропадает.
другую.Фильтруем наш список Автофильтром,Sheets(«Ëèñò1»).Select

области, пропишите соответствующую = ActiveSheet.Rows.Count LeftCol№ янв’13 фев’13 И не надо
могуgrablik следующим:
значенияНа вкладкев группе

в группеЧтобы воспользоваться специальными вариантамиНаведите указатель мыши наТеперь можете загадывать

Понимаю что копать оставляя на экранеActiveWindow.SelectedSheets.Visible = False область вместо объекта = ActiveSheet.Columns.Count For
янв’14 фев’14 в буфер илипрошу помощи: может кто нибудьЧтобы скопировать только видимые
;ГлавнаяБуфер обменаБуфер обмена вставки ячеек, можно границу выделенной области. загадку знатокам Excel
надо где-то здесь только «Ашаны». ВводимЕще раз большое спасибо!
инпутбокс. Должен же
i = 11 1,596 2,450
в массив загонять…Guest
помочь с настройкой ячейки, выполните несколько
чтобы вставить только форматы
в группенажмите кнопкувыполните одно из щелкнуть стрелку подКогда указатель примет вид — как добиться

ThisWorkbook.ActiveSheet.Names нужное значение в
Мур быть какой-то критерий. To NumAreas If
1,596 2,450
Роман: А если не сортировки данных в простых действий: ячеек, выберите вариантБуфер обменаВставить

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

Если это возможно SelAreas(i).Row < TopRow3 0000 1,009: Спасибо. Потихоньку что-то «заморачиваться» несвязанными диапазонами? ячейке? готов обсудитьВыделите диапазонФорматированиевыполните одно из.Чтобы переместить выделенный фрагмент,
Вставить, перетащите ячейку рисунке: :)) Прикрепленные
: я так посмотрел, протягиваем (копируем за ответа (простите меня попробуйте через цикл
Then TopRow = 0000 1,009 начинает получаться.Сколько их? Постоянные условия
A1:A4; указанных ниже действий.Сочетание клавиш
нажмите кнопку

и выбрать нужный или диапазон ячеек файлы post_241538.png (10.16
наверное все таки

правый нижний угол
воюю с редактором):

 провести все операции SelAreas(i).Row If SelAreas(i).Column4 8,957 1,123Только вот не

planetaexcel.ru

Копирование форматированных данных в несвязные диапазоны (Формулы)

 — нет? МестоМВТ
.чтобы вставить только формулы,Чтобы переместить выделенный фрагмент, Можно также нажать клавишиВырезать вариант, например в другое место. КБ) надо смотреть ThisWorkbook.Names ячейки) вниз:nilem, большое спасибо! без методов типа < LeftCol Then 8,957 1,123 понял про то куда: постоянное -: grablik, сортировка данныхНа вкладке выберите вариант нажмите кнопку CTRL+V.
.
Специальная вставкаПеремещение ячеек с помощью
rokanerv
Умный Excel в данномРаботает замечательно. И
.copy, .cut, пр. LeftCol = SelAreas(i).Column
но получается что как копировать не
нет? в ячейке? Наверное,
Home
формулыВырезать
Если нажать стрелку подСочетание клавиш
или команд «Вырезать» и
: что я делаю: На мой взгляд
случае понимает, что главное просто.KuklP Next Set UpperLeft третья строка прячется загоняя в буфер?
Дать имена… Поставить
в столбце?(Главная) нажмите кнопку
..
командой Можно также нажать клавиши
Рисунок «Вставить»
не так? вопрос сформулирован странно: вы хотите ввестиА я тут: Жуть какая-то с
= Cells(TopRow, LeftCol)
во вторую, аGuest в очередь на

Юрий МFind & SelectПримечание:Сочетание клавиш

excelworld.ru

Копирование несмежных диапазонов (VBA)

Вставить CTRL+X..
Выделите ячейку или диапазонWorkbooks(nname).Add Name:=n.Name, RefersToR1C1:=n.RefersToR1C1 зачем копировать имена значения именно в мудрю: этим форумом. Намучаешься,
‘ Get the чевертая оказывается в: Вы найдите файл копирование и… вперед!(?): grablik, а какое(Найти и выделить) Если копируемые формулы содержат Можно также нажать клавиши, можно выбратьЧтобы скопировать выделенный фрагмент,По умолчанию в приложении ячеек.на этом месте именованных диапазонов? Другое отфильтрованные ячейки и200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub Макрос1() пока сообщение напишешь. paste address On третьей. по клчевым словам
Роман отношение сортировка имеет
и кликните по

 относительные ссылки на CTRL+X.
параметры вставки, которые нажмите кнопку Excel на листе

На вкладке ругается, что объект дело, если, к

 делает то, чтоSheets(«Лист2»).SelectPublic Sub www()
Error Resume NextКак это сделать? = Анюточка Pavel55: А если не к заявленной теме?Go To Special ячейки, Excel настраиваетЧтобы скопировать выделенный фрагмент, следует применить кКопировать отображается кнопкаГлавная не поддерживает данное примеру, имя привязано нужно:Sheets(«Лист1»).Visible = True Dim r As Set PasteRange =Тема закрыта. Причина: =. Там как «заморачиваться» несвязанными диапазонами?Revenant(Выделить группу ячеек). ссылки (и относительные нажмите кнопку выделенному диапазону..Параметры вставкинажмите кнопку свойство или метод к группе ячеекТакой способ подойдет иSheets(«Лист1»).Select Range, lr&, lc&, Application.InputBox _ (Prompt:=»Specify Нарушение правил пп раз есть копированиеСколько их? Постоянные: У меня похожийВыберите опцию части смешанных ссылок)КопироватьПри копировании значения последовательноСочетание клавиш, которая позволяет получитьВырезатьЮрий М и требуется перенести для ввода значенийRange(«B1:D3»).Select c As Range the upper left 3 и 5g из многих книг — нет? Место вопрос. Выделяю сVisible cells only в скопированных формулах.. вставляются в строки Можно также нажать сочетание доступ к специальнымили нажмите клавиши: Я тоже не их… и для вводаSelection.Copy lc = Rows(1).Find(«ОбщСтатусДвиженияМтр», cell for theSkyPro в 1. Где куда: постоянное - Ctrl желтые ячейки(Только видимые ячейки) Допустим, ячейка B8Сочетание клавиш и столбцы. Если клавиш CTRL+C. вариантам вставки ячеек, CTRL+X. понимаю: зачем копироватьGIG_ant формул. Например, еслиSheets(«Лист2″).Select lookat:=xlPart).Column ‘Cells(1, Columns.Count).End(xlToLeft).Column paste range:», _: Зачем такой размер много (книг) КОД нет? и пытаюсь их и нажмите содержит формулу =СУММ(B1:B7). Можно также нажать сочетание область вставки содержитЩелкните правой кнопкой мыши напримерВыделите ячейку, в которую ИМЕНА. Другое дело: Попробуйте так: скидка для «Ашанов»Range(«H9″).Select lr = Cells(Rows.Count, Title:=»Copy Mutliple Selection»,

 шрифта и где ОБРЕЖЕТЕ И ДАЛЬШЕДать имена… Поставить скопировать в другойOK Если скопировать эту

 клавиш CTRL+C. скрытые строки или левую верхнюю ячейкуСохранить исходное форматирование вы хотите переместить — копировать именованныйSub CopyNames() не фиксированная, а
ActiveSheet.Paste
1).End(xlUp).Row Set r _ Type:=8) On файл? все просто. в очередь на
столбец, чтобы они. формулу в ячейкуЩелкните в том месте столбцы, возможно, потребуется области вставки, а

. Если не нужно данные. диапазон…Dim n As составляет 10% от
Sheets(«Лист1»).Select = Range([a1], Cells(lr, Error GoTo 0МаксКопирование с активного копирование и… вперед!(?){/post}{/quote}
не задели ячейкиExcel выделит видимые ячейки. C8, новая формула ячейки, куда нужно отобразить их, чтобы

 затем выберите пункт отображать эту кнопкуНа вкладкеwebley
Name суммы сделки, тоActiveWindow.SelectedSheets.Visible = False lc)).SpecialCells(12) r.Copy Sheets(2).[a1] ‘ Exit if: Уважаемые знатоки VBA, листа как -Диапазонов много - без заливки. Приходится Теперь нажмите сочетание будет ссылаться на

 вставить символы, или увидеть все скопированныеВставить вырезанные ячейки при каждой вставкеГлавная: Может так?For Each n в первую отфильтрованную строку

End Sub End Sub canceled If TypeName(PasteRange) приветствую Вас. то так порядка 40, число перебивать руками, может,

Ctrl+C соответствующие ячейки этого дважды щелкните другую данные.или ячеек, ее можно
нажмите кнопкуWorkbooks(nname).NAMES.Add Name:=n.Name, RefersToR1C1:=n.RefersToR1C1 In ThisWorkbook.Names можно ввести не

И вроде работает,Маугли < > «Range»Помогите пожалуйтса, видел

planetaexcel.ru

Копирование диапазона (Отладка макроса)

Range(«A» & iStartRow строк разное, место
этот вопрос как, чтобы скопировать диапазон. столбца: =СУММ(C1:C7). Если
ячейку для перемещенияПри копировании и вставкеВставить скопированные ячейки отключить. Откройте вкладку
Вставить
rokaИмяКниги.Names.Add Name:=n.Name, RefersToR1C1:=n.RefersToR1C1
константу (1000), а

 но как-то чересчур: Может так.. Sub
Then Exit Sub на форуме много & ":" &

 тоже разное то можно упростить?
Выберите ячейку копируемые формулы содержат

или копирования вскрытых или отфильтрованных .Файлили нажмите клавиши: аааааааааа, спасибо, проглядел
Next n

формулу (=C2*10%) и также скопировать вниз.

 сложно все. tt() Dim Rng

 ‘ Make sure подобных тем, но
«F» & iLastRow).copy
Пробую написать макрос,Пример прикрепил.
A6 абсолютные ссылки на
нее данных. данных в другое Совет и выберите команду CTRL+V. roka End Sub Другое дело, если вам А Вам, еще раз As Range With

only the upper

 мой случай не destination:=Workbook(«…»).worksheet(«…»).Range(«A» & iRow) пока выходит, ноRevenant
и нажмите
ячейки, ссылки вНа вкладке
приложение или в Чтобы переместить или скопировать
Параметры Копируйте ячейки на листе : Всем спасибо, все где ИмяКниги - необходимо вставить в большое спасибо! Sheets(1) Set Rng left cell is подходит ни под Это если нет не очень : Никто не знает
Ctrl+V скопированных формулах неГлавная

другой экземпляр приложения выделенный фрагмент на

. В категории с помощью команд что мне надо
имя книги в отфильтрованные ячейки не KuklP

 = .UsedRange.SpecialCells(12) End used Set PasteRange один из них. формул, если естьВопрос: как передать чтоли?(, чтобы вставить диапазон.
меняются. Если выв группе Excel будут скопированы

 другой лист илиДополнительно
Копировать было, получилось. В которую копируем имена.
одинаковые значения или: Да уж, перебор.
With Rng.Copy Sheets(2).[A1] wacko = PasteRange.Range(«A1») ‘

Есть лист, на

 и надо перенести в переменную номер_Igor_61Результат: не получили ожидаемогоБуфер обмена только видимые ячейки. в другую книгу,в разделе
и

excelworld.ru

Вставка в отфильтрованные строки

результате полистного копированияGIG_ant формулы, а разные, Смотрим: End Sub Check paste range нем размещена таблица значения/форматы/ и т.д. строки активной ячейки?: Записал макрорекордером иУрок подготовлен для Вас результата, попробуйте изменитьнажмите кнопкуВыделите диапазон ячеек, содержащий щелкните ярлычок другогоВырезание, копирование и вставкаВставить одной книги в: При этом книга да еще и200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub Макрос1()KuklP

Способ 1. Вставка одинаковых значений или формул

for existing data с данными, в используем специальную вставку…Роман сделал имена для командой сайта office-guru.ru ссылки в исходныхВставить пустые ячейки.

листа или выберитеснимите флажок. другую формулы с

в которую копируем брать их из другогоSheets(«Лист1»).[B1:D3].CopySheets(«Лист2»).[H9]: Маугли, там справа NonEmptyCellCount = 0 таблице установлен фильтр.Работа с буфером: А если не

переменных, но какИсточник: http://www.excel-easy.com/examples/copy-visible-cells-only.html формулах на относительные.Выделение ячеек и диапазонов другую книгу иОтображать кнопку параметров вставки

Выделите ячейку или диапазон применением имен диапазонов должна быть открыта диапазона. Тогда придется использоватьEnd Sub от таблицы пара For i = Необходимо при помощи — это уже «заморачиваться» несвязанными диапазонами? это все теперьПеревел: Антон Андронов

Способ 2. Макрос вставки любых значений

или абсолютные, аСочетание клавишНа вкладке выделите левую верхнюю при вставке содержимого ячеек. работают корректно.roka несложный макрос. НажмитеKuklP заполненных ячеек. Автору 1 To NumAreas макроса выделить два отдельная процедура (код)Сколько их? Постоянные в цикл записатьАвтор: Антон Андронов затем снова скопировать

Можно также нажать сочетаниеГлавная ячейку области вставки..Нажмите кнопкуКазанский: по моему это сочетание клавиш: Ну вот, невнимателен. не нужно, чтоб RowOffset = SelAreas(i).Row несвязанных диапазона - в ВБА. — нет? Место не знаю Subgrablik ячейки. клавиш CTRL+V.в группеВ диалоговом окнеПо умолчанию режим перетаскиванияКопировать: Если все же одно и тоже.Alt+F11 Николай раньше ответил они попали под — TopRow ColOffset с А поИгорь67 куда: постоянное - Перенос() Dim iStart,: Подскажите как можно

При вставке скопированных данныхНажмите клавишу ВВОД.Буфер обменаВставка скопированных ячеек включен, поэтому можноили клавиши CTRL+C. захотите копировать не Ну допустим есть, в открывшемся окне то же от: раздачу = SelAreas(i).Column - Q и скопироватьслэн нет? iCoda, iSumma iStart скопировать несвязанные диапазоны.

planetaexcel.ru

копирование именованных диапазонов

 к ним применяютсяПримечание:нажмите кнопкувыберите направление, в перемещать и копироватьНажмите кнопку
только имена, но имена, привязанные к Visual Basic вставьте

 nilem Дата: Суббота,Макс LeftCol NonEmptyCellCount = их. Проблема заключается

: если копировать толькоДать имена… Поставить = Range(«E1») iCoda В одном столбце параметры ширины целевых При двойном щелчке ячейкиКопировать котором нужно сдвинуть ячейки с помощьюВставить

 и диапазоны, на группе ячеек, вот

новый пустой модуль
16.04.2011, 12:01 |: , спасибо огромнейшее,
NonEmptyCellCount + _ в том, что
значения:
в очередь на
= Range(«F1») iSumma

множество ячеек со ячеек. Чтобы изменить или нажатии клавиши

. окружающие ячейки. мыши.или клавиши CTRL+V.

 которые ссылаются эти их и надо через меню Сообщение № 2. я думал у Application.CountA(Range(PasteRange.Offset(RowOffset, ColOffset), _ в данном диапазоне[b1:b6] = [a1:a6].Value

 копирование и… вперед!(?){/post}{/quote} = Range(«H1») Range(iStart).Select значениями, их нужно ширину ячеек в F2 для редактирования

Сочетание клавиш
ПримечаниеВыделите ячейки или диапазон
Выделите ячейки, которые нужно имена, посмотрите тут:
перенести.Insert — Module
Мур, что Вас меня сейчас мозг
PasteRange.Offset(RowOffset + SelAreas(i).Rows.Count прямо посередине есть
если все:
Диапазонов много -

Selection.Copy Range(iCoda).Select ActiveSheet.Paste
скопировать в другой соответствии с параметрами активной ячейки клавиши Можно также нажать сочетание

 При вставке целых строк ячеек, которые требуется
переместить или скопировать.rokawebley

и скопируйте туда не устраивает в взорвется с этим

 — 1, _ пустые столбцы -
[a1:a6].copy [b1:b6] порядка 40, число Range(iStart).Select Selection.ClearContents End столбец. Если нужно исходных ячеек, выполните со стрелками будут клавиш CTRL+C.
или столбцов окружающие переместить или скопировать.Выделение ячеек и диапазонов: Спасибо, посмотрю.: Можно вот так этот код: ответе Николая? выделением. ColOffset + SelAreas(i).Columns.Count с К по
Роман строк разное, место Sub
использовать макросы, то указанные ниже действия. работать только внутриВыделите левую верхнюю ячейку строки и столбцы

Выделение ячеек и диапазоновНа вкладкеТак то, у попробовать (для простотыSub PasteToVisible() DimМурСпасибо большое еще

 — 1))) Next Р, их тоже: Всем спасибо, далее
тоже разное
Роман буду очень признателенВыделите ячейки, которые нужно данной ячейки. Чтобы

 области вставки. сдвигаются соответственно внизВыполните одно из указанныхГлавная меня все скопировано, в исходной книге

 copyrng As Range,: Здравствуйте! KuklP.
раз.

 i ‘ If нужно включать в

 буду самостоятельно работатьПробую написать макрос,: Добрый день! за разъяснение как переместить или скопировать. с помощью клавишНа вкладке и влево. ниже действий.

в группе не хватало имен. только один лист) pasterng As RangeМеня всё устраивает.Макрос работает как paste range is

 выделение. Т.е. в над темой.
пока выходит, нопроблема выглядит так: их применить. К

planetaexcel.ru

Выделение ячеек и диапазонов

Источник