Question

我正在尝试修改报告，以允许删除重复的零件号，然后再继续进行与零件号相关的其他计算。

要做到这一点，我想出了确保数据在最终表中没有损坏的最简单方法是创建一个单独的表，复制初始数据，删除重复项，然后将该列复制并粘贴到最终表中。工作表已经有标题并且看起来很漂亮。

我正在尝试粘贴偏移量，以便我们可以将标题保留在原位，而不必手动对其进行编码。

我尝试过：

PNView.Columns(1,1).Offset(1,0).PasteSpecial
PNView.Cells(1,1).Offset(1,0).PasteSpecial
PNView.Range("A2").PasteSpecial

每次都会给我一个运行时错误。它要么给我438，要么告诉我您不能粘贴在这里，因为它的大小不一样。

这是我的最新版本：

CMT.Range("$G5:$G3500").Copy
ws.Range("A1").PasteSpecial
Range("A:A").Select
ActiveSheet.Range("$A$1:$AM" & Cells(Rows.Count, 
"a").End(xlUp).Row).RemoveDuplicates Columns:=1, Header:= _
    xlYes

PNView.Range("A2").Resize(ws.Range("A:A").Rows.Count, 
ws.Range("A:A").Columns.Count).Value = ws.Range("A:A")

我最终需要能够将ws.Range（“ A：A”）中的数据传输到从A2开始的PNView.Range。

分辨率：

因此，我们采取了一条捷径并记录了一个宏，以完全执行我们想要的操作，这就是Excel给出的结果：

CMT.Select
Columns("G:G").Select
Selection.Copy
ws.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks 
_
    :=False, Transpose:=False
Rows("1:3").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Columns("A:A").Select
ActiveSheet.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo
Columns("A:A").Select
Selection.Copy
PNView.Select
Columns("A:A").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks 
_
    :=False, Transpose:=False

Answer 1

分辨率：

因此，我们采取了一条捷径并记录了一个宏，以完全执行我们想要的操作，这就是Excel给出的可行结果，并进行了编辑以包含我们正在使用的变量：

CMT.Select
Columns("G:G").Select
Selection.Copy
ws.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks 
_
    :=False, Transpose:=False
Rows("1:3").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Columns("A:A").Select
ActiveSheet.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo
Columns("A:A").Select
Selection.Copy
PNView.Select
Columns("A:A").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks 
_
    :=False, Transpose:=False

如何从一张纸偏移粘贴到另一张纸？

1 个答案: