将值从一张纸复制到另一张，而不包括图片

我有一个工作副本和粘贴脚本，但他们复制并粘贴图片。 我相当确定这是因为图片链接到单元格的大小和移动。 我想要做的仍然是复制单元格（它们的值），但没有链接到单元格的图片。 这也需要在Windows和OS X上工作。

复制脚本

Dim Section As Long, NextRow As Long Dim FATPMetiPath As String, FATPMetiFolderPath As String Sheets("Results").Activate Range("Results").Select Selection.AutoFilter Range("Results").ClearContents For Section = 1 To 8 '32 NextRow = Sheets("Results").Range("A" & Rows.Count).End(xlUp).Row + 1 'Next empty row Sheets("Function Test Procedure").Select Range("FTPSec" & Section).Columns("A:N").Copy _ Destination:=Sheets("Results").Range("A" & NextRow) Next Section 

粘贴脚本

  Set rngCopy = wsFTP.Range("FTPResults1").SpecialCells(xlCellTypeVisible) Set rngCopyNotes = wsFTP.Range("FTPResults2").SpecialCells(xlCellTypeVisible) Set rngCopyFRResults = wsFTP.Range("FTPResults3").SpecialCells(xlCellTypeVisible) Set rngCopyFRResults2 = wsFTP.Range("FTPResults4").SpecialCells(xlCellTypeVisible) NextRow = wsFail.Range("Fail_Report_Table").Cells(1, 1).Row rngCopy.Copy wsFail.Range("A" & NextRow) rngCopyNotes.Copy wsFail.Range("H" & NextRow) rngCopyFRResults.Copy wsFail.Range("C" & NextRow) rngCopyFRResults2.Copy wsFail.Range("D" & NextRow) 

Answer 1

对于复制脚本

更改Range("FTPSec" & Section).Columns("A:N").Copy _ Destination:=Sheets("Results").Range("A" & NextRow)

至：

 Dim TotalRows As Long TotalRows = Range("FTPSec" & Section).Rows.Count Sheets("Results").Range("A" & NextRow).Resize(TotalRows,14).Value = Range("FTPSec" & Section).Columns("A:N").Value 

对于粘贴脚本

写下（代替你的代码中的最后4行）：

 wsFail.Range("A" & NextRow).Value = rngCopy.Value wsFail.Range("H" & NextRow).Value = rngCopyNotes.Value wsFail.Range("C" & NextRow).Value = rngCopyFRResults.Value wsFail.Range("D" & NextRow).Value = rngCopyFRResults2.Value