excel - How to delete a special row -

शीट 1 में मेरे पास एक कक्ष A3 (52) है:

शीट 2 में, मैं पंक्ति को हटाना चाहता हूं जहां शीट 1 की A3 की संख्या है। यह संख्या केवल पहले कॉलम में हो सकती है।

< P> यहाँ मेरा कोड है, लेकिन यह काम नहीं करता है:

  sub delete_ligne () Dim I as Integer application.ScreenUpdating = I = 1 से 6600 के लिए गलत (कक्ष (i, 1 ) = "" "(" संशोधन ")। रेंज (" बी 7 ") मूल्य) तब सेल्स (i, 1) .EntireRow.Delete i = i - 1 End यदि अगला अनुप्रयोग। स्क्रीन अपडेटिंग = ट्रू एंड सब  

कोई भी समाधान?

अभी भी सुनिश्चित नहीं है कि "यह काम नहीं करता" इसका मतलब है, लेकिन यह मदद कर सकता है:

<पूर्व> उप delete_ligne () मंद रेंग के रूप में रेंज मंद WB कार्यपुस्तिका के रूप में मंद I जैसा पूर्णांक अनुप्रयोग। स्क्रीन अप Ating = False Set WB = 'आपकी कार्यपुस्तिका को परिभाषित करें यहां सेट करें आरएनजी = डब्ल्यूबी। शीट (2) .रेन्ज ("बी: बी")। खोजें (क्या: = WB.Sheet (1) .रेन्ज ("ए 3"), _ LookIn: = xlValues, LookAt: = xlWhole, MatchCase: = False) जबकि नहीं Rng कुछ भी नहीं है। Rows (1)। अंतराल। सेट करें आरएनजी = WB.Sheet (2) .रेंज ("बी: बी")। (क्या: = WB.Sheet (1)। रेंज ("ए 3"), _ लुकइन: = एक्सएलवील्यूज, लुक एट: = एक्सएलहोल्म, मैचसीज़: = फॉल्स) वेंड एप्लीकेशन। स्क्रीनअपडेटिंग = ट्रू एंड सब्

सही स्थानों को इंगित करने के लिए WB , शीट (2) , और शीट (1) को परिभाषित करने के लिए समायोजित करें।

। खोज 6600 पंक्तियों को पाशन की तुलना में काफी तेज हो जाएगा और उसे कोई आदेश नहीं मिल रहा है कि वह पंक्तियां पाती / हटाती है

आप एक बाहरी लूप जोड़ सकते हैं यदि अधिक कोशिकाएं जांचने हैं कि "A3"