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? - Automate Excel

This tutorial demonstrates how to check which version of Office (Excel, Outlook, Access, PowerPoint, Word, etc.) you have installed. It also discusses the differences between the versions and why you might choose one over another. Do I have 32-bit or 64-bit Office? Below, you will learn how to...

www.automateexcel.com