将数据从工作表1移动到工作表2 [英] Moving data from sheet 1 to sheet 2

问题描述

我当前正在工作表1和工作表2之间移动数据.工作表1包含项目的平均值.BN/BO列包含平均值.它通过了论坛，而不是平均数.使用我正在使用的方法对此问题进行任何修复，而不使用 = Sheet2！B2 这样的新方法吗?

I am currently moving data between sheet 1 and sheet 2. Sheet 1 contains averages of items. BN/BO columns contain the averages. It passes the forumula instead of the average number. Any fix to this using the method I am using without using a new method like =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

推荐答案

出于性能考虑，我建议更改您的方法(避免剪贴板更高效)，但是如果您要使用相同的方法，则可以使用 .PasteSpecial xlPasteValues .

I would recommend changing your method for performance reasons (avoiding the Clipboard is more performant), but if you want to use the same method, you can use .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

这篇关于将数据从工作表1移动到工作表2的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！