Excel：如何将“值”粘贴到第一个空白单元格？

考虑到我已经通过另一个线程解释了“如何粘贴到第一个空白单元格”… 在这里我需要知道如何粘贴“价值”。 例：

Dim sh As Worksheet, tCell As Range Sheets("Lunch Extend").Range("B4:F31").Copy Set sh = Sheets("Backup") Set tCell = FreeCell(sh.Range("B3")) sh.Paste PasteSpecial xlValues tCell 

但是，最后一行不能正确读取。 任何帮助？

 sh.Paste tCell 

…工作，但我需要价值观。 谢谢。

在这里添加FreeCellfunction…

 Function FreeCell(r As Range) As Range ' returns first free cell below r Dim lc As Range ' last used cell on sheet Set lc = r.Offset(1000, 0).End(xlUp).Offset(1, 0) Set FreeCell = lc End Function 

Answer 1

假设FreeCell是你写的一个函数，它是有效的。 尝试这个：

 Dim sh As Worksheet, tCell As Range Sheets("Lunch Extend").Range("B4:F31").Copy Set sh = Sheets("Backup") Set tCell = FreeCell(sh.Range("B3")) tCell.PasteSpecial Paste:=xlPasteValues