使用count、for、while实现Excel序列填充及求和

实现思路 #

• 初始化count变量为0，作为序列的起始数值
• 用For循环遍历1到10行，为每行的A列单元格赋值当前count值
• 借助While循环遍历B到E列（对应列号2到5），将A列当前行的数值同步到目标列
• 完成一行的所有列填充后，递增count值，进入下一行循环

VBA代码实现 #

Sub FillSequence()
    Dim count As Integer
    count = 0 ' 初始化序列起始值
    
    ' 遍历A1到A10对应的行
    For rowNum = 1 To 10
        ' 为当前行A列赋值
        Cells(rowNum, 1).Value = count
        
        ' 同步填充B至E列
        Dim colNum As Integer
        colNum = 2
        While colNum <= 5
            Cells(rowNum, colNum).Value = count
            colNum = colNum + 1 ' 列号递增
        Wend
        
        count = count + 1 ' 序列数值递增
    Next rowNum
End Sub

代码说明 #

• count变量负责生成0到9的序列，每次循环后自增1，确保数值依次递增
• For rowNum = 1 To 10限定了行范围，刚好覆盖A1到A10的10行数据
• While colNum <=5实现了从B列到E列的横向填充，每完成一列后列号加1，直到E列（第5列）结束
• Cells(rowNum, colNum)通过行号和列号精准定位单元格，完成数值写入

执行上述宏后，A1-A10会依次填入0至9的序列，同时B1-E10的对应单元格会同步相同数值，与预期效果一致。

内容的提问来源于stack exchange，提问作者Yoyes