VBA Offset.Value возвращает пустой для полной ячейки

Я пытаюсь пройти через ряд полей в документе Excel, и если они не пустые, добавьте их и значения ячеек C и D в коллекцию.
xlWB передается из Sub, который вызывает это.
Он распознает значение, которое я тестирую, и i.Value возвращает X, что и я ожидаю.
Но i.Offset(0, -9).Value и i.Offset(0, -8).Value возвращаются пустыми в окне отладки.

 Dim KogrRng As range Dim i As range Dim nField As String Dim nValue As String Dim fldCol As Collection Dim valCol As Collection Set KogrRng = xlWB.Sheets("KoGr").range("L22:L500") For Each i In KogrRng If (i.Value = "") Then 'skip Else nField = xlWB.Sheets("KoGr").i.Offset(0, -9).Value & " " & xlWB.Sheets("KoGr").i.Offset(0, -8).Value nValue = i.Value Debug.Print (nField & ", " & nValue) fldCol.ADD nField valCol.ADD nValue End If Next i 

Спасибо за любую помощь!

это должно это сделать

 Dim KogrRng As Range Dim i As Range Dim nField As String Dim nValue As String Dim fldCol As Collection Dim valCol As Collection Set KogrRng = xlwb.Sheets("KoGr").Range("L22:L500") For Each i In KogrRng If (i.Value = "") Then 'skip Else nField = i.Offset(0, -9).Value & " " & i.Offset(0, -8).Value nValue = i.Value Debug.Print (nField & ", " & nValue) fldCol.Add nField valCol.Add nValue End If Next i 

offset -9 и -8 из столбца L соответствуют столбцам C и D. Квалификация i с xlwb.sheets («KoGr») дает ошибку, она уже квалифицирована в определении KoGrRng.

Пожалуйста, попробуйте приведенный ниже код !.

 Dim KogrRng As Range Dim i As Range Dim nField As String Dim nValue As String Dim fldCol As New Collection Dim valCol As New Collection Set KogrRng = Sheets("KoGr").Range("L22:L500") For Each i In KogrRng If (i.Value = "") Then 'skip Else nField = i.Offset(0, -9).Value & " " & i.Offset(0, -8).Value nValue = i.Value Debug.Print (nField & ", " & nValue) fldCol.Add nField valCol.Add nValue End If Next i 
  • Цикл SQL с python и pyodbc
  • MS ACCESS - VBA - ФОРМЫ, КАСАЮЩИЕСЯ ДАННЫХ ДИСПЛЕЯ
  • Внешние данные «из Access» создают различный список доступных запросов / таблиц в зависимости от пользователя
  • Решение для поиска строки из списка, в другую строку VBA
  • Более простой способ использования объявленных строк в запросе в VBA
  • Как правильно запросить, если флажок установлен в Access из Excel
  • Синтаксическая ошибка (отсутствующий оператор) при ссылке на Excel, запрос выполняется нормально
  • excel: front-end to sql server
  • Переключить данные строки в заголовки столбцов
  • Как сделать excel combobox.value запуском другого текстового поля из базы данных доступа
  • Как удалить повторяющиеся и оригинальные записи либо в доступе, либо в excel (несколько столбцов)
  • Давайте будем гением компьютера.