interpolation

i b2 (lige under 1830,1) skal du finde ud af stigningen i forhold til b1.
Så 1937,6 - 1830,1 er ændringen, og 2,1 - 2,0 er interval. Så der er ændret (1937,6 - 1830,1) / 10 pr interval = 10,75 + 1830,1, så b2 = 1840,85
I c1 til c10 wer der ingen ændring, så c2 er stadig 44,821
Du må selv lave formlen i regnearket - det er din del. Jeg har vist princippet.

Hvis tallene står i cellerne A1:G21 kan du i celle B2 indsætte nedenstående formel og kopiere den til hele området B2:G10

=B$1+(B$11-B$1)*($A2-$A$1)/($A11-$A$1)

Formelen skal så modificeres før den kan sættes ind i næste hold tomme celler

Hej igen
Jeg havde håbet på en formel så jeg kunne trække resultatet frem, så jeg håber på lidt mere hjælp, jeg kan godt lave 10 kolonner eller rækker på en gang, men vil gerne kunne lave det hele fra rå data

dette er rå data og det har jeg 70 linjer med

2,00    1830,1    44,821    45,605    9,72    4511,1    1012,3
2,10    1937,6    44,821    45,476    9,541    4635,3    1022,5
2,20    2045,1    44,821    45,347    9,362    4759,4    1032,7

Der havde indsneget sig en fejl. Det skulle være:

=B$1+(B$11-B$1)*($A2-$A$1)/($A$11-$A$1)

Så er det vist lettere med en makro. Prøv om denne virker:

Sub IndsætFormel()
Dim LastRow, x, y As Integer
LastRow = ActiveSheet.UsedRange.Rows.Count
For x = LastRow To 2 Step -1 ' to-tallet skal rettes så det er lig med første datarække plus 1
Range(Cells(x, 1), Cells(x + 8, 1)).EntireRow.Insert
For y = x To x + 8
Cells(y, 1) = Cells(y, 1).Offset(-1, 0) + 0.01
Cells(y, 2) = Cells(x - 1, 2) + (Cells(x + 9, 2) - Cells(x - 1, 2)) * (Cells(y - 1, 1) - Cells(x - 1, 1)) / (Cells(x + 9, 1) - Cells(x - 1, 1))
Cells(y, 3) = Cells(x - 1, 3) + (Cells(x + 9, 3) - Cells(x - 1, 3)) * (Cells(y - 1, 1) - Cells(x - 1, 1)) / (Cells(x + 9, 1) - Cells(x - 1, 1))
Cells(y, 4) = Cells(x - 1, 4) + (Cells(x + 9, 4) - Cells(x - 1, 4)) * (Cells(y - 1, 1) - Cells(x - 1, 1)) / (Cells(x + 9, 1) - Cells(x - 1, 1))
Cells(y, 5) = Cells(x - 1, 5) + (Cells(x + 9, 5) - Cells(x - 1, 5)) * (Cells(y - 1, 1) - Cells(x - 1, 1)) / (Cells(x + 9, 1) - Cells(x - 1, 1))
Cells(y, 6) = Cells(x - 1, 6) + (Cells(x + 9, 6) - Cells(x - 1, 6)) * (Cells(y - 1, 1) - Cells(x - 1, 1)) / (Cells(x + 9, 1) - Cells(x - 1, 1))
Cells(y, 7) = Cells(x - 1, 7) + (Cells(x + 9, 7) - Cells(x - 1, 7)) * (Cells(y - 1, 1) - Cells(x - 1, 1)) / (Cells(x + 9, 1) - Cells(x - 1, 1))
Next
Next
End Sub

Og så uden fejl (forhåbentlig):

Sub IndsætFormel()
Dim LastRow, x, y As Integer
LastRow = ActiveSheet.UsedRange.Rows.Count
For x = LastRow To 2 Step -1 ' to-tallet skal rettes så det er lig med første datarække plus 1 (2 = ingen overskrift)
Range(Cells(x, 1), Cells(x + 8, 1)).EntireRow.Insert
For y = x To x + 8
Cells(y, 1) = Cells(y, 1).Offset(-1, 0) + 0.01
Cells(y, 2) = Cells(x - 1, 2) + (Cells(x + 9, 2) - Cells(x - 1, 2)) * (Cells(y, 1) - Cells(x - 1, 1)) / (Cells(x + 9, 1) - Cells(x - 1, 1))
Cells(y, 3) = Cells(x - 1, 3) + (Cells(x + 9, 3) - Cells(x - 1, 3)) * (Cells(y, 1) - Cells(x - 1, 1)) / (Cells(x + 9, 1) - Cells(x - 1, 1))
Cells(y, 4) = Cells(x - 1, 4) + (Cells(x + 9, 4) - Cells(x - 1, 4)) * (Cells(y, 1) - Cells(x - 1, 1)) / (Cells(x + 9, 1) - Cells(x - 1, 1))
Cells(y, 5) = Cells(x - 1, 5) + (Cells(x + 9, 5) - Cells(x - 1, 5)) * (Cells(y, 1) - Cells(x - 1, 1)) / (Cells(x + 9, 1) - Cells(x - 1, 1))
Cells(y, 6) = Cells(x - 1, 6) + (Cells(x + 9, 6) - Cells(x - 1, 6)) * (Cells(y, 1) - Cells(x - 1, 1)) / (Cells(x + 9, 1) - Cells(x - 1, 1))
Cells(y, 7) = Cells(x - 1, 7) + (Cells(x + 9, 7) - Cells(x - 1, 7)) * (Cells(y, 1) - Cells(x - 1, 1)) / (Cells(x + 9, 1) - Cells(x - 1, 1))
Next
Next
End Sub