通過Excel循環並插入值

Question

我在窗體上有兩個文本框。一個是字符串，另一個是由vbnewline分隔的值。一旦它到達文本框中的字符串「Total」，它應該在兩列之後插入字符串。如果我插入列A併到達等於=「總計」的單元格，它應該開始插入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

您可以在此查看我的修訂答案。