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

65
3

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

.ActiveSheet.Range("C" & SelRowNumber).Select
.Selection.Copy
.ActiveSheet.Range("A" & SelRowNumber & ":B" & SelRowNumber).Select
.Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Я не хочу использовать Select или Selection, потому что это не считается лучшей практикой.

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

спросил(а) 2021-01-19T15:09:48+03:00 9 месяцев назад
1
Решение
91

Не нужно выбирать, просто выполните:

With ActiveSheet
.Range("C" & SelRowNumber).Copy
.Range("A" & SelRowNumber & ":B" & SelRowNumber).PasteSpecial ...
end with

ответил(а) 2021-01-19T15:09:48+03:00 9 месяцев назад
Ваш ответ
Введите минимум 50 символов
Чтобы , пожалуйста,
Выберите тему жалобы:

Другая проблема