Вставка значений с позиционированием

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

Вставка значений с позиционированием (Макросы/Sub)

Tina90

Дата: Среда, 25.05.2016, 22:41 | Сообщение № 1

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

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

Сообщений: 45

Репутация: -16 ±

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

Excel 2013

добрый ночер!! люди, как правильно написать вот такое??
[vba]

Код

Sub CD6()
Range("J7:V329").Copy Sheets("V23Resque").Cells(Rows.Count, 1).End(xlUp).Offset(1)
'чтоб вставлялось на определенную позицию НО!! только как внизу одни значения!
Range("J7:V329").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'зы второй макрорекордерский и вставляет значения , а первый вставляет позицию НО не вставляет значения ячеек а их содержимое (а мне так не нужно! мне нужно вставлять в позицию значения!)

End Sub

[/vba]

Ответить

Manyasha

Дата: Среда, 25.05.2016, 22:52 | Сообщение № 2

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

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

Сообщений: 2198

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

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

Excel 2010, 2016

Tina90, так хотите?
[vba]

Код

Sub CD6()
Set rng = Range("J7:V329")
Sheets("V23Resque").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(rng.Rows.Count, rng.Columns.Count) = rng.Value
End Sub

[/vba]