Цикл через столбцы Excel и значения вставки

Question

У меня есть два текстовых поля на форме. У одного есть строка или у другого есть значения, разделенные vbnewline. Как только он достигнет строки «Всего» в текстовом поле, она должна вставить строку после двух столбцов. Если я вставил в столбец A и достиг ячейки, которая равна = «Total», она должна начать вставлять строки в столбце C и значения в столбце D и так далее. Сейчас код ниже вставляет все только в два столбца (A & B), не переходя к следующим столбцам. Как начать вставлять строки и значения в следующие столбцы, например (C & D), (E, & F) и т. Д., Когда значение ячейки равно «Всего»?

Dim RowNum As Integer = 2 
Dim ColNum As Integer = 1 



    xlWorkSheet.Cells(1, 1).value = "Word" 
    xlWorkSheet.Cells(1, 2).value = "Value" 
    For Each cellA As String In txtWord.Text.Split(vbLf) 
     xlWorkSheet.Cells(RowNum, ColNum).value = cellA 
     RowNum += 1 
     If xlWorkSheet.Cells(RowNum, ColNum).value = "Total" Then 
      ColNum += 2 
     End If 
    Next 
    RowNum = 2 
    For Each cellB As String In txtValue.Text.Split(vbLf) 

     xlWorkSheet.Cells(RowNum, 2).value = cellB 
     RowNum += 1 
     ColNum += 2 
    Next 

Answer 1

Это тот же вопрос, который вы задавали ранее. См .: Display the textboxes results in Excel sheet cells in vb.net

Вы можете проверить мой пересмотренный ответ.