求助代码没报错但没生成数据

Justin-2016

代码没报错没生成数据.rar (30.89 KB, 下载次数: 3)

2022-4-30 19:31 上传

点击文件名下载附件

Justin-2016

Sub twl()
    Dim i&, arr, brr(1 To 50000, 1 To 15), k&
    Sheet4.Activate
    arr = Sheet8.[a1].CurrentRegion
    For i = 3 To UBound(arr)
        If arr(i, 21) = "刘备" Or arr(i, 21) = "张飞" Then
            k = k + 1
            brr(k, 1) = arr(i, 1)
            brr(k, 2) = arr(i, 2)
            brr(k, 3) = arr(i, 9)
            brr(k, 4) = arr(i, 10)
            arr(i, 11) = brr(k, 5)
            brr(k, 6) = arr(i, 12)
            brr(k, 7) = arr(i, 13)
            brr(k, 8) = arr(i, 14)
            brr(k, 9) = arr(i, 15)
            brr(k, 10) = arr(i, 16)
            brr(k, 11) = arr(i, 17)
            brr(k, 12) = arr(i, 18)
            brr(k, 13) = arr(i, 21)
            brr(k, 14) = arr(i, 22)
            brr(k, 15) = arr(i, 26)
                       
        End If
    Next
    [a3].Resize(k, 15) = brr
End Sub