Question

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

也就说上表A1：D10 赋给一个二维数组，然后把二维数组里面空值删除，再把二维数组赋值给另一单元格区域

Answer 1

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代码又怎么弄啊！