按道理是从26开始就应该显示如下内容了:
26  383
27  396
每次增加13.因为(500-370)/(35-25)=13.
在从36开始就应该显示
36  514
37  528  
因为(640-500)/(45-35)=14.
但是现在没一向都是加了(370-250)/(25-15)=12啊.

Dim a, b, c, d, e, n, m, x, row, col As Integer
Dim lngCount    As Long
Dim iRows       As Long

With MSFlexGrid2

    x = MSFlexGrid1.Rows
   
    lngCount = 1
    .Rows = lngCount
    .Cols = 2
   
    For m = 1 To x - 2
   
        a = Val(MSFlexGrid1.TextMatrix(m, 0))
        b = Val(MSFlexGrid1.TextMatrix(m, 1))
        c = Val(MSFlexGrid1.TextMatrix(m + 1, 0))
        d = Val(MSFlexGrid1.TextMatrix(m + 1, 1))
        
        e = Int((d - b) / (c - a))
        
        iRows = MSFlexGrid1.Rows

        .Rows = .Rows + c - a

        MSFlexGrid2.TextMatrix(0, 0) = "高度"
        MSFlexGrid2.TextMatrix(0, 1) = "容积"
        
        For n = a To c
            
            .TextMatrix(lngCount - 1, 0) = n
            
            .TextMatrix(lngCount - 1, 1) = (n - a) * e + b
        
        Next n
        
    Next m
   
End With
你再试试