Excel VBA 현재 셀 앞에 셀 삽입

Question

현재 셀 앞에 셀을 삽입하는 올바른 방법을 찾으려고합니다.

행의 셀 수를 반복합니다. 올바른 값을 찾으면 오른쪽으로 이동하고 싶습니다.

나는이 코드를 시도했다 : (위치 포스트 코드를 가리키는 값을 갖는 개시 오프셋 (offset) 현재 셀을 기준으로)

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

범위 개체에 변수를 설정할 때 Range(...)에 셀 오프셋 대상을 래핑 할 필요가없는 경우 .Select을 추가하지 마십시오.

Set shiftrng = cll.Offset(0, locatedPostCodeIndex)