Excel VBA技巧 复制粘贴保留行高列宽等所有格式的方法

最新推荐文章于 2025-05-01 14:02:01 发布
最新推荐文章于 2025-05-01 14:02:01 发布
阅读量6.1k 收藏 13
点赞数
CC 4.0 BY-SA版权
文章标签： python
原文链接：http://www.cnblogs.com/zyjq/p/6658362.html
本文介绍了如何使用Excel VBA在复制粘贴时保持行高、列宽等所有格式不变。通过示例代码，展示了如何复制大标题、小标题和正文区，并特别强调了正确设置粘贴区域的重要性。最后提供了一段修改后的代码，能够实现复制全部格式，包括行高和列宽。

Excel VBA用Copy方法进行复制粘贴，往往会导致粘贴的数据没有了行高和列宽。那么，当我们要进行复制粘贴时，如何保证粘贴的数据保留原有的格式(包括行高列宽都不能变)。

笔者以一个模板设计为例进行说明。

模板表如图1 所示。

Excel <wbr>VBA技巧 <wbr>复制粘贴保留行高列宽等所有格式的方法

图1

根据模板表生成表格的效果如图2所示。

Excel <wbr>VBA技巧 <wbr>复制粘贴保留行高列宽等所有格式的方法

图2

使用Copy

最低0.47元/天 解锁文章

