Breaking News: Grepper is joining You.com. Read the official announcement!

Table to Array

Nutty Narwhal answered on July 14, 2022 Popularity 6/10 Helpfulness 1/10

answer Table to Array

Table to Array

Comment

Sub SingleColumnTable_To_Array()

Dim myTable As ListObject
Dim myArray As Variant
Dim TempArray As Variant
Dim x As Long

'Set path for Table variable
  Set myTable = ActiveSheet.ListObjects("Table1")

'Create Array List from Table
  TempArray = myTable.DataBodyRange
  
'Convert from vertical to horizontal array list
  myArray = Application.Transpose(TempArray)

'Loop through each item in the Table Array (displayed in Immediate Window [ctrl + g])
  For x = LBound(myArray) To UBound(myArray)
    Debug.Print myArray(x)
  Next x
  
End Sub

Popularity 6/10 Helpfulness 1/10 Language vb

Source: Grepper

Tags: vba

Link to this answer
Share Copy Link

Contributed on Jul 14 2022

Nutty Narwhal

0 Answers Avg Quality 2/10

Continue with Google

By continuing, I agree that I have read and agree to Greppers's Terms of Service and Privacy Policy.

Table to Array

Contents

More Related Answers

Table to Array

Grepper

Documentation

Social

Legal

Contact

Oops, You will need to install Grepper and log-in to perform this action.