Sub CopyCellsToAnotherDocument() ' 定义变量 Dim sourceDocument As Document Dim targetDocument As Document Dim sourceRange As Range Dim cell As Range ' 设置源文档和目标文档 Set sourceDocument = ActiveDocument Set targetDocument = Documents.Add ' 设置源文档中的单元格范围 Set sourceRange = sourceDocument.Sheets("Sheet1").Range("A1:B5") ' 根据实际情况修改单元格范围 ' 复制源文档中的单元格内容到目标文档 For Each cell In sourceRange cell.Copy targetDocument.Sheets("Sheet1").Range(cell.Address) ' 假设目标文档中也有名为"Sheet1"的工作表 Next cell ' 保存并关闭目标文档 targetDocument.SaveAs "C:\Users\YourName\Documents\TargetDocument.docx" ' 根据需要修改保存路径和文件名 targetDocument.Close End Sub