Цикл через Excel Диапазоны Заполнение Combobox VB.Net

У меня есть программа, которая требует итерации через очень большой диапазон excel, чтобы объединить два диапазона в одно значение combo box. У меня есть следующий код, чтобы сделать это, но все, что он делает, перебирает первое значение пять раз. Если я удалю первый цикл FOR, то он просто возвращает только первое значение и никогда не завершается. Любые предложения о том, что я могу сделать, чтобы отполировать этот код и заставить его работать?

Dim i As Integer If TenantBox.SelectedItem = "CNS" Then WFMBook.Workbooks.Open("C:\Schedule.xlsx") For i = 0 To 5 Step +1 For Each CNSCell In WFMBook.Range("A3:A1441").Cells f = CNSCell.Value.ToString Next For Each tst In WFMBook.Range("B3:B1441").Cells l = tst.Value.ToString Next ComboBox1.Items.Add(f + " " + l) If (i = 5) Then Exit For End If Console.WriteLine(i) Next End If 

Попробуйте это, просто измените x на 1, если VBA на 1.

 If TenantBox.SelectedItem = "CNS" Then WFMBook.Workbooks.Open("C:\XHSchedule.xlsx") Dim colCount = WFMBook.Range("A3:A8").Cells.Count For x = 1 To colCount Step +1 For Each CNSCell In WFMBook.Range("A3:A8").Cells f = WFMBook.Range("A3:A8").Cells(x).Value.ToString l = WFMBook.Range("B3:B8").Cells(x).Value.ToString Next ComboBox1.Items.Add(f + " " + l) Next End If 
  • Используйте циклы VBA для поиска изменяющегося списка значений и удаления их?
  • vba Значения вставки Excel: автоматический: ошибка 1004 руководство: ОК
  • Как повторить код VBA, используя For-Loop
  • Мой код vba не зацикливается до моего желаемого номера. но если я положил его в excel и использовал решатель, он работает
  • Является ли эта строка ненужной линией в VBA?
  • VBA: как описать строку с определенной строкой
  • Как улучшить примитивный код VBA для модели DCF?
  • excel vba для каждого цикла
  • VBA - Как правильно работать с объединенными ячейками / большими зонами?
  • Как я могу пропустить ячейки в цикле, содержащем строку, используя VBA
  • pandas повторяют строки, а затем прерываются до состояния
  • Давайте будем гением компьютера.