Vb.net 加上「；索姆；在桌子的最后

这是我的代码：

     xlWorkSheet = CType(xlWorkBook.Sheets(ComboBox1.Text), Excel.Worksheet)
    xlWorkSheet.Activate()
    xlApp.Visible = True


    Dim j As Integer
    Dim lastrow As Integer
    Dim lastcol As Integer


    With xlWorkSheet
        .Select()
        j = xlApp.Cells.SpecialCells(2).Column
        lastrow=xlApp.Cells.SpecialCells(2).Rows.End(XlDirection.xlDown).Row                                              
         lastcol = xlApp.Cells.SpecialCells(2).Columns.End(XlDirection.xlToRight).Column
        For thiscol = j To lastcol
            .Cells(lastrow + 1, thiscol).Value = _
            xlApp.Sum(.Range(.Cells(1, thiscol), .Cells(lastrow, thiscol)))
        Next
    End With

我想在表的末尾加上“sum”一词

---

当我找到表的末尾时，我在

next'后面插入单词“sum”
，在
前面以“添加一行”结尾，如：

.cells(lastRow + 2, 1).value = "Somme"

将把“索姆”一词放在第一列的最后一行数据之后。
你认为表的末尾是什么？就像最后一列中的每个单元格都应该有单词“Sum”或行中的每个单元格都应该有单词“Sum”？当我计算表的和时，我希望它位于表的第一个冒号的末尾，在单词“i have 0”之后，你能告诉我如何删除它吗？我不想问，当我在表格末尾有0时，我想将世界somme写入单元格，但你介意发布一张你的意思的图片吗。我真的很难弄清楚你到底在找什么。如果我有一张你的表的图片，当子程序运行时，你想要什么，我也许能把它弄清楚。titre BSC Name Site Name Cell Name TCH Traffic（Erl）BSFXE1 BOURGUIBA02 26CK2GA 9,36 BSFXE2 AJENGA 44AJEGC 19,47 BSFXE1 BOURGUIBA02 26BG1GA 4,43 Somme 0 33.26我想删除这些0结果是：Somme | 0 | 0 | 33.26 i要删除0吗