Question

excel vba如何使用 range().select selection.copy activesheet.paste 带格式复制

就是使用vba
选定表格 粘贴 复制

如何才能实现带格式复制，就是行宽、行高、字体、字号、对齐方式和之前的原表格一致

Answer 1

假设要把sheet1的A1复制粘贴到F1，代码就是
Sheet1.Range("A1").Copy Destination:=Sheet1.Range("F1")

追问

运行后显示

运行错误  1004

不能对合并单元格作部分更改

给你看下我的代码  麻烦了

追答

问题应该是你的excel表格有单元格合并了，但是你的代码中却没有写合并的区域。具体是哪一句提示这个错误？对应单元格是哪里，你检查一下。
还有，vba代码中不需要有select selection这样的方法，直接用range("A1:L14").copy 就可以

追问

你好 我把问题搞复杂了
把问题具体说下
要将数据源sheet2中的中的多个数据 复制到sheet1 表中的对应位置，并生成多个以某个单元格内容命名的单个excel文件。

追答

Sub GetData()
Dim i As Integer, j As Integer, SaveN As String, MyBook As Object
For i = 2 To Sheets(2).Cells(65536, 1).End(3).Row
Sheets(1).Range("A1:J3").NumberFormat = "@"
SaveN = Sheets(2).Cells(i, 1)
Sheets(1).Cells(1, 2) = SaveN
Sheets(1).Cells(1, 4) = Sheets(2).Cells(i, 2)
Sheets(1).Cells(1, 6) = Sheets(2).Cells(i, 3)
Sheets(1).Cells(2, 2) = Sheets(2).Cells(i, 4)
Sheets(1).Cells(3, 2) = Sheets(2).Cells(i, 5)
Sheets(1).Copy
ActiveWorkbook.SaveAs Filename:=SaveN
Workbooks(SaveN).Close
Next i
End Sub

我试用过没问题，你再试试。