Getting values in range into one column

[matthewjapp]

I have a table in DL1:GN3500

There are values in some of the cells in each column.

I need to filter across the 81 columns and paste only results with values into column GO but keep adding to that range in GO ie across the range DL1:GN3500 there may be say 1000 values in the range and I need a list of the 1000 vales in GO

What's the best way to do this? Any help much appreciated!

 

[NeonRedSharpie]

Sub gettingAllThoseValuesIntoOneColumnBecauseScrewTablesYEA()



Dim nextRow As Long
nextRow = 1


    For Each cell In Range("DL1:GN3500")
    
        If cell.Value <> "" Then
            Cells(nextRow, 197) = cell.Value
            nextRow = nextRow + 1
        End If
    Next cell


End Sub

 

[matthewjapp]

Sub gettingAllThoseValuesIntoOneColumnBecauseScrewTablesYEA()



Dim nextRow As Long
nextRow = 1


    For Each cell In Range("DL1:GN3500")
    
        If cell.Value <> "" Then
            Cells(nextRow, 197) = cell.Value
            nextRow = nextRow + 1
        End If
    Next cell


End Sub

EPIC )

 

[matthewjapp]

EPIC )

This code seems to take a long time to run. Is there not a faster way to get through that massive table using filter for each of the 81 columns?

 

[NeonRedSharpie]

This code seems to take a long time to run. Is there not a faster way to get through that massive table using filter for each of the 81 columns?

Sub gettingAllThoseValuesIntoOneColumnBecauseScrewTablesYEA()

Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual


Dim nextRow As Long
nextRow = 1




    For Each cell In Range("DL1:GN3500")
    
        If cell.Value <> "" Then
            Cells(nextRow, 197) = cell.Value
            nextRow = nextRow + 1
        End If
    Next cell


Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic


End Sub

You can add the standard three speed boosts. As for filters, you probably could but I don't know if it would be faster.