复制 excel 范围并仅粘贴值（pasteSpecial），并在 VBScript 中跳过空白答案

【问题标题】：Copy excel range and paste only values (pasteSpecial) with skip blanks in VBScript复制 excel 范围并仅粘贴值（pasteSpecial），并在 VBScript 中跳过空白
【发布时间】：2015-02-10 02:53:49
【问题描述】：

我需要通过跳过从源 excel 文件复制的空白单元格从一张源 excel 文件中复制一些范围的 excel 并将其粘贴到目标 excel 文件的一张表中。

以下代码在 VBA 中运行良好，如何在 VBScript 中编写等效代码？

Selection.Copy
Sheets("Sheet1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=True, Transpose:=False

我知道只有值的特殊粘贴代码是“-4163”。在这种情况下，下面的 sn-p 工作正常，

sourceWorkbook.Worksheets(1).UsedRange.Copy
targetWorkbook.Worksheets(1).Range("A1").PasteSpecial -4163

但我需要它来粘贴值并跳过复制的空白单元格（即不想覆盖或替换为复制范围的单元格）。如何做到这一点？？

任何帮助将不胜感激

【问题讨论】：

标签： excel vbscript

【解决方案1】：

嗨 Ranjan 最后我们如何解决在 vb 脚本中使用特殊粘贴的正确方法是

Selection.PasteSpecial -4163、-4142、真、假

-4163 - 对于 XlPastValues -4142 - 操作：= xlNone True - 用于跳过空白错误 - 转置

【讨论】：