비쥬얼베이직(엑셀)으로 DB 관련 작업중입니다(완전 초보입니다)

'작업번호를 14자리로 자름

For i = 2 To 100000

If (Len(Cells(i, 1)) > 14) Then

Cells(i, 1).Value = Left(Cells(i, 1).Value, 14)

End If

Next i

위와 같은 코드로 작성했는데 시간이 엄청 걸립니다

데이터가 쌓이면 몇십만 줄이 될텐데 속도 개선할만한 방법이 있을까요?

바쁘시겠지만 조언 부탁 드립니다!