以下是运行从活动工作表复制单元格范围并将其粘贴到新工作簿中的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
清除剪贴板内容。请注意,这只是一个简单示例,只复制了一个固定范围。根据您的实际需求,您可能需要进行适当的修改和调整。
腾讯云相关产品和产品介绍链接地址:
请注意,以上仅为腾讯云提供的一些相关产品链接,供您参考。如果您需要更详细的信息或其他云计算品牌商的产品,请在提问中明确指出。
领取专属 10元无门槛券
手把手带您无忧上云