Excel 2013 VBA中的粘贴错误

Question

我有一个VBA脚本，它结合了一堆Excel文件中的数据，并整洁地显示了结果。它通过打开一个输入文件，复制所需的数据范围，并将其粘贴到结果文件中，来实现这一点。

我们刚刚升级到Office 2013，其中一些粘贴到了错误的位置，例如：

  Workbooks(currentBook).Sheets("InputList").Range("E1:F1000").Copy
  ThisWorkbook.Sheets("Results").Range("B2").PasteSpecial Paste:=xlPasteValuesAndNumberFormats

不是粘贴到单元格B2，而是粘贴到J1。

另一个复制粘贴操作，它应该提供：

Location    Date    Value
Location    Date    Value
Location    Date    Value

通过执行以下代码：

Workbooks(currentBook).Sheets("Pay").Range("B1:B2").Copy
ThisWorkbook.Sheets("Problem Sheets").Range("E1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
ThisWorkbook.Sheets("Problem Sheets").Range("E1:E2").Copy
ThisWorkbook.Sheets("Problem Sheets").Range("A" & problemCell).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Transpose:=True
ThisWorkbook.Sheets("Problem Sheets").Range("E1:E2").ClearContents
problemCell = problemCell + 1

相反，其结果是：

Location    Location   Value
Location    Location   Value
Blank       Blank      Value

我真的很感谢任何帮助理解和处理这种行为-我需要能够相信这个文件的结果，在Office 2010我可以！

Answer 1

可以通过循环遍历所需的范围来纠正此问题，将每个目标单元格的值指定为等于源单元格的值，如下所示：

For copyCount = 1 To 1000
    ThisWorkbook.Sheets("Pay").Cells(copyCount + 1, 2).Value = _
        Workbooks(currentBook).Sheets("Employee List").Cells(copyCount, 5).Value
    ThisWorkbook.Sheets("Pay").Cells(copyCount + 1, 3).Value = _
        Workbooks(currentBook).Sheets("Employee List").Cells(copyCount, 6).Value
    ThisWorkbook.Sheets("Pay").Cells(copyCount + 1, 1).Value = _
        Workbooks(currentBook).Sheets("Employee List").Cells(copyCount, 7).Value
Next

虽然这纠正了复制和粘贴功能所遇到的问题，但它并不解释错误的来源，因此我仍然感兴趣于与此相关的任何答案。

Answer 2

取代：

ThisWorkbook.Sheets("Results").Cells("B2").PasteSpecial Paste:=xlPasteValuesAndNumberFormats

使用

ThisWorkbook.Sheets("Results").Range("B2").PasteSpecial Paste:=xlPasteValuesAndNumberFormats

等。