Копирование массива данных и вставка их как значение

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование массива данных и вставка их как значение (Макросы/Sub)

Xaden

Дата: Понедельник, 17.08.2015, 16:44 | Сообщение № 1

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

Ранг: Участник

Сообщений: 73

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

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

Excel 2003

Доброго всем времени суток.
Вопрос очень простой, но что то я уже совсем стух и не могу сообразить как мне сделать правильно.
А задача моя очень простая, мне необходимо вставить скопированный массив как значения.
[vba]

Код

.ActiveSheet.Range("P2:P" & ActiveSheet.Cells(ActiveSheet.Rows.Count, 16).End(xlUp).Row).Copy shF.Range("E10")

[/vba]
Вот кусочек когда копирования и вставки, как правильно указать ему, что надо вставить именно как значения?
Пробовал вставить вот такой кусочек кода
[vba]

Код

.ActiveSheet.UsedRange.Value = .ActiveSheet.UsedRange.Value

[/vba]
Но проблема в том, что я не должен менять исходный фаил.
Заранее спасибо за ответы.

Ответить

_Boroda_

Дата: Понедельник, 17.08.2015, 16:59 | Сообщение № 2

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

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

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Примерно такие конструкции
Или
[vba]

Код

.ActiveSheet.Range("P2:P" & .ActiveSheet.Cells(.ActiveSheet.Rows.Count, 16).End(xlUp).Row).Copy
shF.Range("E10").PasteSpecial Paste:=xlPasteValues

[/vba]
или
[vba]

Код

shF.Range("E10").Value = .ActiveSheet.Range("P2:P" & .ActiveSheet.Cells(.ActiveSheet.Rows.Count, 16).End(xlUp).Row).Value

[/vba]

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

Ответить

Xaden

Дата: Понедельник, 17.08.2015, 17:27 | Сообщение № 3

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

Ранг: Участник

Сообщений: 73

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

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

Excel 2003

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

Ответить

Xaden

Дата: Вторник, 18.08.2015, 10:35 | Сообщение № 4

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

Ранг: Участник

Сообщений: 73

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

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

Excel 2003

Добрый день.
Возник еще вопрос
[vba]

Код

.ActiveSheet.Range("G9", Cells.Find("0,0%").Offset(-1)).EntireRow.Delete

[/vba]
Данным кодом, пытаюсь в столбце G найти все значения равные 0,0% выделить эти строки и удалить их, но натыкаюсь на отказ макроса.
Подскажите люди добрые в чем проблема?
Прошу прощения за то, что не создал новую тему, но не хотелось плодить новые темы.
Заранее благодарю.
[moder]Это уже другой вопрос. Создавайте новую тему![/moder]

Сообщение отредактировал Manyasha - Вторник, 18.08.2015, 10:41

Ответить

Страница 1 из 1
1