.Cell(1, 3).Range = “扩展名”
.Rows.Last.Select
Selection.InsertRowsBelow 1
With .Rows.Last
.Cells(1).Range = 1
.Cells(2).Range = 2
.Cells(3).Range = 3
End With
End With
End Sub
代码运行效果如下：

猜你喜欢

• excel函数公式之SERIES公式
• excel工作簿所有工作表中的多值替换
• 阻止Excel将某些文本自动转换为超链接
• excel图表怎么查找指定数据
• 怎么更早地体验到Excel的最新功能？
• excel数据透视表怎么创建导航工作表
• 给图表数据标签添加表示增加或减少的箭头标记
• excel图表技巧：显示数据有效性列表
• 怎么不打开Excel文件删除行？
• excel图表怎么创建动态的目标线