粘贴特殊只有特定范围

Question

我已经反向工程，并开发了一个代码感谢您在这里的所有努力，但我已经摆脱了一件小事。从WS2复制时我想要执行的操作是粘贴为特殊的，因为我不想导出导致工作簿崩溃的列AD:AR中包含的所有公式。

Sub Copyandpaste() 
    Dim LastRow As Long 
    Dim ws1 As Worksheet, ws2 As Worksheet 

    Set ws1 = ActiveWorkbook.Sheets("RAW DATA") 
    Set ws2 = ActiveWorkbook.Sheets("DATA INPUT") 

    LastRow = ws1.UsedRange.Rows.Count 

    With ws2 
     .Range("A2:AR2" & .Cells(Rows.Count, "G").End(xlUp).Row).Copy Destination:=ws1.Range("A" & LastRow + 1) 
     For Each WS In ThisWorkbook.Worksheets 
      For Each PT In WS.PivotTables 
       PT.RefreshTable 
      Next PT 
     Next WS 
    End With 
End Sub 

Answer 1

这是你正在尝试？

Sub Copyandpaste() 
    Dim ws1LRow As Long, ws2LRow As Long 
    Dim ws1 As Worksheet, ws2 As Worksheet 

    Set ws1 = ThisWorkbook.Sheets("RAW DATA") 
    Set ws2 = ThisWorkbook.Sheets("DATA INPUT") 

    With ws1 
     ws1LRow = .Cells.Find(What:="*", _ 
        After:=.Range("A1"), _ 
        Lookat:=xlPart, _ 
        LookIn:=xlFormulas, _ 
        SearchOrder:=xlByRows, _ 
        SearchDirection:=xlPrevious, _ 
        MatchCase:=False).Row + 1 
    End With 

    With ws2 
     ws2LRow = .Range("G" & .Rows.Count).End(xlUp).Row 

     .Range("A2:AR" & ws2LRow).Copy 

     ws1.Range("A" & ws1LRow).PasteSpecial xlPasteValues 

'  For Each WS In ThisWorkbook.Worksheets 
'   For Each PT In WS.PivotTables 
'    PT.RefreshTable 
'   Next PT 
'  Next WS 
    End With 
End Sub