VBA code Filter by Array has Memory Full error. Please fix the code

[Excelpromax123]

Hello everyone on the Forum. I'm using the code below to filter an area with about 800,000 lines, but the code reports a memory full error as shown. I tried 500,000 and it didn't work. Please advise how to fix the error. Sincerely thank !

Sub test()
Dim sArr(), dArr(), Dk1 As String, I As Long, K As Long, R As Long, Col As Long, a As Long
a = 700000
sArr = Range("A1:S" & a).Value
R = UBound(sArr)
ReDim dArr(1 To R, 1 To 19)
For I = 1 To R
    If sArr(I, 6) = 3 Then
        K = K + 1
        For Col = 1 To 19
            dArr(K, Col) = sArr(I, Col)
        Next Col
    End If
Next I
Range("V1:AN1000000").ClearContents
Range("V1").Resize(K, 19) = dArr
End Sub

Data excel

test loc VBA.xlsm

drive.google.com

 

[ISY]

Hi

The code works correctly
Excel 365 Beta 64 Bit 32 Gh Ram

 

[Excelpromax123]

Hi

The code works correctly
Excel 365 Beta 64 Bit 32 Gh Ram

I am using Office 2010 32bit, computer ram 16gb but still error message

 

[ISY]

Hi


The primary benefit of using Office 64-bit instead of Office 32-bit, is the amount of available memory. With 32-bit Office, the application can only use 2GB of RAM memory, but with 64-bit Office there is no limit.

32-bit vs. 64-bit Office - Which do I have? What's the Difference?

This tutorial demonstrates how to check which version of Office (Excel, Outlook, Access, PowerPoint, Word, etc.) you have installed. It also discusses the

www.automateexcel.com