Excel VBA現在のセルの前にセルを挿入

Question

現在のセルの前にセルを挿入する正しい方法を見つけようとしています。

私は、行の中のいくつかのセルをループしています。正しい値が見つかると、それは右に移動します。

私はこのコードを試してみた：（位置ポストコードが始まるアクティブセルへの相対オフセットを指す値を持つ）

Dim shiftrng as Range 

For ctr = locatedPostCodeIndex To 4 

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

Next 

私はエラーを取得する：正しいとは何Method range of object _global failed

セルの前にセルを挿入する方法は？

Answer 1

変数を範囲オブジェクトに設定するときに.Selectを追加せず、セルオフセット先をRange(...)にラップする必要はありません。

Set shiftrng = cll.Offset(0, locatedPostCodeIndex)