VBA:对每行最右边的单元格求和？

Sub SumLastCellInEachRow()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim sumRange As Range
    Dim sumCell As Range
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将"Sheet1"替换为实际的工作表名称
    
    ' 获取最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    ' 循环遍历每一行
    For i = 1 To lastRow
        ' 获取当前行的最后一个单元格
        Set sumCell = ws.Cells(i, ws.Columns.Count).End(xlToLeft)
        
        ' 获取当前行的求和范围（从第一列到最后一个单元格）
        Set sumRange = ws.Range(ws.Cells(i, 1), sumCell)
        
        ' 求和并将结果显示在当前行的最后一个单元格
        sumCell.Value = WorksheetFunction.Sum(sumRange)
    Next i
End Sub