返回目录:excel表格制作
遇列数为3、13、23、33时在该列的首行、中间还是末行增加空白列?这个需求的目的是什么?
下图有五行数据,现在,要做的就是,在每两行(有数据)之间,分别都插入一空行。
实现的方法非常简单,但是请务必遵循如下操作,否则将前功尽弃。
首先,按下键盘上的CTRL键,按下就别松开,之后,使用鼠标左键去点击每一行的行标(即显示1、2、3、4、5……的最左边的那些按钮)。
注意哦,上述必须在按住CTRL键的时候使用左键去点选。想在哪行的前面插入空行,就选择哪一行。
选择好了之后,务必保持行的被选中状态,之后,在选中区域的任何一个地方,点击右键,在弹出的快捷菜单中选择“插入”命令。
就这样,极其简单,我们就在每行的上面,都插入了一个空行了。就是效果。
上述的方法适合于行数比较少的表,如果行数多,得使用其它操作方法。
下面提供VBA隔行插入空行的代码:
Dim a As Integer
Dim b As Integer
a = WorksheetFunction.CountA(Range("a:a"))
b = 2
For x = 1 To a
Rows(b & ":" & b).Select
Selection.Insert Shift:=xlDown
b = b + 2
Next将如上代e799bee5baa6e78988e69d83336码作为宏,在Excel中运行即可。
把问题作为内容(邮件主题一定要包含“excel”,本人以此为依据辨别非垃圾邮件,以免误删),excel样表文件(把现状和目标效果表示出来)作为附件发来看下
1.插入两个辅助列,在E1输入“=SUM(D$1:D1)”,后copy下拉。
2.在F1输入“=ROW(A1)-1”,后下拉。
3.在A5输入
“=if(row(a1)>sum($d$2:$d$4),"",index(a$2:a$4,lookup(row(a1),$e$1:$e$4,$f$1:$f$4)+1))”。
4.把A5的数据复制粘贴百到B5-F5。
5.复制第五列的数据到下面几列,直到显示出来所有列。
参考资料:度科-Excel函数" href="https://baike.baidu.com" target="_blank">百度百科-Excel函数