Excel：创建新行和插值

Question

我正在寻找能够通过A列（时间）并创建一个新行的Excel宏，其中每个整数都应该是。创建新行后，需要为该新行插入D和E列的值。该行也应突出显示。最后，应隐藏所有突出显示的行（这可以通过按单元格颜色过滤来完成）。

我想出的最大问题是何时插入新行，因为它们之间并不总是相同的行数。我想过比较相邻行中的单元格，但我不确定如何做到这一点。

下面的图片有助于解释我的需求。 （减去隐藏的行）Image Example

Answer 1

我认为这就是你想要的。不是VBA解决方案，而是Excel版本

1. 创建一个包含您要使用的整数值的表格（单元格＆＃39; E3＆＃39;及以下）
2. 找到最近的数字index=MATCH(E3,$B$3:$B$105)
的行
3. 获取上一个和后一个t值t1=INDEX($B$3:$B$105, $F3)和t2=INDEX($B$3:$B$105, $F3+1)
4. 获取上一个和后一个x值x1=INDEX($C$3:$C$105, $F3)和t2=INDEX($C$3:$C$105, $F3+1)
5. 插值x值x=FORECAST(E3,I3:J3,G3:H3)

Answer 2

这是您的最大问题的代码＆＃34; ....我不确定你想要什么数学＆＃34;插值＆＃34;部分：

Sub Insert_whole_Number_row()
    C = 1
    R = ActiveCell.Row
    If Cells(R, C) = "" Then Exit Sub
    Do Until Cells(R, C) = ""
        If Int(Cells(R, C)) <> Int(Cells(R + 1, C)) Then
            Rows(R + C).Insert
            R = R + 1
            Cells(R, C) = Int(Cells(R + 1, C))
            Range(Cells(R, C), Cells(R, C + 5)).Interior.ColorIndex = 6
        End If
        R = R + 1
    Loop
    MsgBox "Done...."
End Sub