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

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