EXCEL VBA使用数组进行数据交换

EXCEL VBA使用数组进行数据交换

Sub uRngTomRng()
    Dim avntNum() As Variant, avntDate() As Variant
    avntNum = Range("a1:a11")
    avntDate = Range("b1:b11")
    Range("a1:a11") = avntDate()
    Range("b1:b11") = avntNum()
End Sub

Sub ArrTest()
    Dim avntTest() As Variant
    Dim avntTestTwo(0 To 2) As Variant
    avntTest() = Array(1, 2, 3)
End Sub