Get values from union of non-contiguous ranges into array with VBA with a simple command (no loops)

by

Provided each area in rng has the same number of rows then this should work.

Function ToArray(rng) As Variant()
    Dim arr() As Variant, r As Long, nr As Long
    Dim ar As Range, c As Range, cnum As Long, rnum As Long
    Dim col As Range

    nr = rng.Areas(1).Rows.Count
    ReDim arr(1 To nr, 1 To rng.Cells.Count / nr)
    cnum = 0
    For Each ar In rng.Areas
        For Each col In ar.Columns
        cnum = cnum + 1
        rnum = 1
        For Each c In col.Cells
            arr(rnum, cnum) = c.Value
            rnum = rnum + 1 'EDIT: added missing line...
        Next c
        Next col
    Next ar

    ToArray = arr
End Function

Usage:

Dim arr
arr = ToArray(Activesheet.Range("A1:A5,D1:D5"))
Debug.Print UBound(arr,1), UBound(arr,2)

As for why array from rng.Value are 1-based instead of zero-based, I’d guess it’s because that maps more readily to actual row/column numbers on the worksheet than if it were zero-based. The Option Base x setting is ignored

More Related Contents:

  1. Excel-VBA – Insert new first column in datafield array without loops or API calls
  2. Creating an Array from a Range in VBA
  3. Expanding column cells for each column cell
  4. How do I slice an array in Excel VBA?
  5. Check if a value is in an array or not with Excel VBA
  6. Matching values in string array
  7. Deleting Elements in an Array if Element is a Certain value VBA
  8. Is it possible to fill an array with row numbers which match a certain criteria without looping?
  9. How to automatically input an array formula as string with more than 255 characters in length into an excel cell using VBA?
  10. Return Index of an Element in an Array Excel VBA
  11. Writing an array to a range. Only getting first value of array
  12. Excel VBA: Range to String Array in 1 step
  13. Faster way of using Sumifs()
  14. How to initialize a multidimensional array variable in vba for excel
  15. VBA using ubound on a multidimensional array
  16. Turn Excel range into VBA string
  17. Why am I having issues assigning a Range to an Array of Variants
  18. Subscript out of range error with an array – no idea why?
  19. VBA Excel large data manipulation taking forever
  20. Performance difference between looping range vs looping array
  21. Create Chart from Array data and not range
  22. Excel VBA Quickest way to sort an array of numbers in descending order?
  23. Simple VBA array join not working
  24. Excel VBA – How to Redim a 2D array?
  25. ReDim Preserve “Subscript Out of Range”
  26. VBA array sort function?
  27. How to find if an array contains a string [duplicate]
  28. Sorting a multidimensionnal array in VBA
  29. Declare and Initialize String Array in VBA
  30. How do I Merge two Arrays in VBA?

Leave a Comment