मैक्रो का उपयोग करके 'n' रिक्त पंक्तियों को सम्मिलित करना

Question

वर्तमान में मैं एक एक्सेल स्प्रेड शीट विकसित करने की कोशिश कर रहा हूं ताकि प्रारूप को आसान बनाया जा सके। बाद की पंक्तियों को प्रभावित किए बिना मैं कई स्थानों पर रिक्त पंक्तियों को सम्मिलित करने के लिए एक मैक्रो बनाना चाहता हूं। मैं थोड़ी सी कोडिंग से परिचित हूं। मेरा पेसो कोड निम्नानुसार है:

cell a1 = n
if(n>1, insert 'n' rows in row 10, insert '0' rows)
if(n>1, insert 'n' rows in row 20. insert '0' rows)
etc.

एक मैक्रो या फ़ंक्शन हो सकता है जो पहले से मौजूद है लेकिन मुझे यकीन नहीं है। अगर कोई मैक्रो उपलब्ध नहीं है, तो मैं जानना चाहूंगा कि कैसे बनाया जाए।

धन्यवाद

Comments

मैंने ऐसा करने के एक सुंदर मानक तरीके के आधार पर उत्तर दिया, लेकिन "बाद की पंक्तियों को प्रभावित किए बिना" से आपका क्या अभिप्राय है

— Raystafarian

Answer 1

कुछ इस तरह काम करेगा

Sub test()
Dim n As Integer
n = Cells(1, 1)
    If n >= 1 Then
        Rows("10:" & 10 + n).Insert shift:=xlDown
        Rows("20:" & 20 + n).Insert shift:=xlDown
    End If
End Sub

आप इसे इस तरह भी कर सकते हैं -

Sub test()
Dim n As Integer
n = Cells(1, 1)
    If n >= 1 Then
        For i = 1 To n
        Rows(10).Insert shift:=xlDown
        Rows(20).Insert shift:=xlDown
        Next
    End If
End Sub