एक्सेल में कई क्षेत्रों में फैलता है?

Question

मेरे पास डेटा के अनुक्रम के साथ एक तालिका है।
यह डेटा एक ग्राफ में उपयोग किया जाता है।
इस डेटा में छेद हैं जिन्हें मैं स्मूथ आउट संख्याओं के साथ भरना चाहता हूं।

उदाहरण के लिए इस तालिका को लें:

ऊपर के उदाहरण में, 93 और 68 के बीच 3 अंतराल हैं जिन्हें मैं भरना चाहता हूं।
अनुक्रम 93, 86.75, 80.5, 74.25 और फिर 68 पर जाना चाहिए।

बीच में संख्याओं की ऑटो-गणना करने के लिए मैं किस तरह के सूत्र का उपयोग कर सकता हूं?

संपादित करें: अंतराल किसी भी संख्या में पंक्तियां हो सकती हैं, वे ऊपर या नीचे जा सकती हैं।

Comments

क्या वे हमेशा घटते हैं, जैसे आप नीचे जाते हैं, और हमेशा सकारात्मक रहते हैं?

— लांस रॉबर्ट्स

क्या एक कॉलम में संख्याओं में एक से अधिक अंतर होगा?

— लांस रॉबर्ट्स

हमेशा सकारात्मक नहीं और किसी भी आकार का अंतर हो सकता है। सबसे बाएं स्तंभ में समय हमेशा 10 मिनट की वृद्धि में होगा और इसमें कोई अंतराल नहीं होगा।

— माइकल गैलोस

वाह, प्रक्षेप कठिन है जब आप यह नहीं चाहते हैं कि जब आप मूल्यों को भरते हैं तो वेतन वृद्धि को बदल दें, फिर भी उस पर काम कर रहे हैं।

— लांस रॉबर्ट्स

ठीक है, जबकि मैं प्रक्षेप के लिए सूत्र कर सकता हूं, यह काम नहीं करेगा क्योंकि जब पहली सेल में भर जाता है, तो यह निम्नलिखित कोशिकाओं पर वेतन वृद्धि को बदल देगा, और इसी तरह। चूंकि मैं वास्तव में एक चर (अंतर में रिक्त कोशिकाओं की मात्रा के लिए) को स्टोर नहीं कर सकता, मैं इसे एक वर्कशीट फ़ंक्शन में नहीं कर सकता। यदि आप VBA समाधान चाहते हैं तो मुझे बताएं। मैं कल वापस आऊंगा, बस एक '@' चिह्न के साथ टिप्पणी में मेरा नाम देखें।

— लांस रॉबर्ट्स

Answer 1

यदि आपका समय अंतराल हमेशा समान रूप से फैला हुआ है तो आप एक्सेल के फिल फीचर का उपयोग कर सकते हैं ।

• B2285 का चयन करें: F2289 (ऊपर और नीचे डेटा की पंक्तियाँ)
• पर घर रिबन टैब, चयन भरें और फिर श्रृंखला ...
  • श्रृंखला में: कॉलम
  • प्रकार: रैखिक
  • प्रवृत्ति: हाँ
  • ओके पर क्लिक करें

एक्सेल 2007 में परीक्षण किया गया।

Answer 2

इस VBA उप के साथ आप उन कक्षों का चयन कर सकते हैं जिन्हें आप प्रक्षेपित करना चाहते हैं, फिर मैक्रो को सक्रिय करें। मैंने एक बटन का उपयोग किया है, लेकिन आप शायद एक शॉर्टकट कुंजी कॉम्बो को काम करना चाहते हैं।

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

Comments

इसके लिए धन्यवाद, आपने मुझे अपना संस्करण लिखने की प्रेरणा प्रदान की!

— माइकल गैलोस

Answer 3

मैंने कुछ VBA कोड लिखना शुरू किया धन्यवाद @Lance रॉबर्ट्स
यह कोड वास्तव में प्रत्येक पंक्ति और कॉलम के माध्यम से लूप करेगा, जो रिक्त प्रविष्टियों की खोज कर रहा है, ऊपरी और निचले मूल्यों को पकड़ता है और इस तरह से गणना करता है।
एकमात्र समस्या तब होती है जब डेटा रिक्त होने पर पहली पंक्ति।
आलस्य के कारण स्तंभों को 10 के रूप में कठोर कोडित किया जाता है।

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

Answer 4

जब आप एक स्थिर ऊपर या नीचे की चढ़ाई नहीं करते हैं, तो यह करना मुश्किल होगा।

मेरी सबसे अच्छी सलाह बस आपके पास मौजूद नंबरों को उजागर करना और फिर हाइलाइट किए गए क्षेत्र के निचले दाएं कोने में स्थित बॉक्स पर क्लिक करना और एक्सेल को अनुमान लगाने के लिए अपना सर्वश्रेष्ठ काम करने के लिए नीचे खींचना है।