小编H0c*_*k99的帖子

我有一堆代码通过一组数据,然后找到数据进入下一个值步骤的行(5个单位增量).找到此位置后,将插入5行,在这些行中,STDEVP,MIN,MAX和AVERAGE将在该数据块的范围内计算.输入之后,循环继续遍历数据,直到它到达最后一行(lastRow变量).代码如下所示:

Sub sectionBlocking()
Dim lastRow As Integer
Dim lastColumn As Integer
Dim sectionLastRow As Integer
Dim initialValue As Double
Dim cellDifference As Double
Dim stepSize As Integer
Dim firstCell As Integer
Dim lastCell As Integer
firstCell = 2
lastCell = 2
initialValue = 84
stepSize = 5
lastRow = Range("A1").End(xlDown).Row
lastColumn = Range("A1").End(xlToRight).Column
For x = 2 To lastRow
    cellDifference = Range("B" & (x)).Value - initialValue
    If Abs(cellDifference) > 1 Then
        lastCell = x - 1
        Range("B" & (x)).EntireRow.Insert
        Range("A" …