Selection.Insert Shift:=xlDown 插入行，
Selection.Insert Shift:=xlToRight 插入单元格，向右移
Selection.Insert Shift:=xlDown 插入单元格，向下移
另外告诉你个简单的方法，就是先开启录制新巨集，然后进行，你要的操作，然后开启巨集检视一下原始程式码就知道命令了。
比如说你想在第5行的上面插入一行，步骤如下:
1. 在最左边的数字5上点一下，选定第5行，
2. 点选滑鼠右键，出现一列选项，
3. 选择’插入（I），
完成后就会新生成一个第5行，原先第5行的内容就会向下移到第6行。
插入列同理。比如说你想在C列的前面插入一列，步骤如下:
1. 在最上面的字母C上点一下，选定C列，
2. 点选滑鼠右键，出现一列选项，
3. 选择’插入（I），
完成后就会新生成一个C列，原先C列的内容就会右移到D列。
1楼的方法有可取之处
不过不直接
如果你的公式是固定的.那么就用1楼的第1个: range("B14").Formula="=SUM(B1:F3)"
如果想用相对的,就是这样了,
range("B14").FormulaR1C1="sum(R1C:R3C[4])"
说明:
RC分表代表行列,后面的数字代表了相应的行列号,如果没加" [ ]" ,就是绝对引用,如果加了"[ ]"就是相对引用了. 方向由正负号控制
再举个例子:
比如: 当前单元格值总是等于它左边三个单元格的和.那么公式为:
activecell.FormulaR1C1="=sum(RC[-3]:RC[-1])"
1、选择列或者行的序号点选滑鼠右键选择插入
2、选择单元格点选滑鼠右键选择行或者列确定
3、选择单元格或列的序号或行的序号，在选单栏中选择插入行或者列。
电子表格批量插入行：
alt+ F11
插入模组
将下列程式码贴上进去
把50改成你实际需要插入的资料的行数
Sub 巨集1()
For i = 1 To 50
Selection.EntireRow.Insert
ActiveCell.Offset(2, 0).Range("A1").Select
Next i
End Sub
然后滑鼠选定第一行资料任意单元格，选择选单 工具-巨集-执行巨集，选择刚才的巨集1，执行
看你的问题补充，感觉你像是要做工资条，假设第一行是表头，即为你要复制的内容，那么程式码如下，注意需要选择第三行第一单元格（A3），执行巨集，否则可能出错
Sub 巨集1()
For i = 1 To 50
Selection.EntireRow.Insert
Rows("1:1").Copy'复制第一行资料，所以执行巨集的时候必须选择的是某行的开始单元格否则会粘贴出错
ActiveSheet.Paste
ActiveCell.Offset(2, 0).Range("A1").Select
Next i
End Sub
在工作列 插入 图形 选择圈的 可以调整位置及大小 双击调整线条颜色
满意请采纳
需要占上下两个单元格：用绘图工具里的直线，从上单元格左上角起至下单元格的右下角止，一个斜线不就出来了吗，输入文字的时候一个左对齐一个右对齐，样看上去就协调了,然后再按需要给单元格加边框。（大小也可任意调整）
如果你知道图片的Name 可以,如名称是"Picture 1" xlSheet.Shapes("Picture 1").delete 如果不知道名称,知道在单元格的位置,譬如顶点位置在$B$3 可以回圈判断后删除 For Each P In xlSheet.Shapes If P.Name Like "Picture*" and P.TopLeftCell.
插入-分页符
Excel表之所以不能拆分单元格，原因其实很简单，这就是这样一来，拆分者的本意是要把一个格子分成一几行或几列，但Excel表却无法对之进行定位了（即单元格到底是A1呢，还是C2呢），如果强行定位，则又不得不重新把所有的单元格进行移动和处理。这等于说：并没有进行拆分，而是重新排列了。
因而，电子表格的最基本单元是“单元格”，是不能拆分的，正因如此，才叫做“单元”格！
你把该单元格周围的单元格合并不就相当于拆分该单元格了吗，Excel只能这样处理