Проблема с управлением строкой Excel-VBA

Question

Я пытаюсь скопировать некоторые 8-значные числа для использования в SQL-поиске.

SQL-запрос дал мне ошибки, и после некоторой отладки я обнаружил, что строка не содержит всех данных. Кажется, что после 25 или около того числа мой цикл for останавливает ввод данных, как будто строка заполнена.

Спасибо за помощь ...

Lots = "" 
For iRow = 2 To 500 
    If IsEmpty(Sheets("Filtered Data").Cells(iRow, 2)) Then Exit For 
    Lots = Lots & ",'" & Sheets("Filtered Data").Cells(iRow, 2).value & "'" 
Next iRow 

Lots = "(" & Mid(Lots, 2, Len(Lots) - 1) & ")" 

Answer 1

вы должны размещать ваши данные поднимая ошибку

за то время как вы можете рассмотреть следующий код для создания-вверх по строка использования Join() функция

Dim Lots As String 

With Worksheets("Filtered Data") '<--| change "Filtered Data" with your actual worksheet name 
    With .Range("B2", .Cells(.Rows.Count, 2).End(xlUp)) '<-- consider its column "B" cells from row 2 down to last non empty one 
     Lots = "('" & Join(Application.Transpose(.Value), "','") & "')" '<-- build up the string 
    End With 
End With 

это предполагает, что все не пустые ячейки в столбце «B» являются смежными (т.е. не пустые ячейки между непустых из них), но она может быть легко модифицирована если это не будет так

Answer 2

Ваш код прекрасно работает. Вероятно, у вас есть пустая ячейка в столбце, который делает его выход из цикла ....