[已解决]这个是怎么循环的 ，讲讲好吗

yql4688

请问这是怎么在循环呀，谁给讲讲哦
Sub 汇总()
'定义循环变量
    Dim i As Integer
    Dim j As Integer
    Dim TotalRows As Integer
    Dim TotalColumns As Integer
    '获取当前区域的总行数
    TotalRows = Worksheets("Sheet1").Range("A1"). _
        CurrentRegion.Rows.Count
    TotalColumns = Worksheets("Sheet1").Range("A1").CurrentRegion. _
        Columns.Count

    For j = 2 To TotalColumns
        Cells(TotalRows, j).Value = 0
        For i = 4 To TotalRows - 1
            Cells(TotalRows, j).Value = Cells(i, j).Value + _
                Cells(TotalRows, j).Value
        Next i
    Next j
End Sub

最佳答案

月排行榜 / 总排行榜

zjdh

2012-4-2 17:54

    For j = 2 To TotalColumns    '从第二列到最后一列循环
        Cells(TotalRows, j).Value = 0   '数据区每列的最后一单元清除为“0”
        For i = 4 To TotalRows - 1      '数据区每列从第4行到最后一单元的上一单元循环
            Cells(TotalRows, j).Value = Cells(i, j).Value + _   '该列各单元累加到最后一单元
                Cells(TotalRows, j).Value
        Next i
    Next j

跳转到最佳答案楼层

zjdh

    For j = 2 To TotalColumns    '从第二列到最后一列循环
        Cells(TotalRows, j).Value = 0   '数据区每列的最后一单元清除为“0”
        For i = 4 To TotalRows - 1      '数据区每列从第4行到最后一单元的上一单元循环
            Cells(TotalRows, j).Value = Cells(i, j).Value + _   '该列各单元累加到最后一单元
                Cells(TotalRows, j).Value
        Next i
    Next j

yql4688

厉害，非常感谢 ，希望以后还能得到你的帮助

fjmxwrs

yql4688 发表于 2012-4-4 09:52
厉害，非常感谢 ，希望以后还能得到你的帮助

代码可以直接简化，去除不必要的循环，以提高运行速度
For j = 2 To TotalColumns    '从第二列到最后一列循环
    Cells(TotalRows, j).Value = Application.Sum(Cells(4, j), Cells(TotalRows - 1, j)) '对每列第四行到最后一行的上一行区域求和
Next j

yql4688

再请教你一下，编程是否也要先画结构图这样清晰些

yql4688

看起来要学的人很多

iyanhf

多谢，学习下。

javabang

学习一下，谢谢分享。