Excel'de birkaç alana yayılan ortalamalar?

Bir dizi veri içeren bir masam var.
Bu veriler bir grafikte kullanılır.
Bu verilerde düzleştirilmiş sayılarla doldurmak istediğim delikler var.

Bu tabloyu ele alalım örneğin:

Yukarıdaki örnekte, doldurmak istediğim 93 ile 68 arasında 3 boşluk var.
Dizi 93, 86.75, 80.5, 74.25 ve sonra 68'e gitmelidir.

Aradaki sayıları otomatik olarak hesaplamak için ne tür bir formül kullanabilirim?

Düzenleme: boşluklar herhangi bir sayıda satır olabilir, yukarı ya da aşağı gidebilir.

Zaman aralıklarınız her zaman eşit aralıklarla yerleştirilmişse , Excel'in Doldurma özelliğini kullanabilirsiniz.

• B2285: F2289'u seçin (boş aralık artı üstte ve altta veri satırları)
• Açık Ev şerit sekmesi, seçmek doldurun sonra ve Diziler ...
  • Seriler: Sütunlar
  • Tip: doğrusal
  • Trend: Evet
  • Click OK

Excel 2007'de test edilmiştir.

Bu VBA alt ile enterpolasyon yapmak istediğiniz hücreleri seçebilir, ardından makroyu aktif hale getirebilirsiniz. Bir düğme kullandım, ancak muhtemelen bir kısayol tuşu açılan çalışması yapmak isteyeceksiniz.

Private Sub InterpolateGap()

Dim Gap As Range
Dim GapRows As Integer, i As Integer, Increment As Integer

Set Gap = Selection
If Not Gap Is Nothing Then
    GapRows = Gap.Rows.Count
    Increment = (Gap.Cells(1, 1).Offset(-1, 0) - _ 
                 Gap.Cells(1, 1).Offset(GapRows, 0)) / GapRows
    For i = 1 To GapRows
        Gap.Rows(i).Cells(1, 1) = _ 
        Gap.Rows(i).Cells(1, 1).Offset(-1, 0) - Increment
    Next i
End If

End Sub

Bazı LBA Roberts @ VBA kodu yazma bitti
Bu kod aslında her satır ve sütun boyunca döngü boş girişleri arama, üst ve alt değerleri kapma ve bu şekilde hesaplar.
Tek sorun, eğer veriler boşsa ilk satır olduğunda.
Sütunlar tembellik nedeniyle 10 olarak kodlanmıştır.

Sub SetAverages()
   Dim lastrow As Integer, ncol As Integer, nrow As Integer
   Dim secondvalrow As Integer, blankrows As Integer
   Dim difference As Double, Increment As Double


    Range("A65535").End(xlUp).Select
    lastrow = ActiveCell.Row

    For ncol = 2 To 10
        For nrow = 2 To lastrow   'start after header row
            If Cells(nrow + 1, ncol).Value = "" Then
                secondvalrow = nrow + 1
                Do Until Cells(secondvalrow, ncol).Value <> "" Or secondvalrow = lastrow + 1
                    secondvalrow = secondvalrow + 1
                Loop

                blankrows = secondvalrow - nrow

                difference = Cells(secondvalrow, ncol).Value - Cells(nrow, ncol).Value
                Increment = difference / blankrows
                For i = nrow + 1 To secondvalrow - 1
                    Cells(i, ncol).Value = Cells(i - 1, ncol).Value + Increment
                Next i
            End If
        Next nrow
    Next ncol
End Sub

Sabit bir yukarı veya aşağı tırmanmaya sahip olmadığınız zaman yapmak zor olacaktır.

En iyi tavsiyem, sahip olduğunuz sayıları vurgulamak ve sonra vurgulanan alanın sağ alt köşesindeki kutuyu tıklamak ve Excel'in tahmin etmek için en iyi işini yapmasını sağlamak için aşağı sürüklemektir.