如何完美复制黏贴

fengyao818

请问：复制黏贴如何保留所有格式，包括行高和列宽，合并的单元格

zyhui1961

整行、整列：行宽度、列高。不是整行整列：选择性粘贴格式。
像你这种：全选工作表，复制、粘贴；”移动或复制“工作表。

fengyao818

zyhui1961 发表于 2023-3-24 15:05
整行、整列：行宽度、列高。不是整行整列：选择性粘贴格式。
像你这种：全选工作表，复制、粘贴；”移动或 ...

谢谢！！刚刚试了一下全选整行再复制，可以保存格式。我的本意是：方方格子的汇总工作簿的功能不能有合并单元格，我想自己写个代码，就是不知道如何完美保留原格式复制。

zyhui1961

fengyao818 发表于 2023-3-24 15:43
谢谢！！刚刚试了一下全选整行再复制，可以保存格式。我的本意是：方方格子的汇总工作簿的功能不能有合并 ...

录制一个宏不就行了吗：
Sub 复制()
    Sheets("问卷汇总").Select
    Rows("2:4").Select
    Selection.Copy
    Sheets("Sheet1").Select
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown
End Sub

fengyao818

zyhui1961 发表于 2023-3-24 15:58
录制一个宏不就行了吗：
Sub 复制()
    Sheets("问卷汇总").Select

谢谢，搞定了

chzsh

Sub 复制()
    Sheets("问卷汇总").Rows("1:4").Copy
    Sheets("Sheet1").Rows("2:2").Insert Shift:=xlDown
End Sub

少如

四 楼与 六 楼的代码若能有复制的列数控制才够完美！
现在的效果是：M列向右任何列有数据都复制过来了，
显得表格不清洁。个人管见，请谅！