एक्सेल - शीट 2 में पूरे ए कॉलम के लिए सेल A1 की तुलना करना

मुद्दा

मैं A500 के माध्यम से शीट 1 ए 2 से शीट 2 ए 2 की तुलना करने की कोशिश कर रहा हूं और अगर यह शीट 2 के एक कर्नल में कहीं मौजूद है तो उस पूरी पंक्ति को एक नई शीट पर कॉपी करें।

मैंने दूसरों से मैक्रो कोड के कई बिट्स के साथ प्रयोग किया है, लेकिन अभी तक कोई वास्तविक सफलता नहीं है।

यह पता लगाना कि कोड में यह कहना मेरे लिए थोड़ा मुश्किल है। मैं इसके लिए संघर्ष कर रहा हूं।

उप तुलना ()

Dim LastRow_1 इंटेगर के रूप में

Dim LastCol_1 इंटेगर के रूप में

मंद Data_1 रेंज के रूप में

Dim LastRow_2 इंटेगर के रूप में

Dim LastCol_2 इंटेगर के रूप में

मंद Data_2 सीमा के रूप में

कार्य के रूप में मंद Sh_1

काम के रूप में मंद Sh_2

डिम एक्स अस लॉन्ग

डिम वाई अस लॉन्ग

मंद C_1 रेंज के रूप में

मंद C_2 सीमा के रूप में

सेट Sh_1 = ActiveWorkbook.Sheets ("मास्टर")

सेट Sh_2 = ActiveWorkbook.Sheets ("इन्वेंटरी")

LastRow_1 = Sh_1.range ("A5000")। अंत (xlUp) .Row

LastCol_1 = Sh_1.range ("A5000")। अंत (xlToLeft) .Col

सेट करें Data_1 = Sh_1.range ("A2")। Resize (LastRow_1, LastCol_1)

LastRow_2 = Sh_2.range ("A5000")। अंत (xlUp) .Row

LastCol_2 = Sh_2.range ("A5000")। अंत (xlToLeft) .Col

सेट करें डेटा_2 = Sh_2.range ("A2")। आकार बदलें (LastRow_2, LastCol_2)

Data_1 में प्रत्येक C_1 के लिए

प्रत्येक C_2 के लिए Data_2 में

यदि C_2 = C_1 तब

'शीट 2 पर एक सेल मिली जो शीट 1 में सेल से मेल खाती थी

'अब वही करो जो तुम्हें करने की जरूरत है

Data_2.EntireRow.Copy गंतव्य: = कार्यपत्रक ("New_Master")। श्रेणी ("A5000")। अंत (xlUp) .Offset (1, 0)

अगर अंत

अगला C_2

अगला C_1

अंत उप

जब मैं इसे चलाता हूं तो यह नॉन-मैचों सहित न्यू_मास्टर नामक शीट को सब कुछ कॉपी करता है।

मैं क्या खो रहा हूँ? यह स्पष्ट होना चाहिए, यह आमतौर पर मामला है।

उपाय

आपको बस लिखना है:

 Data_2.EntireRow.Copy 

आप पूरी रेंज "Data_2" की प्रतिलिपि बनाते हैं, जो शीट "इन्वेंट्री" के कॉलम A से मेल खाती है

यदि आप Data_1 में केवल पंक्तियों को कॉपी करना चाहते हैं जो Data_1 के साथ मेल खाते हैं, तो लिखें

 C_2.EntireRow.Copy 

बस!

ध्यान दें

मंच पर इस टिप के लिए इवान-हो के लिए धन्यवाद।

पिछला लेख अगला लेख

शीर्ष युक्तियाँ