VBA तालिका पंक्तियों को कैसे हटाएं

Question 1

मेरे पास एक सारणी है जो इनपुट (पंक्तियों) की संख्या के आधार पर सीमा (केवल पंक्तियों) में भिन्न हो सकती है।

मैंने तालिका से डेटा को अपने डेटा बेस में स्थानांतरित करने के लिए एक कोड लिखा है। यह ठीक काम कर रहा है।

लेकिन, इस स्क्रिप्ट के अंत में, मैं तालिका पंक्तियों को हटाना चाहता हूं, पहली और दूसरी पंक्तियों की अपेक्षा करता हूं, जहां क्रमशः, मेरे शीर्षलेख और मेरा सूत्र रहता है।

यह ध्यान में रखते हुए कि पंक्तियों की कुल संख्या भिन्न हो सकती है, मैं सभी तालिका पंक्तियों को कैसे हटा सकता हूं लेकिन 2 पहले वाली?

एफवाईआई

तालिका श्रेणी (शीर्षक और पहली पंक्ति) A18:D19 . है

    Dim Cl As Range
For Each Cl In Sheets("Data Entry").Range("A19:A1000")
    If Cl.Value = "" Then Exit For 'Exits on first empty cell
    Sheets("Source Ingredients").Range(Cl.Value).Value = Cl.Offset(, 2).Value

अग्रिम धन्यवाद ग्रेग

excel vba rowdeleting

0

Greg 15 जुलाई 2020, 05:14

Answer

यह काम करता है, जहां तालिका 1 तालिका का नाम है। यदि आप सुनिश्चित नहीं हैं कि इसे कैसे खोजा जाए, तो तालिका में क्लिक करें, फिर शीर्ष पर बैनर में तालिका डिज़ाइन चुनें, और तालिका का नाम गुण के अंतर्गत शीर्ष बाईं ओर है।

Application.Range("Table1").ListObject.DataBodyRange.Offset(1, 0).Resize(Application.Range("Table1").ListObject.DataBodyRange.Rows.Count - 1, _
    Application.Range("Table1").ListObject.DataBodyRange.Columns.Count).Rows.Delete

एक साथ कथन का उपयोग करके संक्षिप्त पते के साथ:

With Application.Range("Table1").ListObject.DataBodyRange
    .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).Rows.Delete
End With

0

TerrifiedJelly 15 जुलाई 2020, 11:58

Question 2

यह काम करता है, जहां तालिका 1 तालिका का नाम है। यदि आप सुनिश्चित नहीं हैं कि इसे कैसे खोजा जाए, तो तालिका में क्लिक करें, फिर शीर्ष पर बैनर में तालिका डिज़ाइन चुनें, और तालिका का नाम गुण के अंतर्गत शीर्ष बाईं ओर है।

Application.Range("Table1").ListObject.DataBodyRange.Offset(1, 0).Resize(Application.Range("Table1").ListObject.DataBodyRange.Rows.Count - 1, _
    Application.Range("Table1").ListObject.DataBodyRange.Columns.Count).Rows.Delete

एक साथ कथन का उपयोग करके संक्षिप्त पते के साथ:

With Application.Range("Table1").ListObject.DataBodyRange
    .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).Rows.Delete
End With

0

TerrifiedJelly 15 जुलाई 2020, 11:58

VBA तालिका पंक्तियों को कैसे हटाएं

1 उत्तर

संबंधित सवाल

नए सवाल

excel