使用vba粘贴值

我有一个代码从工作簿A中的特定工作表中选择所有数据（在代码中名称为'fn'）并将其复制到工作簿B中的特定工作表中。我想要做的是仅贴上值，即贴，同时保持/转换（到）过去片表的格式从复印纸上复制的值，这里是我的代码 -使用vba粘贴值

Set copySheet = copyBook.Sheets(fn) 'Points to the sheet in the raw data file 
Set pasteBook = ThisWorkbook 'Sets the file where we are supposed to paste to as the template file 
Application.DisplayAlerts = False 
Set pasteSheet = pasteBook.Sheets("Transaction") 'Points to the Transaction sheet on the template 
lastRow = copySheet.Cells(Rows.Count, 1).End(xlUp).row 'Computes the last row on the raw data file 


'Copies raw data to tab/sheet in template 
copySheet.Activate 
Application.ScreenUpdating = False 
For column = 1 To 27 
    For row = 2 To lastRow 
    cp = copySheet.Cells(row, column) 
    pasteSheet.Cells(row + 211, column).Value = cp 
    Next 
Next 
Application.ScreenUpdating = True 


copyBook.Close 'Closes the raw data file 
End If

注 - 我真的喜欢这我只是对上面的代码做了一些小改动，而不是完全制作其他代码。谢谢！

来源

2014-10-27 Faisal Khan

你为什么循环？ Wy不会复制并一次性完成粘贴操作？ – 2014-10-27 16:02:06

你能告诉我怎么做:)（如在代码本身） – 2014-10-27 16:18:59

我可以但为什么你不记录一个宏，并尝试为自己:) – 2014-10-27 16:33:27

cp = copySheet.Cells(row, column) 
pasteSheet.Cells(row + 211, column).Value = cp

更改为

copySheet.Cells(row, column).Select 
Selection.Copy 
pasteSheet.Cells(row + 211, column).Select 
Selection.PasteSpecial Paste:=xlPasteValues 

Application.CutCopyMode = False

Application.CutCopyMode这里被设置为false，只是需要你的程序出的复制模式。

来源

2014-10-27 20:24:11 BrinkDaDrink

试试这个。您也可以跳过激活工作表，因为您只是复制数据。

Application.ScreenUpdating = False 
For column = 1 To 27 
    For row = 2 To lastRow 

    pasteSheet.Cells(row + 211, column) = copySheet.Cells(row, column).Value 

    Next 
Next

来源

2014-10-27 22:31:37 peege

更新你的循环与此：

For column = 1 To 27 
    For row = 2 To lastRow 
     copySheet.Cells(row, column).copy Destination:=pasteSheet.Cells(row + 211, column) 
    Next 
Next

来源

2015-12-15 13:27:40

使用vba粘贴值

回答

相关问题