Question

我有一张名为Creator的值我需要根据复制到的一组值的更改，将其上生成的所有值（第2行到第21行col到A到Y）复制到最终工作表500次以上在这个上构建值的表格（基本上一切都保持不变，除了20种不同木材类型的UPC）但是我不能在我的生活中弄清楚如何只用我有的VBA代码获得粘贴特殊值

    Sub CopyDataFromOtherWorkbook()

  Dim intRow As Long
  Dim intPaste As Long
  intPaste = 2
  For intRow = 2 To 549
        Worksheets("Original Data").Range("A" & intRow & ":K" & intRow).Copy _
        Destination:=ThisWorkbook.Worksheets("Creator Data Filler").Range("A2:K2")

        Worksheets("Creator").Range("A2:Y21").Copy _
        Destination:=ThisWorkbook.Worksheets("Final Data").Range("A" & intPaste & ":Y" & intPaste + 19)

        intPaste = intPaste + 20
  Next intRow
End Sub

如果有人可以告诉我如何修复它或指向我错过在线修复的信息，我们将不胜感激

Answer 1

这样的事情应该有效

Set rDestination = ActiveSheet.Range("RANGE") 
rDestination.Select 

Selection.PasteSpecial Paste:=xlPasteValues, _ 
Operation:=xlNone, _ 
SkipBlanks:=False, _ 
Transpose:=False

检查出来：http://www.ozgrid.com/forum/showthread.php?t=21846

仅在Excel工作表VBA下复制值

1 个答案: