如何运行从活动工作表复制单元格范围并将其粘贴到新工作簿中的VBA代码(仅限值和格式设置，而不是公式)？

以下是运行从活动工作表复制单元格范围并将其粘贴到新工作簿中的VBA代码的示例：

Sub CopyRangeToNewWorkbook()
    Dim sourceRange As Range
    Dim newWorkbook As Workbook
    Dim newWorksheet As Worksheet
    
    ' 定义源工作表和目标工作簿
    Set sourceRange = ThisWorkbook.ActiveSheet.Range("A1:B10")
    Set newWorkbook = Workbooks.Add
    Set newWorksheet = newWorkbook.Worksheets(1)
    
    ' 复制并粘贴值和格式
    sourceRange.Copy
    newWorksheet.Range("A1").PasteSpecial xlPasteValues
    newWorksheet.Range("A1").PasteSpecial xlPasteFormats
    
    ' 保存新工作簿并关闭
    newWorkbook.SaveAs "路径\文件名.xlsx" ' 替换为您的保存路径和文件名
    newWorkbook.Close
    
    ' 清除剪贴板内容
    Application.CutCopyMode = False
End Sub

解释：

首先，通过ThisWorkbook.ActiveSheet.Range("A1:B10")定义源工作表中要复制的范围。您可以根据需要修改范围的起始和结束单元格。
然后，使用Workbooks.Add创建一个新的工作簿，并将其分配给newWorkbook对象。
通过newWorkbook.Worksheets(1)获取新工作簿的第一个工作表，并将其分配给newWorksheet对象。
使用sourceRange.Copy复制源范围。
使用newWorksheet.Range("A1").PasteSpecial xlPasteValues将值粘贴到新工作簿的单元格"A1"。
使用newWorksheet.Range("A1").PasteSpecial xlPasteFormats将格式粘贴到新工作簿的单元格"A1"。
使用newWorkbook.SaveAs保存新工作簿。请将路径和文件名替换为您希望保存的位置和名称。
使用newWorkbook.Close关闭新工作簿。
最后，使用Application.CutCopyMode = False清除剪贴板内容。