这个替换VBA怎么优化呢，数据超过6200后就不会替换

abclhx

Sub ReplaceAndMerge()
    Dim i As Long
    Dim lastRow As Long
    Dim regEx As Object
    Dim arrI As Variant
    Dim arrK As Variant
   
    Set regEx = CreateObject("VBScript.RegExp")
    regEx.Pattern = "\b6\."
    regEx.Global = True
   
    lastRow = Range("I" & Rows.Count).End(xlUp).Row
   
    arrI = Range("I1:I" & lastRow).Value
    arrK = Range("K1:K" & lastRow).Value
   
    For i = 1 To lastRow
        arrI(i, 1) = regEx.Replace(arrI(i, 1), "006:0")
        arrK(i, 1) = Replace(arrK(i, 1), "8.", ",008:0")
    Next i
   
    Range("I1:I" & lastRow).Value = arrI
    Range("K1:K" & lastRow).Value = arrK
   
End Sub

3190496160

目前的代码是根据I列判断最大行的行号的，是不是I列的行数比其他列少？？
没有附件，只能猜

abclhx

我自己找到问题了，的确是I列数据比其他列数据少导致的，谢谢！