Как поместить данные таблиц запросов VBA в один столбец?

Question

Помогите пожалуйста, я использую код ниже. Мне нужны только данные, чтобы перейти в столбец N, при использовании цикла for он проходит по всем столбцам. Как я могу это исправить?

 Dim W As Worksheet: Set W = ActiveSheet
Last = W.Range("A1500").End(xlUp).Row
If Last = 7 Then Exit Sub
Dim Symbols As String
Dim i As Integer
Dim j As Integer

' Code below Loops on the stock tickers and concatenate them
For i = 8 To Last Step 200
    Symbols = "" 'value to reset the string during loop

    For j = i To i + 199
        Symbols = Symbols & W.Cells(j, 1) & "+"
    Next j

        Symbols = Left(Symbols, Len(Symbols) - 1)

        'Debug.Print Symbols ' delete this later

  Dim URL As String: URL = "http://finance.yahoo.com/d/quotes.csv?s=" & Symbols & "&f=snl1p2kjr5rp6s7m3m8"

         With ActiveSheet.QueryTables.Add(Connection:="URL;" & URL, Destination:=W.Range("$N$" & i))
            .BackgroundQuery = True
            .TablesOnlyFromHTML = True
            .Refresh BackgroundQuery:=False
            .FillAdjacentFormulas = False
            .SaveData = True
        End With

Next i

Answer 1

Кажется, проблема вызвана тем, что добавление нового QueryTable ранее добавленные QueryTable один столбец вправо.

Это можно отменить, добавив следующий код сразу после оператора End With . Для каждого нового QueryTable после первого он удалит один столбец ячеек слева от ранее добавленных QueryTable(-ов), переместив их горизонтально.

If i <> 8 Then
    Range("N8", W.Range("$N$" & i).Offset(-1)).Delete (xlShiftToLeft)
End If