Return array to sheet

[tiredofit]

If I want to return the values of an array to the worksheet, I write:

Sheet1.Cells(1,1).Resize(10,20).Value = MyArray()

But what if my array is "not normal"?

My data is as follows:

Name1-LastName1
Name2-LastName2

I wrote the following to split it:

Dim DataArray() As Variant

DataArray() = Cells(1, 1).CurrentRegion.Value

For Counter = 1 To 2
    
    NameArray(Counter, 1) = Split(DataArray(Counter, 1), "-")
    
Next Counter

If I try:

Sheet2.Cells(1, 1).Resize(2,1).Value = NameArray()

it no longer works.

It's because NameArray looks like this in the Locals Window:

NameArray(1)
    NameArray(1,1)
        NameArray(1,1)(0)
        NameArray(2,1)(1)

How can I return the values of NameArray to the worksheet?

Thanks

 

[tiredofit]

If I want to return the values of an array to the worksheet, I write:

Sheet1.Cells(1,1).Resize(10,20).Value = MyArray()

But what if my array is "not normal"?

My data is as follows:

Name1-LastName1
Name2-LastName2

I wrote the following to split it:

Dim DataArray() As Variant

DataArray() = Cells(1, 1).CurrentRegion.Value

For Counter = 1 To 2
  
    NameArray(Counter, 1) = Split(DataArray(Counter, 1), "-")
  
Next Counter

If I try:

Sheet2.Cells(1, 1).Resize(2,1).Value = NameArray()

it no longer works.

It's because NameArray looks like this in the Locals Window:

NameArray(1)
    NameArray(1,1)
        NameArray(1,1)(0)
        NameArray(2,1)(1)

How can I return the values of NameArray to the worksheet?

Thanks

Must I loop to return the values?

For Counter = 1 To 2

    Sheet2.Cells(Counter, 1) = NameArray(Counter, 1)(0)
    Sheet2.Cells(Counter, 2) = NameArray(Counter, 1)(1)

Next Counter