Скопировать с другого листа без форматов

@Оксана33 · Регистрация: 03.12.2014

Author24 — интернет-сервис помощи студентам

Уважаемые обитатели форума! помогите пож. с ситуацией...
вот такой код... Range("H1").Copy Sheets("NEW_WORDS").Cells(Rows.Count, 1).End(xlUp).Offset(1)
копирует все без остатка, а мне нужно чтобы форматы (цвета, размеры и тп) не копировались, а только значение, и сохранял тот формат, который на листе NEW_WORDS.
буду очень признательна)
есть вариант копировать формат ячейки уже после, но может быть есть и попроще идеи)

@fever brain · 25.08.2017, 21:46

Такие идеи есть

@nodirstein · 26.08.2017, 10:58

А что если в две строки?

Visual Basic

1 2	Range("H1").Copy Sheets("NEW_WORDS").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpacial xlPasteValues

@pashulka · 26.08.2017, 11:26

Вариант без копирования :

Visual Basic

1	Worksheets("NEW_WORDS").Cells(Rows.Count, 1).End(xlUp)(2) = Range("H1")

@Оксана33 · 31.08.2017, 16:44 **[ТС]**

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

А что если в две строки?

ошибка)

Добавлено через 1 минуту
спасибо, pashulka, как то этот вариант и вылетел из головы)

@Оксана33 1 / 1 / 0 Регистрация: 03.12.2014 Сообщений: 329
		1
	Скопировать с другого листа без форматов 25.08.2017, 20:43. Показов 2101. Ответов 4 Метки нет (Все метки) Уважаемые обитатели форума! помогите пож. с ситуацией... вот такой код... Range("H1").Copy Sheets("NEW_WORDS").Cells(Rows.Count, 1).End(xlUp).Offset(1) копирует все без остатка, а мне нужно чтобы форматы (цвета, размеры и тп) не копировались, а только значение, и сохранял тот формат, который на листе NEW_WORDS. буду очень признательна) есть вариант копировать формат ячейки уже после, но может быть есть и попроще идеи) 0

@fever brain oh my god 1454 / 793 / 161 Регистрация: 05.01.2016 Сообщений: 2,307 Записей в блоге: 8
	25.08.2017, 21:46	2
	Такие идеи есть 0

@Оксана33 1 / 1 / 0 Регистрация: 03.12.2014 Сообщений: 329
	31.08.2017, 16:44 [ТС]	5
	Сообщение от nodirstein А что если в две строки? ошибка) Добавлено через 1 минуту спасибо, pashulka, как то этот вариант и вылетел из головы) 0

Скопировать с другого листа без форматов

Решение