循环Excel列并插入值

Question

表单上有两个文本框。一个具有字符串，另一个具有由vbnewline分隔的值。一旦它到达文本框中的字符串“Total”，它应该在两列之后插入字符串。如果我在A列中插入并到达等于=“Total”的单元格，它应该开始插入C列中的字符串和D列中的值，依此类推。现在，下面的代码仅将所有内容插入两列（A＆amp; B）而不转到下一列。当单元格值等于“总计”时，如何开始在（C＆amp; D），（E，＆amp; 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

你可以在那里看看我修改过的答案。