为什么不粘贴？使用变量和偏移单元格引用

Question

对象不支持此属性或方法。仅在此代码中的.Paste部分发生。请帮忙，因为我很困惑。我试图尽可能简化代码来简单地选择单元格，复制单元格，选择目标和粘贴。缺少的东西在这里...

Sub AIM36DBOCompare() 
Dim n As Integer 
n = 2 
Dim PasteCount As Integer 
Dim Value1 As String 
Dim Date1 As String 
Dim c As Range 
PasteCount = 41 
    Range("AD2:AD1000").Copy Destination:=Range("S41" & Lastrow) 
    Do While n <= 1000 
     If Cells(26, n) <> 0 Then 
'-------------------------------------------- 
      With Worksheets(1).Range("b2:b10000") 
       Set c = .Find(Cells(n, 26), LookIn:=xlValues) 
       If Not c Is Nothing Then 
        Do 
         Date1 = c.Offset(0, -1).Address 
         Value1 = c.Offset(0, 3).Address 
         If Abs(Cells(n, 25) - Range(Date1).Value) <= 10 Then 
          Range(Value1).Select 
          Selection.Copy 
          Cells(PasteCount, 17).Select 
          Selection.Paste 
          PasteCount = PasteCount + 1 
          Exit Do 
         End If 
          Set c = .Find(Cells(n, 26).Value, LookIn:=xlValues) 
        Loop While Not c Is Nothing 
       End If 
      End With 
'-------------------------------------------- 
     End If 
     If Cells(11, n) = 0 Then 
      Exit Do 
     End If 
    n = n + 1 
    Loop 
End Sub 

Answer 1

你不能这样做Selection.Paste（正如你刚才看到）。如果您在纸张上称之为Paste，它会粘贴到您的选择，试试这个，而不是

ActiveSheet.Paste

Answer 2

或者，如果你只是想复制的价值，跳过这个选择并粘贴：

Cells(PasteCount, 17).Value = Range(Value1).Value