Excel VBA在当前单元格之前插入单元格

Question

I'm trying to find the right way to insert a cell before the current cell.

I'm looping through a number of cells in a row - when it finds the right value I want it shifted to the right.

I've tried this code: (located post code has a value pointing to the offset relative to the starting active cell)

Dim shiftrng as Range

For ctr = locatedPostCodeIndex To 4

    Set shiftrng = Range(cll.Offset(0, locatedPostCodeIndex)).Select
    shiftrng.Insert.xlShiftToRight

Next

I get an error: Method range of object _global failed

What is the correct way to insert a cell before a cell?

Answer 1

在将变量设置为范围对象时，无需添加.Select ，并且不需要将单元格偏移量目标包装在Range(...) 。

Set shiftrng = cll.Offset(0, locatedPostCodeIndex)