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单元格