Sub InsertMania()
'Insert row above active cell
ActiveCell.EntireRow.Insert
'Insert row below active cell
ActiveCell.Offset(1).EntireRow.Insert
'Insert column to the left of the active cell
ActiveCell.EntireColumn.Insert
'Insert column to the right of the active cell
ActiveCell.EntireColumn.Offset(0, 1).Insert
End Sub
文章標籤
全站熱搜
