整行插值：VBA插值代码结果无法导出至其他工作表问题求助

嘿，我来帮你搞定这个插值结果导出的问题！从你给出的代码片段来看，大概率是没有明确指定目标工作表的写入范围，或者插值计算后的结果没有正确传递过去。我先把常见问题点列出来，再给你修正后的完整示例代码。

常见问题排查点 #

• 你可能在写入结果时用了ActiveSheet，但当前激活的工作表不是你想要的目标表，导致结果“失踪”
• 插值计算后的结果变量没有正确赋值到目标工作表的单元格
• xs、ys这些Range对象的引用可能没有和目标数据对应

修正后的完整代码示例 #

假设你的插值逻辑是基于已知的x/y列，对特定值（存在Sheet2!A1）进行线性插值，然后把结果导出到Sheet3，我补全并修正了代码：

Sub interp()
    Dim temp As Long
    Dim var As Long, var1 As Long, vy As Long
    Dim xs As Range, ys As Range
    Dim lastrow As Long, lastcol As Long
    Dim targetWs As Worksheet ' 定义目标工作表对象
    
    ' 获取要插值的目标值
    temp = Sheet2.Range("A1").Value
    
    ' 明确指定源数据所在工作表（这里是Worksheets(1)，你可以改成实际表名）
    With Worksheets(1)
        lastrow = .Cells(.Rows.Count, 1).End(xlUp).Row
        lastcol = .Cells(2, .Columns.Count).End(xlToLeft).Column
        
        ' 假设xs是第1列的x值，ys是第2列的y值（根据你的实际数据调整）
        Set xs = .Range(.Cells(2, 1), .Cells(lastrow, 1))
        Set ys = .Range(.Cells(2, 2), .Cells(lastrow, 2))
    End With
    
    ' 指定结果要导出的目标工作表（比如Sheet3，改成你实际需要的表）
    Set targetWs = ThisWorkbook.Worksheets("Sheet3")
    
    ' 这里是线性插值的核心逻辑（你可以替换成你自己的插值算法）
    Dim xVal As Variant, yVal As Variant
    For var = 1 To xs.Rows.Count - 1
        If temp >= xs.Cells(var, 1) And temp <= xs.Cells(var + 1, 1) Then
            ' 线性插值公式
            yVal = ys.Cells(var, 1) + (temp - xs.Cells(var, 1)) * _
                   (ys.Cells(var + 1, 1) - ys.Cells(var, 1)) / _
                   (xs.Cells(var + 1, 1) - xs.Cells(var, 1))
            Exit For
        End If
    Next var
    
    ' 把插值结果写入目标工作表的指定位置（比如A1单元格，你可以调整）
    targetWs.Range("A1").Value = "插值目标值"
    targetWs.Range("B1").Value = temp
    targetWs.Range("A2").Value = "插值结果"
    targetWs.Range("B2").Value = yVal
    
    ' 如果要批量导出后续列的插值结果，循环处理即可
    For vy = 3 To lastcol
        ' 重新获取当前列的ys范围（后续列的y值）
        With Worksheets(1)
            Set ys = .Range(.Cells(2, vy), .Cells(lastrow, vy))
        End With
        
        ' 重新计算插值
        For var = 1 To xs.Rows.Count - 1
            If temp >= xs.Cells(var, 1) And temp <= xs.Cells(var + 1, 1) Then
                yVal = ys.Cells(var, 1) + (temp - xs.Cells(var, 1)) * _
                       (ys.Cells(var + 1, 1) - ys.Cells(var, 1)) / _
                       (xs.Cells(var + 1, 1) - xs.Cells(var, 1))
                Exit For
            End If
        Next var
        
        ' 写入目标工作表的对应列
        targetWs.Cells(1, vy).Value = "列" & vy & "目标值"
        targetWs.Cells(1, vy + 1).Value = temp
        targetWs.Cells(2, vy).Value = "列" & vy & "插值结果"
        targetWs.Cells(2, vy + 1).Value = yVal
    Next vy
    
    MsgBox "插值结果已成功导出到" & targetWs.Name & "！"
End Sub

关键修正说明 #

1. 明确指定工作表对象：用targetWs变量绑定目标工作表，避免ActiveSheet带来的不确定性
2. 清晰的结果写入逻辑：直接用targetWs.Range("XX").Value把插值结果写入目标表的指定位置
3. 批量处理后续列：通过循环vy处理所有后续列的插值，并对应写入目标表
4. 避免隐式引用：所有Cells、Range都加上工作表前缀（比如.Cells在With块里，或者targetWs.Cells），防止引用错误

如果你的插值算法不是线性的，只需要替换中间的插值计算部分即可，核心就是把计算好的yVal赋值给目标工作表的单元格。

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