vba 数组如何重新定义数组大小？

将你的代码修改为以下，利用变量j表示要写入brr的行数：

Sub shaixuan()
    Dim arr, brr()
    Range("F1") = "Name"
    Range("G1") = "Price"
    arr = Range("A2:B6")
    ReDim brr(1 To UBound(arr), 1 To 2)
    j = 1
    For i = 1 To UBound(arr)
        If arr(i, 2) > 400000 Then
            brr(j, 1) = arr(i, 1)
            brr(j, 2) = arr(i, 2)
            j = j + 1
        End If
    Next i
    MsgBox UBound(brr)
    Range("F2").Resize(UBound(brr), 2) = brr
End Sub

 其实你这个不用数组也能实现你要的目的，如下：

Sub shaixuan1()
    Range("F1") = "Name"
    Range("G1") = "Price"
    For i = 2 To [b65536].End(3).Row
        If Cells(i, 2) > 400000 Then
            Range(Cells(i, 1), Cells(i, 2)).Copy Range("f" & [f65536].End(3).Row + 1)
        End If
    Next
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/v33jrfvrre3erxrffe7.html