VBA 如何打印一维数组中存在的数据

Timothy21

目前我知道的是可以通过MsgBox Join(arr, vbCr)打印一个一维数组，但是我的一维数组arr现在的四个元素是【empty,empty,empty,4】,前三个empty都会打印成空白的一行，有方法可以只打印出存在的数据吗？谢谢

爱疯

Sub test2()
    Dim A(), B(), i, j
    A = Array(Empty, Empty, Empty, 4, 7)


    For i = LBound(A) To UBound(A)
        If Not VBA.IsEmpty(A(i)) Then
            ReDim Preserve B(j)
            B(j) = A(i)
            j = j + 1
        End If
    Next i


    MsgBox VBA.Join(B, vbCr)
End Sub




这样可以吗

爱疯

Sub test3()
    Dim A
    A = Array(Empty, Empty, Empty, 4, 7)
    A = Split(Application.Trim(Join(A)))
    MsgBox Join(A, vbCr)
End Sub