Lỗi thời gian chạy '9': Chỉ số nằm ngoài phạm vi

Xin chào, tôi mới sử dụng Macro, VBA và Kutools.

Tôi đang chạy macro để trích xuất văn bản rồi đến số trong các ô riêng biệt. Kutools hoạt động tốt khi tôi chạy nó, tuy nhiên khi tôi làm theo quy trình tương tự để tạo macro, tôi nhận được thông báo lỗi:

Windows("KutoolsHelper.xlam").Visible = True

Đây dường như là nơi xảy ra lỗi trong quá trình gỡ lỗi.

Tôi đã thêm Kutoolsforexcel trong Công cụ/Tham khảo


ConvetYardsToMiles phụ ()
'
' Vĩ mô ConvetYardsToMiles
'

'
Cột("I:I").Chọn
Lựa chọn. Sao chép
Selection.Insert Shift: = xlToRight
Application.CutCopyMode = Sai
Lựa chọn. Sao chép
Selection.Insert Shift: = xlToRight
Cột("J:J").Chọn
Windows("KutoolsHelper.xlam").Visible = True
ActiveWindow.Vosystem = False
Cột("K:K").Chọn
Windows("KutoolsHelper.xlam").Visible = True
ActiveWindow.Vosystem = False
ActiveWindow.SmallScroll ToRight:=1
Phạm vi("L2").Chọn
ActiveCell.FormulaR1C1 = "=IF(RC[-2]=""mi"",RC[-1],RC[-1]/1760)"
Phạm vi("L2").Chọn
Selection.AutoFill Đích:=Phạm vi("L2:L832")
Phạm vi("L2:L832").Chọn
Cột("L:L").Chọn
Selection.NumberFormat = "0.00 Dặm"
Cột("L:L").Chọn
Cột("L:L").EntireColumn.AutoFit
Lựa chọn.ColumnWidth = 14.91
Phạm vi("L1").Chọn
ActiveCell.FormulaR1C1 = "Dặm đã đi"
Phạm vi("L2").Chọn
ActiveWindow.SmallScroll ToRight:=-1
Cột("H:K").Chọn
Lựa chọn.EntireColumn.Hidden = True
ActiveWindow.SmallScroll ToRight:=-4
Cột("L:L").Chọn
Với sự lựa chọn
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.Định hướng = 0
.AddIndent = Sai
.IndentLevel = 0
.ShrinkToFit = Sai
.ReadingOrder = xlContext
.MergeCells = Sai
Kết thúc với
Với sự lựa chọn
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Định hướng = 0
.AddIndent = Sai
.IndentLevel = 0
.ShrinkToFit = Sai
.ReadingOrder = xlContext
.MergeCells = Sai
Kết thúc với
Hàng ("1: 1"). Chọn
Phạm vi("C1").Kích hoạt
Lựa chọn.Font.Bold = Sai
Lựa chọn.Font.Bold = True
Với Selection.Font
.Name = "Arial"
.Strikethrough = Sai
.Superscript = Sai
.Subscript = Sai
.OutlineFont = Sai
.Shadow = Sai
.Dấu chân = xlUnderlineStyleNone
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
Kết thúc với
Với Selection.Font
.Name = "Arial"
.Kích thước = 12
.Strikethrough = Sai
.Superscript = Sai
.Subscript = Sai
.OutlineFont = Sai
.Shadow = Sai
.Dấu chân = xlUnderlineStyleNone
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
Kết thúc với
Với sự lựa chọn
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = Sai
.Định hướng = 0
.AddIndent = Sai
.IndentLevel = 0
.ShrinkToFit = Sai
.ReadingOrder = xlContext
.MergeCells = Sai
Kết thúc với
End Sub