1.如图报表所示,在2E列添加a、3F列添加a,选定与其相对角的4个单元格,鼠标放置选滚孝定单元格右下角,拉选定致整个报表的长度,格式即岁备缓进行了复制,如图所示:
2.按ctrl+G快捷键,定位条件,选定常量,点击确定,如图所示:
3.不要移动鼠标使格式变换,点击鼠标右键,出现下拉框,选择插入整行,所图所示:
4.第三步骤第二种方法,开始工具栏乎模找到插入单元格,选定整行,点击确定,如图所示:
5.然后,单元格以经批量插入一行,清除E、F列的内容,再根据自己的需求进行调整,批量插入行的任务就完成了,如图所示:
看这样是大散不铅芹是能给你点滚激氏参考。
Sub zxc()
For i = 13 To 1 Step -5 '注意倒序,每隔几行插入就写“ -* ”这里是-5,需要从多少行开始插入就在=号和TO之间输入*行。这里是13行。
If Sheet1.Cells(i, 1) <> "" Then
Rows(i + 1 & ":" & i + 3).Insert '插入3行,每次插入几行就输入*行
Sheet1.Cells(i, 2) = Sheet1.Cells(i, 1)
End If
Next i
End Sub
在免费赠送一个瞎颤合并的vb宏,自己领磨悄败悟。运兄
Sub Macro2()
For i = 2 To 20 Step 4 '从第二行开始到20行,每4行合并一次
If Sheet1.Cells(i - 1, 2) <> "" Then
Range(Cells(i - 1, 2), Cells(i + 2, 2)).Merge '合并4行
End If
Next i
End Sub
都是2行合并的很规律的数据么?如果是,不用VBA,分分钟搞定,上传附件
考虑用VBA,建议上传附件。