用VBA如何把二维数组空值去除，同时其他有值再赋给另一区域，请大家多多指教，谢谢！

Sub 重设数组()
    Dim ar(10) As Range, br(10) As Range
    Set ra = ActiveSheet.UsedRange
        For i = 1 To 10
            Set ar(i - 1) = ra.Rows(i)
                If Not Cells(i, 1) = Empty Then
                    Set br(a) = ar(i - 1)
                    br(a).Copy Cells(a + 1, 5)
                    a = a + 1
                End If
        Next
End Sub

你看看这样是否合你的需求

追问

你好，谢谢帮忙，但我还想请教一下，如果数组包含上图中所有区域（可能位置不固定），但我又想把上表中黄色部分中空值删除，再把数组赋值给另一区域，VBA代码又怎么弄啊！

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

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