VBA--批量间隔n行插入复制行

最新推荐文章于 2024-02-20 13:52:23 发布
最新推荐文章于 2024-02-20 13:52:23 发布
阅读量1.9k 收藏 2
点赞数 3
文章标签： 笔记 VBA 宏 excel
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/u012767184/article/details/130480469
版权
该文章详细介绍了如何使用VBA宏在Excel中执行行复制和插入操作。SubcopyTest函数从A100单元格开始，处理到第100行，从第22行开始，每隔11行插入已复制的第10行。文章还提供了调出和运行宏的快捷键及步骤。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

Sub copyTest()
n = [A100].End(1).Row '1排头行数,100=要处理到第几行
For i = 22 To n Step 11 '22=插入首行，11=间隔N行
Rows("10").Copy '10代表要复制的行，若是多行则 Rows("10:12")
Rows(i).Select  '选中的sheet处理
Selection.Insert Shift:=xlDown
i = i + 1
n = n + 2
Next
End Sub

###
office调出宏步骤：alt+F11，运行宏F5
或
文件-》更多-》选项-》自定义功能区-》开发工具-》代码-》宏-》确定

咸了烤鱼
关注
【EXCEL】使用VBA实现隔n行删除/插入若干空白行
weixin_41765578的博客
09-11 1282
日常工作中常常会遇到需要在EXCEL看板中批量删除/插入大量空白行的情况（通常为想要加入/删去某些指标），当看板数据量过大时，一条条手动插入是不现实且浪费时间的行为，VBA能够自动化地在excel中实现某些重复性动作，十分适合这类使用场景。
Excel VBA宏代码：复制数据并插入
m0_70207299的博客
07-15 2948
获取用户在Sheet1中选定单元格的内容。在Sheet2中根据选定内容进行筛选。统计筛选结果的行数。在Sheet1中选定行的下方插入相同数量的空行。按照指定顺序（B、E、G、C）从Sheet2中复制数据并粘贴到Sheet1的相应位置。这段VBA宏代码为Excel用户提供了一种简便的方法，能够根据选定的内容在工作表之间进行数据筛选和复制粘贴操作。通过自动化这些步骤，用户可以节省大量时间并减少手动操作的错误。
Excel - VBA的隔行拷贝功能
guoqx的专栏
08-21 3970
通常情况下，Cell1和Cell2是两个最小单元格，分别代表Range的左上角和右下角，上面的例子使用的是Selection来作为参数。我们看到，这个操作是固定位置的，我们将位置改成当前选中的位置，再指定合适的大小，就能完成自动拷贝。我们看到有5个Selection对象，但前面的库是不同的，我们上面代码使用的其中一个库的对象。我们看到是Excel.Global的成员，实际就是Excel.Application的成员。这样，选择某个单元，然后运行这个宏，就会把连着的3个单元格内容，拷贝到下一行。
Excel使用VBA代码，每隔m行插入n行(可以是n行空白行，也可以是n行经复制的固定内容行)
lihuanxina的博客
02-08 1289
Excel使用VBA代码，每隔m行插入n行(可以是n行空白行，也可以是n行经复制的固定内容行)
实用VBA：2.隔行插入空白行
周公笃行的博客
09-23 1517
工作中有时会需要将一个表格的行与行之间各插入一个空白行，即由每行一条数据改为隔一行一条数据（或每条数据占2行）；或根据需要在每行数据后插入数量不等待空白行，以供后续处理填入数据使用。实现方法有很多，此处为了练习VBA，分享一种使用VBA实现的方法和一种快速实现的操作技巧。
【实例】VBA excel 隔行插入行与列
神创的博客
03-14 6767
参考：https://jingyan.baidu.com/article/d621e8da25177a2865913fb5.html效果代码Sub 插入空列() For i = 1 To 20 '20即插入20列 Cells(1, 2 * i).Select '(1,2*i)即在第1行，2*i列处插入 Selec...
Test - VBA - EXCEL
02-04
这个脚本可能实现了在Excel表格的每m列或行之间插入n个空白列或行的功能，这对于组织数据、创建间隔或者准备数据格式化可能很有帮助。 3. **vba自带密码**： 这可能是指如何为VBA宏设置密码保护，以防止未经授权...
Excel单元格内插入图片（VBA创建函数，根据图片名称批量插入，中间有空格）
yujiaerzong的博客
03-20 4524
1. 详细步骤见Excel单元格内插入图片（VBA创建函数，根据图片名称批量插入）2. VBA代码部分改为如下代码Sub 插入图形应用() For Each shap In Sheet1.Shapes If shap.Type <> 8 Then shap.Delete Next shap     Dim j As Long     j = 2     'If Cells...
Excel-VBA宏编程实例源代码-常规函数应用-一键制作标题.zip
12-13
在Excel VBA中，通过编写宏，可以一键执行复杂的任务，如批量生成标题，节省大量手动操作的时间。 首先，我们要了解VBA宏的基础。宏是用VBA语言编写的代码序列，当在Excel中运行时，可以执行一系列预定义的动作。在...
【VBA】批量插入图片
weixin_30432179的博客
02-18 1486
解决如下问题： 需要批量导入图片到Excel 图片放在一个文件夹中 图片有严格的顺序关系，即按照：共通名_编号的方式命名。 图片格式统一，即均为同一格式。 有两种方式可以插入图片到Excel中，其一为插入快捷方式，在自己的电脑可以显示，但在别人的电脑显示不了。 其二为添加图片到文件，也有几种保存方式，可以选择。 > 现约定： 图片文件夹为PicPath 图片的共通名为PicComNam...
点击一个按钮后一行数据自动复制粘贴到指定行
09-23
这个功能，可以让你自己用Excel做出一些小型的系统来。方便你根据自己的情况做出自动添加某数据行的效果。
VBA行拷贝
Ctrain的专栏
05-05 7097
Sub 拷贝信息()Dim workbookTmp As Workbook Dim worksheetTmp As Worksheet Dim rangTmp As Range Dim i% Dim j% Dim newI%'当前工作表格可以使用ThisWorkbook '也可以 Debug.Print ThisWorkbook.Name Debug.Print ActiveWorkbook.Nam
如何在 Excel VBA 中插入行
wyxtx的博客
01-11 5117
如何在 Excel VBA 中插入行？
bootstrap insertrow始终插入到最后一行_用VBA批量隔行插入时要避免陷入这个误区！...
weixin_29669143的博客
12-19 274
我的目标：让中国的大学生走出校门的那一刻就已经具备这些office技能，让职场人士能高效使用office为其服务。支持我，也为自己加油！前几天刚写过一篇文章：《听说这是制作工资单最快的办法》里面代码是这么写的：Sub制作工资条()Dimi%,r$,r1$,n%,r2$,r3$Fori=3To[a1].End(xlDown).Row r=r&i&...
第046篇：VBA之单元格移动与复制、行列插入与删除
liujinli0712的博客
06-11 5192
老师问小鱼：“你这次考试作弊了吧，老实说你抄谁的？” 小鱼回答：“老师，我抄蚌的……” 老师：“你棒个屁！”
VBA来实现跨工作簿的批量复制粘贴
热门推荐
MARST.ZHANG的博客
08-01 1万+
技术没有老旧之分,有时VBA的技能,会因为使用的方便,也能快速实现需求.不破坏源数据,只把源数据引用到其它文件,再开始计算.
VBA自动动态复制数据
神奇的BI
07-01 1556
实例需求：根据A3单元格（黄色）的输入值动态复制第11行数据，并且在A列填充顺序编号，如下图所示。 如果A3单元格输入的数值小于当前已复制的行数，则清除多余数据行。如果A3单元格为0时，则仅保留序号1的行内容，和A3单元格为1时的效果相同，如下图所示。
VBA：批量复制sheet内指定内容
麻辣清汤的博客
02-20 877
【代码】VBA：批量复制sheet内指定内容。
VBA 从一个Excel文件复制一行数据到另一个Excel文件
emowuyi
12-22 8147
临时用到VBA，做一个需求：把不在同一个文件中的数据复制到一个文件中。 新建过程，如下： Sub 复制行() Dim mybook As Workbook Set mybook = Workbooks("2011明细表.xls") Dim target As Workbook Set target = Workbooks("详单.xls")...
怎么在excel中批量插入空行
最新发布
04-03
<think>好的，我现在需要帮用户解决在Excel中批量插入空行的问题。用户提到了使用VBA或者快捷方式，所以我得先回忆一下这两种方法的具体步骤和可能的相关引用。 首先，关于VBA方法，我记得引用[2]和[5]里都有涉及插入空行的例子。比如引用[2]中的宏InsertBlankRows，可能是一个基础的方法，而引用[5]则更灵活，允许隔n行插入j个空白行。用户可能想要一个通用的方法，所以需要提供一个可定制的VBA代码，或者分步骤的示例。 然后是快捷方式，用户可能不想写代码，所以需要找一些Excel内置的功能。比如引用[3]提到的定位条件（Ctrl+G）选择空行，但这里可能需要结合其他步骤。不过插入空行通常没有直接的快捷键，可能需要辅助列或排序的方法。比如添加序号，然后复制序号并在下方粘贴，再排序，这样原来的数据之间会有空行。这种方法需要详细步骤，可能需要参考引用[3]中的定位控制步骤。 另外，引用[4]提到了插入方法的语法，即Range.Insert，这在VBA中是关键，需要正确使用参数。比如如何确定插入的位置和数量。 现在需要组织这些信息，分VBA和快捷方式两部分回答。VBA部分给出两种方法：基础每行后插入和隔n行插入j行。快捷方式部分使用辅助列和排序的方法。 还要注意用户提到的引用，确保正确标注来源。例如引用[2]中的宏示例，引用[5]的隔行插入，引用[3]的定位和辅助列方法。 需要检查步骤是否清晰，代码是否正确，是否有遗漏。比如在VBA中，循环应该从下往上处理，避免行号变化导致的问题。辅助列方法需要详细说明如何操作，避免用户混淆。 可能的问题点：使用辅助列时，用户可能不理解为什么要复制序号，或者如何排序。需要一步步解释，确保易懂。 总结下来，回答结构应该是先VBA方法，再快捷方式，每种方法下分步骤说明，并引用相关的引用来源。最后生成相关问题，比如优化VBA代码，处理不同间隔等。</think>### 分步说明：Excel批量插入空行的两种方法 --- #### **方法一：使用VBA宏实现（灵活定制）** 1. **打开VBA编辑器** 按 `Alt + F11` 打开VBA编辑器，在左侧项目窗口右键插入新模块。 2. **粘贴以下代码** ```vba Sub InsertBlankRows() Dim i As Long, n As Integer, j As Integer n = InputBox("请输入间隔行数（例如隔2行输入2）") '用户自定义间隔行数 j = InputBox("请输入每次插入空行数") '用户自定义插入行数 For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -(n + 1) Rows(i + 1 & ":" & i + j).Insert Shift:=xlDown Next i End Sub ``` - **代码说明**：从最后一行开始向上循环，每隔`n`行插入`j`个空行，避免行号错乱[^5]。 3. **运行宏** 按 `Alt + F8` 打开宏对话框，选择`InsertBlankRows`，按提示输入参数后运行[^2]。 --- #### **方法二：快捷方式（无需代码）** 1. **创建辅助列** - 在数据右侧空白列（如B列）输入序号：在B1输入`1`，B2输入`2`，选中B1:B2后双击填充柄生成连续序号。 2. **复制并扩展序号** - 复制B列所有序号，粘贴到B列最后一个数据下方（例如原数据到B100，则粘贴到B101开始）。 - 将粘贴后的序号整体增加0.5（例如在空白处输入`=B100+0.5`，向下填充）。 3. **按B列排序** 选中全部数据区域（含辅助列），点击 **数据 → 排序 → 按B列升序排列**。此时每条数据下方会自动插入空行[^3]。 --- ### **两种方法对比** | 方法 | 优点 | 适用场景 | |------|------|----------| | VBA | 可定制间隔行数和插入数量，适合复杂需求 | 频繁操作、大量数据 | | 快捷方式 | 无需编程，操作直观 | 简单隔行插入，少量数据 | ---
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值