Creating an array from non-contiguous ranges

[David]

Is there an efficient way of creating a multidimensional
array from non-contiguous ranges?

The following only works because the ranges are contiguous:

Dim vaData As Variant
vaData = Range("A17:R18","A19:R20").Value

 

[Tom Ogilvy]

Only by doing it a cell at a time.