我正在尝试将活动工作表复制到工作簿的末尾

一切工作正常，但我需要复制的值，而不是公式。 也是工作表的格式。 这是我的：

Dim strName As String, strSht As String strName = "DMR" & " " & Range("S1").Value strSht = ActiveSheet.Name Application.ScreenUpdating = False Sheets.Add After:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = strName Sheets(strSht).Range("A1:Y89").Copy Sheets(strName).Range("A1").PasteSpecial Paste:=xlPasteValues 

这不是我想要完成的。 活动工作表中的某些单元格正在被复制，其中有公式。 我需要复制公式的值，以及表格的格式。 谁能帮忙？ 我正在使用Excel 2013. TIA …

Answer 1

粘贴不连续的单元格的联盟时，存在一个已知的特性，即最终粘贴值和格式。 Excel无法parsing不连续范围的公式的关系单元格地址，因此它会select这些值，并携带格式。

 Dim strName As String, strSht As String strName = "DMR" & " " & Range("S1").Value strSht = ActiveSheet.Name Application.ScreenUpdating = False Sheets.Add After:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = strName Sheets(strSht).Range("A1:Y89, Y91").Copy Destination:=Sheets(strName).Range("A1") 

上述增加（我相信是一个空白，未使用的单元格）Y91到原来的复制范围，以创build一个不连续的单元格的联合。 你将会得到没有公式的值和格式。