excel - xlPasteValues 和 xlPasteFormats 同时存在

Question

我正在复制一个范围，然后将其值和格式粘贴到另一个范围:

ws5.Range("F3:N" & xCell).SpecialCells(xlCellTypeVisible).Copy
    
ws16.Cells(Rows.Count, "B").End(xlUp).Offset(4, 0).PasteSpecial xlPasteValues
ws16.Cells(Rows.Count, "B").End(xlUp).Offset(4, 0).PasteSpecial xlPasteFormats

是否可以在不使用 With 的情况下将这两个粘贴操作合而为一？

我想提高我的宏的速度，这种小幅减少可能对我有帮助。

是否有类似.PasteSpecial xlPasteValues 和xlPasteFormats 的东西？

我找到了 link但即使是这个答案也使用了 With，这对我来说毫无用处。

Answer 1

你可以这样使用它:

NewSheet.Range("A1").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
NewSheet.Range("A1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

将这两个命令放在一起。首先，您必须全部粘贴，然后再次粘贴，但只能粘贴值和数字格式。