Excel vba：插入单元格/行而不移动选定的单元格

Question

xldown插入并移动选定的单元格/行 即Range(*****).Insert Shift:=xlDown

但我想做的是将选定的行保持为原样并将下面的行向下移动。

有人可以帮忙写vba吗？

提前致谢

Answer 1

对于使用

的单个列

Dim rng1 As Range
Set rng1 = Range("A1:A10")
rng1.Cells(1).Offset(rng1.Cells.Count).Resize(rng1.Cells.Count, 1).Insert Shift:=xlDown

将从A11:A20

插入单元格