200万优质内容无限畅学
vba中粘贴功能（包括特殊粘贴）
pgymeitianjinbu的博客
02-17 2189
'表达式.PasteSpecial(Paste, Operation, SkipBlanks, Transpose)'表达式 一个代表 Range 对象的变量。'将 Range 从剪贴板粘贴到指定的区域中。'Range.PasteSpecial 方法。将粘贴所有内容，并且将合并条件格式。XlPasteType(粘贴类型)Sub 选择怪粘贴跳过空单元()Sub 选择怪粘贴运算()Sub 选择性粘贴转置()粘贴除边框外的全部内容。使用源主题粘贴全部内容。Sub 选择怪粘贴()粘贴公式和数字格式。
[day 1]用VBA实现最简单的EXCEL复制数据
yohann96的博客
04-16 2130
跟着文心一言学VBA。
复制保留源列宽Excel表格
Devilhand
06-28 706
在Excel中，如果把按纸张大小设置好列宽、准备打印输出的表格复制一份，想更改其部分表格内容作为另一份表格时，是否发现粘出的表格内容没 变，但列的宽度却变了?只有再次调整列宽才能打印输出。其实我们只要再接着做一步就能使粘出的表格保留源列宽。如在工作表中选中准备复制的单元格，复制到 别的单元格，会发现新粘出的表格虽然列宽变了，但表格的右下角却多出来一个“粘贴选项”按钮，如果没有发现“粘贴选项”按钮，...
excel粘贴 粘贴值 使用VBA宏匹配目标格式
tanghuan0827的博客
11-29 5583
当您按下键盘上的Ctrl + V键时，也可以使用VBA宏始终默认设置黏贴模式为匹配目标格式。只需执行以下步骤： 步骤1：打开您的Excel工作簿，然后单击开发工具选项卡下的“Visual Basic”命令，或者只需按“ALT + F11”快捷方式。 步骤2：然后将出现“Visual Basic编辑器”窗口。 步骤3：单击“插入” – >“模块”以创建新模块。 步骤4：将以下VBA代码粘贴到代码窗口中。然后单击“保存”按钮。 变为这个，出现问题range的PasteSpec..
Excel VBA 之单元格格式
soga235的博客
06-03 1433
一个频繁的任务就是给选中的单元格或区域设置格式。你的VBA过程可能需要查明某个具体单元格的格式。我们可以使用NumberFormat属性来找回单元格格式： ?Range("A1").NumberFormat 在立即窗口输入上面的问题后，Excel显示“General” Range("A1").NumberFormat = "$#,##0.00" 如果你在单元格A1里输入55，当你使用上面的指令给它设置格式后，单元格A1将显示“$55.00”。你可以在Excel窗口的“设置单元格格式...
excel粘贴单元格保留行高列宽
03-27
同时提醒注意事项，比如部分方法需要分步操作，或者某些选项可能不保留所有格式，需要结合使用。在Excel中，粘贴单元格时默认不会保留原始行高和列宽，但可以通过以下方法实现： --- ### **一、直接匹配源列宽（仅...
WPS表格复制粘贴后保持格式不变的两种高效方法
nntxthml的博客
04-26 1515
方法一适合快速处理局部数据，通过粘贴选项的灵活组合满足多样化需求方法二更适用于整表复制，尤其适合制作月度报表、项目模板等重复性工作复杂表格预先定义单元格样式重要格式设置通过“页面布局”功能固化定期备份模板文件至云文档掌握这些技巧后，可显著减少80%以上的格式调整时间，让数据处理工作回归核心价值。后续将持续分享WPS高级功能解析，助力读者构建高效办公体系。
WPS表格复制粘贴后保留原格式的两种实用方法
最新发布
nntxthml的博客
05-01 2189
高频数据维护：掌握智能粘贴的四种模式切换，培养「先复制后调整」的操作习惯系统化建设：构建标准化工作表模板库，通过克隆功能实现快速部署协同办公：明确格式规范文档，配合「工作表保护」和「共享工作簿」功能建立协作机制通过理解底层复制机制，用户不仅能解决格式错乱问题，更能构建起结构化的表格处理体系，显著提升数据处理效率与文档专业性。建议定期使用「备份中心」功能保存关键版本，为格式管理建立安全防线。
【VBA研究】关于工作表单元格复制粘贴的语句
驽马十驾 才定不舍
01-13 7015
作者：iamlaosong 做一个工作表拆分和合并的工具，必然会用到复制粘贴语句。最简单的就是普通的直接复制粘贴，但有时也需要用到选择性粘贴，特别是原数据格式比较复杂，希望新生成的数据简单一点，比如直接复制数值。有时候格式复杂的文档完全复制粘贴后，新生成的文件还会无法打开。
【VBA】Excel拆分表格，并且复制格式
hggl_bera的博客
02-18 4905
需求 1、将总表根据【销售部门】拆分成不同的表格 2、拆分后保持格式不变 拆分前 总表 拆分后 表结构 一部 二部 七部 代码如下 Sub cfgzb() '拆分工作表 Dim i As Integer, endrow As Integer, irow As Integer Dim sh As Worksheet Dim str As String endrow = Sheets("总表").Range("c" & Rows.Coun
将下载到Excel中的数据一秒变成Stata面板排版格式-VBA代码
07-06
我们拿从数据库导出来的数据做面板回归时原始数据往往不是按Stata面板数据格式排版的，这个代码能使下载到excel中的数据自动转化为stata面板数据的排版数据，里面附有详细的操作说明
EXCEL VBA复制含公式数据源替换为数值
Check_Const的博客
12-01 5031
EXCEL VBA复制含公式数据源替换为数值
EXCEL-VBA:单元格粘贴成数值（2种方法）
鞠勇鸿的技术专栏
11-05 2万+
Copy + Paste大法，其实自己个录个宏就行的 Range("C18").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 代码自己手工改改，如下： Sheet1.Range("C18").Copy Sheet1.Range("C18").PasteSpecial Paste:=xlPaste
PasteSpecial Paste:粘贴参数
SmileMoon's Home
02-21 1万+
通过VBA来完成粘贴操作，在Excel中，我们可以和平常使用鼠标的操作一样，可以选择只粘贴数值还是连格式一起粘贴。 　　下面，就给大家介绍PasteSpecial Paste对象的各种参数，并给出相应的例子供大家参考。 　　当然，我们得通过Range对象的PasteSpecial方法来完成。 　　参数「Operation」的值的列表如下（默认值是xlPasteSpecialOperation...
VBA在Excel中的应用——用VBA将所有工作表去公式并保留原显示格式
一舰之长的博客
04-01 7381
VBA在Excel中的应用用VBA将所有工作表去公式并保留原显示格式问题描述1.在“开发工具”选项卡中选择”Visual Basic”2.插入模块运行结果 用VBA将所有工作表去公式并保留原显示格式 问题描述 出于各种各样的原因，我们需要将所有使用公式的单元格最后只留数值，而且要尽量保持显示格式不变。而使用公式的单元格零散分布，数量众多。因此，使用VBA会简化操作，提升效率。 1.在“开发工具”选...
Python调用VBA实现保留原始样式的表格合并
热门推荐
小小明-代码实体的专栏
04-24 2万+
大家好，我是小小明。 之前我在《各类Excel表格批量合并问题的实现思路与案例》一文中演示了各种常见的表格合并的需求，但VBA复制粘贴的需求却没有演示，今天我演示一个基于VBA复制粘贴来实现表格合并的案例。 有一个Excel表有很多sheet： 现在我们需要在保留所有样式的情况下，将所有sheet合并到一个sheet中。我的实现思路如下： 创建一个新的sheet，将第一个sheet完整合并进去 将后面的sheet除了表头外都复制粘贴到新建的sheet中（排除掉不需要参与合并的sheet） 上面的操作人
VBA复制数据并粘贴到指定单元格
2301_79224207的博客
12-06 3051
'A是指数据源的列，i是数据源第一个数据所在的行，Ai就是定位。'B1是参数可以更改成输入数据的第一个单元格，定位。'N+2，实现b1，d1，f1，跨单元格粘贴。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值