将数据从表单1移动到表单2

我当前正在表格1和表格2之间移动数据。表格1包含项目的平均值。 BN / BO列包含平均值。 它通过论坛而不是平均数量。 任何解决这个使用我使用的方法，而不使用=Sheet2!B2的新方法？

 Dim Lastrow2 As Integer Lastrow2 = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row Sheets("Sheet1").Range("K4:K" & Lastrow2).Copy Sheets("Sheet2").Range("B2") Sheets("Sheet1").Range("C4:C" & Lastrow2).Copy Sheets("Sheet2").Range("A2") Sheets("Sheet1").Range("BN4:BN" & Lastrow2).Copy Sheets("Sheet2").Range("C2") Sheets("Sheet1").Range("BO4:BO" & Lastrow2).Copy Sheets("Sheet2").Range("D2") Sheets("Sheet2").Range("A2:D" & Lastrow2).RemoveDuplicates Columns:=Array(1, 2, 3, 4), Header:=xlNo 

Answer 1

我build议改变你的方法的性能原因（避免剪贴板是更高性能），但如果你想使用相同的方法，你可以使用.PasteSpecial xlPasteValues 。

 Sheets("Sheet1").Range("K4:K" & Lastrow2).Copy Sheets("Sheet2").Range("B2").PasteSpecial xlPasteValues Sheets("Sheet1").Range("C4:C" & Lastrow2).Copy Sheets("Sheet2").Range("A2").PasteSpecial xlPasteValues Sheets("Sheet1").Range("BN4:BN" & Lastrow2).Copy Sheets("Sheet2").Range("C2").PasteSpecial xlPasteValues Sheets("Sheet1").Range("BO4:BO" & Lastrow2).Copy Sheets("Sheet2").Range("D2").PasteSpecial xlPasteValues