如何运行从活动工作表复制单元格范围并将其粘贴到新工作簿中的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

解释：

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

请注意，这只是一个简单示例，只复制了一个固定范围。根据您的实际需求，您可能需要进行适当的修改和调整。

腾讯云相关产品和产品介绍链接地址：

1. 腾讯云对象存储 COS：https://cloud.tencent.com/product/cos
2. 腾讯云云服务器 CVM：https://cloud.tencent.com/product/cvm
3. 腾讯云人工智能 AI Lab：https://ai.qq.com/
4. 腾讯云云数据库 MySQL：https://cloud.tencent.com/product/cdb_mysql
5. 腾讯云弹性容器服务 TKE：https://cloud.tencent.com/product/tke
6. 腾讯云云函数 SCF：https://cloud.tencent.com/product/scf
7. 腾讯云物联网套件 IoT Hub：https://cloud.tencent.com/product/iothub

请注意，以上仅为腾讯云提供的一些相关产品链接，供您参考。如果您需要更详细的信息或其他云计算品牌商的产品，请在提问中明确指出。