excel xlPasteValues和xlPasteFormats的函数值

ggazkfy8 于 2022-11-26 发布在其他

关注(0)|答案(4)|浏览(237)

正在复制一个区域，然后将其值和格式粘贴到另一个区域中：

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 and xlPasteFormats之类的东西？
我找到了link，但即使是这个答案也使用了With，这对我来说毫无用处。

excel

来源：https://stackoverflow.com/questions/44154327/xlpastevalues-and-xlpasteformats-at-the-same-time

4条答案

按热度按时间

mwyxok5s1#

您可以这样使用它：

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

将两个命令一个接一个地放置。首先，必须粘贴所有内容，然后再次粘贴，但仅粘贴值和数字格式。

赞(0）回复(0）举报 2022-11-26

xvw2m8pv2#

您正在寻找：

xlPasteValuesAndNumberFormats

edit##这不是正确答案。

赞(0）回复(0）举报 2022-11-26

o4tp2gmn3#

xlPasteAll
（实际上，由于xlPasteAll是默认的粘贴选项，您可以将其保留为关闭状态。）
来源：https://msdn.microsoft.com/en-us/library/aa195818(v=office.11).aspx

赞(0）回复(0）举报 2022-11-26

pkwftd7m4#

您可以多次粘贴内容以获得所需内容，例如

Cells(1, 1).PasteSpecial Paste:=xlPasteAll
Cells(1, 1).PasteSpecial Paste:=xlPasteValues

赞(0）回复(0）举报 2022-11-26

我来回答

excel xlPasteValues和xlPasteFormats的函数值

4条答案

edit##这不是正确答案。

相关问题

热门标签

最新问答