excel vba 最后一行如何隔行插入三行并复制上一行用VBA,并且写上1,2,3

如何快速批量,每隔三行插入一行_excel吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名:今日本吧第个签到,本吧因你更精彩,明天继续来努力!
本吧签到人数:0成为超级会员,使用一键签到本月漏签0次!成为超级会员,赠送8张补签卡连续签到:天&&累计签到:天超级会员单次开通12个月以上,赠送连续签到卡3张
关注:136,263贴子:
如何快速批量,每隔三行插入一行收藏
我自己用了个笨办法,先在第一行上插入一空白行Sub InsertTitle() Line = 5 While Cells(Line, 1) && "" Range(Rows(1), Rows(1)).Copy Rows(Line).Insert xlDown Line = Line + 4 Wend End Sub
ui培训哪个好,0基础+双证+实战「就业无忧」
网上有这个工具,你可以百度一下。你的代码应该从最后一行向上插
考虑以下的代码, 主要简化的是一次插入需要的行. Sub test()Line = 5Cells(Line, 1).SelectWhile Cells(Line, 1) && ""Union(Selection, Cells(Line, 1)).SelectLine = Line + 3WendSelection.EntireRow.InsertEnd Sub
那么隔几行插入几行怎么做?——我就是我,是颜色不一样的烟火。请叫我[小龙哥]#
我记得兔神曾发过回复解这个问题,非常非常简单经典,不需要编程的。
如A、B二列有数据则C列编写序号到有数据的行,从没有数据的行的C列在序号后面加3.1、6.1选定这二个数下拉,C列排序
加辅助列 前面排序号
3后面用空行 辅助列都是4 然后按辅助列排序即可
加个辅助列 前面非空行 编号 123123…以此类推 后面加空行 用前面的总行数除以3 就是要加的行数 非空行编号 444……最后按这个辅助列全体排序即可
你可以这样 辅助列输入公式 =IF(MOD(ROW(),4)=0,"",ROW()) 然后下拉到最下面 然后选中这列删除空值
这样就会得到一个没有 4 倍数的序列 然后你再在下面 的辅助列输入 4 8 12 这样下拉 最后按照辅助列排序就行了
你好,我想每隔两行插入两行,怎写宏?对宏还不太会。。。谢谢~~~
下面这是原表大概的样子,前面姓名工号都是合并单元格。 灰色填充是两行标题行。想要实现每个人名前面都插入灰色的两行标题行,怎么做???有合并单元格,能实现吗?
最终效果如下图:
登录百度帐号推荐应用
为兴趣而生,贴吧更懂你。或(window.slotbydup=window.slotbydup || []).push({
id: '3284507',
container: s,
size: '0,0',
display: 'inlay-fix'
如何在Excel中隔行插入多行三例
通常在Excel中隔行插入多行的方法是在辅助列中输入数值或公式,然后进行排序。下面是几个示例:
示例一:间隔一行插入多行
如图,要在每个&姓名&的后面插入2行,步骤如下:
1.以C列为辅助列,在C2、C3分别输入数字&1&、&2&,然后选择这两个单元格,双击填充柄填充序列到C11单元格。
2.在C12单元格中输入公式:
=CEILING(ROW(A1),2)/2
=INT((ROW(A1)-1)/2)+1
然后拖动填充柄向下填充公式,直到公式返回结果的最大值大于A列&姓名&的数量,本例为&10&。
这两个公式的作用是在C列产生类似&1、1、2、2&&10、10&的序列,以便排序后将空行排列到各&姓名&行的下方。如果要插入N行,将公式中用红色标识的数字&2&替换成N即可。
3.按辅助列升序排序:选择C2单元格,点&A&Z&按钮排序。
4.删除C列。
示例二:间隔多行数插入多行
如图,两个&姓名&为一组,要在每组的后面插入3行,步骤如下:
1.在C2中输入公式:
=IF(A2=&&,INT((ROW(A1)-COUNTA(A:A))/3),INT((ROW(A1)-1)/2))+1
然后拖动填充柄填向下充公式,直到公式返回结果的最大值大于B列&组别&的数量(C11单元格),本例为5。
2.按C列升序排序即可得到结果。
4.删除C列。
本例中也可分两次在辅助列中输入类似示例一中的公式后再排序。
示例三:间隔不等数量的行插入多行
如图,要在每户最后一个&姓名&的下面插入2个空白行。
1.在C2中输入公式:
=IF(A2&&&&,COUNTIF(B$2:B2,&户主&),INT((ROW(A1)-COUNTA(A:A))/2)+1)
然后拖动填充柄填向下充公式,直到公式返回结果的最大值大于B列户数(C19单元格),本例为5。
2.按C列升序排序即可得到结果。
标签(Tag):
------分隔线----------------------------
------分隔线----------------------------
猜你感兴趣}

我要回帖

更多关于 vba 复制一行数据 的文章

更多推荐

版权声明:文章内容来源于网络,版权归原作者所有,如有侵权请点击这里与我们联系,我们将及时删除。

点击添加站长微信