Question

我目前正在工作表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

我建议您出于性能原因更改方法（避免剪贴板更高效），但如果您想使用相同的方法，则可以使用.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

1 个答案: