Extract a single column data from an array

tiredofit

Well-known Member
Joined
Apr 11, 2013
Messages
1,926
Office Version
  1. 365
  2. 2019
Platform
  1. Windows
In Sheet1 I have 10 columns of data.


I want to extract only the second column, so have used this:


Code:
    Dim TotalArray() As Variant


    TotalArray() = Sheet1.Cells(1, 1).CurrentRegion.Value
    
    Dim NewArray() As Variant
    
    NewArray = Application.Index(TotalArray(), 0, 2)

With only a few rows of data, it works as expected.

However when I have a few thousand rows, it fails with this message:


Code:
Run-time error 13


Type mismatch



Is this a well known problem with lots of data?



Thanks
 

Excel Facts

Shade all formula cells
To shade all formula cells: Home, Find & Select, Formulas to select all formulas. Then apply a light fill color.
Your code works well with 300,000 records.
But Try this, it works with 300,000 records too.

Code:
    Dim TotalArray As Range
    Dim NewArray As Variant


    Set TotalArray = Sheet1.Cells(1, 1).CurrentRegion
    NewArray = TotalArray.Columns(2)
 
Upvote 0

Forum statistics

Threads
1,224,823
Messages
6,181,175
Members
453,021
Latest member
Justyna P

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top