Question

我正在尝试将格式从一个单元格复制到另外两个单元格中。

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

我不想使用选择或选择，因为它不被视为最佳做法。

我知道如何将活动表格分配给工作表对象，但我需要清楚地简化代码的其他部分。

Answer 1

无需选择，只需执行：

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

仅复制从单元格到其他单元格的格式

1 个答案: