EXCEL VBA中如何插入复制单元格

romswig 2006-02-09 01:47:48

没找到现成的方法
ActiveSheet.Paste会覆盖选中及下方单元格的数据

我想要的是插入，不是粘贴
请教各位有什么方法吗？

...全文

1033 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

romswig 2006-02-15

打赏
举报

正是使用中遇到的问题、虽然已经解决，当初也试了很多解决办法，比如先插行再粘贴，感觉麻烦了点，难道VBA里真的没有“插入复制单元格”对应的命令？

楼上的有具体的解决办法吗？

romswig 2006-02-15

打赏
举报

xlDown ???
天哪，我用了都不知道，汗自己一个

xinliangyu 2006-02-15

打赏
举报

'原数据右移
Range(XXX).Insert Shift:=xlToRight

xinliangyu 2006-02-11

打赏
举报

录制一段宏代码研究一下就会明白了．

VBA中实现Excel表格单元格复制，可以根据需要自行定制要复制的内容。包括值、格式、单元格宽度、背景色等

EXCEL vba 循环复制粘贴另存为新的文件VBA代码分别设置单元格内容 With Workbooks(ThisWorkbook.Name) Application.EnableEvents = False Application.ScreenUpdating = False Application.DisplayAlerts = False If Application.CutCopyMode = True Then Application.CutCopyMode = False Application.StandardFont = "宋体"

单元格：单元格是操作频率高的对象，单元格的表达，通过方法或属性获取等。数组：为了提高VBA的运算速度，特别讲解了数组。以及他的相关应用图形：这是精彩的部分。讲了图形的各种批量插入方式。通过坐标自动绘制...

以前用Excel2003做了些宏，在网上还有不少粉丝，因一些功能在Excel2010中无法使用，故重新整理，欢迎指正；本Excel中的宏在Excel2010中测试表现出色; 运行宏前，要保证EXCEL没有禁用宏。 Michael Ho QQ: 9900060 ----------------------- 本Excel有以下功能：插入图片1 1.点击执行后，会出现文件夹选择窗，请选择你JPG图片所在文件夹(选择“文件夹”而不是选择文件)； 2.宏会自动复制Sheet2到新工作簿，并插入你所选文件夹中的全部JPG图片到B列，对应的图片名自动填到C列； 3.图片的大小会自动适应Sheet2的B3单元格，因此可以在点击执行前调整Sheet2的B3单元格的大小来控制插入图片的大小。 -------- 插入图片2 1.点击执行后，会出现文件夹选择窗，请选择你JPG图片所在文件夹(选择“文件夹”而不是选择文件)； 2.宏会自动复制Sheet3到新工作簿，并插入你所选文件夹中的全部JPG图片制作图册，对应的图片名自动填到图片下方； -------- 插入图片3 如果用户自己的Excel文件中有一列是型号，该宏可以插入指定文件夹里以型号命名的JPG图片到另一列； 1.打开本Excel文件，不要关闭； 2.再另外打开你自己需要操作的另一个Excel文件，并保持你要操作的工作表做为当前活动工作表； 3.在你的文件中按Ctrl+I (或在你的文件中手动执行宏，然后选择本EXCEL文件中的宏InsertPic3）； 4.然后会出现文件夹选择窗，请选择你JPG图片所在文件夹(选择“文件夹”而不是选择文件)； 5.在弹出的对话框中指定型号在第几列，图片要插入到第几列，以及从哪一行开始； 6.图片的大小会自动适应你设定的第一行要插入图片的单元格，因此提前调整那个单元格的大小可以控制插入图片的大小。 ------------- 删除活动工作表中所有图片 Ctrl+d 删除活动工作表里所有的JPG图片，（不一定是本工作簿中的工作表）； 1.打开本Excel文件，不要关闭； 2.再另外打开你自己需要操作的另一个Excel文件，并保持你要操作的工作表做为当前活动工作表； 3.在你的文件中按Ctrl+d (或在你的文件中手动执行宏，然后选择本EXCEL文件中的宏DelPic）； ------------- 导出活动工作表中被选中的一张JPG图片 Ctrl+e 导出活动工作表中被选中的一张JPG图片，（不一定是本工作簿中的工作表）； 1.打开本Excel文件，不要关闭； 2.再另外打开你自己需要操作的另一个Excel文件，并保持你要操作的工作表做为当前活动工作表； 3.请选中一张要导出的图片； 4.在你的文件中按Ctrl+e (或在你的文件中手动执行宏，然后选择本EXCEL文件中的宏OutputOnePic）； 5.在弹出的对话框中指定图片要保存的名字； 1.不管图片在Excel中是否被缩放过，导出的图片是按图片的原始尺寸进行保存。 2.在桌面上会自动新建一个"OutputPic"的文件夹，导出的图片将会存在那个文夹里； 3.如果文件夹中已有相同名字的文件，则后面导出的文件会自动加上(v1), (v2), (v3)... ------------- 导出活动工作表中所有JPG图片 Ctrl+f 导出活动工作表中所有JPG图片，并且图片名自动使用指定列中的图片名； 1.打开本Excel文件，不要关闭； 2.再另外打开你自己需要操作的另一个Excel文件，并保持你要操作的工作表做为当前活动工作表； 3.在你的文件中按Ctrl+f (或在你的文件中手动执行宏，然后选择本EXCEL文件中的宏OutputAllPic）； 4.在弹出的对话框中指定图片所在列，图片名所在的列； 1.不管图片在Excel中是否被缩放过，导出的图片是按图片的原始尺寸进行保存； 2.在桌面上会自动新建一个"OutputPic"的文件夹，所有导出的图片将会存在那个文夹里； 3.如果文件夹中已有相同名字的文件，则后面导出的文件会自动加上(v1), (v2), (v3)... ---------------- 对指定文件夹中的JPG图片进行重命名 Ctrl+r 利用活动工作表中的所有图片的旧名与新名的对照，对指定文件夹中JPG图片进行重命名； 1.打开本Excel文件，不要关闭； 2.再另外打开你自己需要操作的另一个Excel文件，并保持你要操作的工作表做为当前活动工作表； 3.在你的文件中按Ctrl+r (或在你的文件中手动执行宏，然后选择本EXCEL文件中的宏RenamePic）； 4.在弹出的对话框中指定图片旧名所在列和图片新名所在的列； 1.可以结合插入图片的宏，将所有图片的旧名输入到Excel中，再在另一列中填上新图片名，然后使用该宏。 2.如果顺利运行，会在原来那个文件夹下面新建一个叫“New”的子文件夹，所有重命好名的图片会自动放入子文件夹里； 3.如果文件夹中已有相同名字的文件，则后面的文件会覆盖原来的文件。

VBA常用技巧目录第1章 Range（单元格）对象 3 技巧1 单元格的引用方法 3 1-1 使用Range属性 3 1-2 使用Cells属性 4 1-3 使用快捷记号 4 1-4 使用Offset属性 5 1-5 使用Resize属性 6 1-6 使用Union方法 7 1-7 使用UsedRange属性 7 1-8 使用CurrentRegion属性 8 技巧2 选定单元格区域的方法 8 2-1 使用Select方法 8 2-2 使用Activate方法 9 2-3 使用Goto方法 10 技巧3 获得指定行、列中的最后一个非空单元格 10 技巧4 定位单元格 13 技巧5 查找单元格 14 5-1 使用Find方法 14 5-2 使用Like运算符 18 技巧6 替换单元格内字符串 19 技巧7 复制单元格区域 20 技巧8 仅复制数值到另一区域 23 8-1 使用选择性粘贴 23 8-2 直接赋值的方法 24 技巧9 单元格自动进入编辑状态 25 技巧10 禁用单元格拖放功能 25 技巧11 单元格格式操作 26 11-1 单元格字体格式设置 26 11-2 设置单元格内部格式 28 11-3 为单元格区域添加边框 29 11-4 灵活设置单元格的行高列宽 31 技巧12 单元格中的数据有效性 32 12-1 在单元格中建立数据有效性 32 12-2 判断单元格是否存在数据有效性 33 12-3 动态的数据有效性 34 12-4 自动展开数据有效性下拉列表 36 技巧13 单元格中的公式 37 13-1 在单元格中写入公式 37 13-2 检查单元格是否含有公式 38 13-3 判断单元格公式是否存在错误 39 13-4 取得单元格中公式的引用单元格 40 13-5 将单元格中的公式转换为数值 41 技巧14 单元格中的批注 42 14-1 判断单元格是否存在批注 42 14-2 为单元格添加批注 43 14-3 删除单元格中的批注 44 技巧15 合并单元格操作 45 15-1 判断单元格区域是否存在合并单元格 45 15-2 合并单元格时连接每个单元格的文本 46 15-3 合并内容相同的连续单元格 47 15-4 取消合并单元格时在每个单元格中保留内容 49 技巧16 高亮显示单元格区域 50 技巧17 双击被保护单元格时不显示提示消息框 51 技巧18 重新计算工作表指定区域 53 技巧19 录入数据后单元格自动保护 53 技巧20 工作表事件Target参数的使用方法 55 20-1 使用单元格的Address 属性 55 20-2 使用Column属性和Row属性 56 20-3 使用Intersect方法 56

Office开发/ VBA

5,139

社区成员

17,886

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章