런타임 오류 '9': 아래 첨자가 범위를 벗어났습니다.

안녕하세요, 저는 Macros, VBA 및 Kutools를 처음 사용합니다.

텍스트를 추출한 다음 별도의 셀에서 숫자를 추출하는 매크로를 실행하고 있습니다. Kutools는 실행할 때 제대로 작동하지만 동일한 프로세스를 따라 매크로를 만들면 오류 메시지가 나타납니다.

Windows("KutoolsHelper.xlam"). 보이는 = True

이것은 디버깅에서 오류가 발생하는 위치인 것 같습니다.

도구/참조에 Kutoolsforexcel을 추가했습니다.


하위 ConvetYardsToMiles()
'
' ConvetYardsToMiles 매크로
'

'
열("I:I").선택
선택. 복사
Selection.Shift 삽입:=xlToRight
Application.CutCopyMode = False
선택. 복사
Selection.Shift 삽입:=xlToRight
열("J:J").선택
Windows("KutoolsHelper.xlam"). 보이는 = True
ActiveWindow.Visible = 거짓
열("K:K").선택
Windows("KutoolsHelper.xlam"). 보이는 = True
ActiveWindow.Visible = 거짓
ActiveWindow.SmallScroll ToRight:=1
범위("L2").선택
ActiveCell.FormulaR1C1 = "=IF(RC[-2]=""mi"",RC[-1],RC[-1]/1760)"
범위("L2").선택
Selection.AutoFill 대상:=범위("L2:L832")
범위("L2:L832").선택
열("L:L").선택
Selection.NumberFormat = "0.00마일"
열("L:L").선택
열("L:L").전체 열.자동 맞춤
Selection.ColumnWidth = 14.91
범위("L1").선택
ActiveCell.FormulaR1C1 = "주행 거리"
범위("L2").선택
ActiveWindow.SmallScroll ToRight:=-1
열("H:K").선택
Selection.EntireColumn.Hidden = 참
ActiveWindow.SmallScroll ToRight:=-4
열("L:L").선택
선택과 함께
.HorizontalAlignment = xl일반
.VerticalAlignment = xlCenter
.방향 = 0
.AddIndent = 거짓
.Indent레벨 = 0
.ShrinkToFit = 거짓
.ReadingOrder = xlContext
.MergeCells = 거짓
끝
선택과 함께
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.방향 = 0
.AddIndent = 거짓
.Indent레벨 = 0
.ShrinkToFit = 거짓
.ReadingOrder = xlContext
.MergeCells = 거짓
끝
행("1:1").선택
범위("C1").활성화
Selection.Font.Bold = 거짓
Selection.Font.Bold = 참
Selection.Font 포함
.Name = "Arial"
. 취소선 = 거짓
.위 첨자 = 거짓
.아래 첨자 = 거짓
.OutlineFont = 거짓
.그림자 = 거짓
.밑줄 = xlUnderlineStyleNone
.색조 및 음영 = 0
.ThemeFont = xlThemeFontNone
끝
Selection.Font 포함
.Name = "Arial"
크기 = 12
. 취소선 = 거짓
.위 첨자 = 거짓
.아래 첨자 = 거짓
.OutlineFont = 거짓
.그림자 = 거짓
.밑줄 = xlUnderlineStyleNone
.색조 및 음영 = 0
.ThemeFont = xlThemeFontNone
끝
선택과 함께
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = 거짓
.방향 = 0
.AddIndent = 거짓
.Indent레벨 = 0
.ShrinkToFit = 거짓
.ReadingOrder = xlContext
.MergeCells = 거짓
끝
최종 하위