एक्सेल - निरर्थक मूल्य को कैसे छांटना और हटाना है?

मुद्दा

मैं नीचे दिए गए प्रयोगशाला में हमारे दैनिक डेटा अप में हमारे रोगी डेटा को सॉर्ट करने की कोशिश कर रहा हूं:

 "नमूना बाहरी नहीं" "बारकोड" "परख" 4 321456 amf 9 125487 amf 10 155886 amf 15 162533 amf 45 154878 amf 48 124569 amf 1 750122 bupo 5 156453 bupo 6 145896 bupo 10 155886 bupo 11 114456 bupo 13 357 357 bf 17 789456 bupo 18 158456 bupo 45 154878 bupo 48 124569 bupo 1 750122 canno 5 156453 canno 8 159456 canno 20 145698 canno 25 123456 6 canno 45 154878 canno 48 124569 canno 1 750122 मेटाफ़ॉर्म 2 112563 मेटाफ़ॉर्मर 15658158 metamfo

जहाँ यह डेटा आधा है फिर भी छँटाई के बीच में है अन्यथा पहला कॉलम हैज़र्ड होगा जहाँ मैं आरोही क्रम में कॉलम A के आधार पर छँटाई का अंत प्राप्त करना चाहता हूँ लेकिन यह स्तंभ C के आधार पर है। यदि कोई मान है कॉलम A को कॉलम CI में अलग-अलग मान के साथ दोहराया गया है जो इसे क्रमबद्ध करना चाहेंगे

 4 321456 amf 9 125487 amf 10 155886 amf, bupo, 15 162533 amf, bupo, metamfo 45 154878 amf, bupo, canno, metamfo 48 125069 amf, bupo, canno, metamfo 1 750122 bupo, canno, metamfo 487455 145896 बूपो 11 114456 बूपो 13 357456 बूपो 17 789456 बूपो 18 158456 बूपो 8 159456 कैनो 20 2044698 कैनो 25 123456 कैनो 2 11 111163 मेटामो 28 112254 मेटामो

यदि ऐसा होता है, तो नमूना खोजना आसान होगा। क्या आप मेरी मदद कर सकते हैं।

उपाय

यहाँ मैक्रो है कि यह करना होगा:

 उप सॉर्टअरेमोव () डिम lRow ऐज़ लॉन्ग डिम sExtNum स्ट्रिंग स्ट्रिंग के रूप में SBarCode स्ट्रिंग सेल्स के रूप में। चयन चयन करें। Key_ Key1: = Range ("A2"), _ ऑर्डर 1 = xlAscending, _ Key2: = Range ("B2")। _ आदेश 2: = xlAscending, _ Key3: = श्रेणी ("C2"), _ आदेश 3: = xlAscending, _ Header: = xlYes, _ OrderCustom: = 1, _ MatchCase: = False, _ Orientation: = xlTopToBottom, _ DataOption1। = xlSortNormal, _ DataOption2: = xlSortNormal, _ DataOption3: = xlSortNormal lRow = 2 sExtNum = Cells (lRow, "A" sBarCode = Cells (lRow, "B") Do (जबकि (LRow, A)। ) यदि कोशिकाएं (lRow + 1, "A") = sExtNum और (कक्ष (lRow + 1, "B") = sBarCode) तो यदि कक्ष (lRow, "C") "" तो कक्ष (lRow, "C") = कोशिकाएं (lRow, "C") और ", और कोशिकाएं (lRow + 1, " C ") पंक्तियाँ (lRow + 1) .Delet Else Cells (lRow, " C ") - कक्ष (lRow + 1, " C) ") पंक्तियाँ (lRow + 1)। अंतिम समाप्ति यदि Else lRow = lRow + 1 sExtNum = Cells (lRow, " A ") sBarCode = Cells (lRow, " B ") समाप्ति यदि लूप कोशिकाएँ चुनें। चयन _ कोर _ Key1: = श्रेणी ("C2"), _ आदेश 1: = xlAscending, _ Key2: = Range ("A2"), _ आदेश 2: = xlAscending, _ Key3: = Range ("B2") _ आदेश 3: = xlAscending, _ Header: = xlYes, _ OrderCustom: = 1, _ MatchCase: = False, _ Orientation: = xlTopToBottom, _ Datalption1: = xlSortNormal, _ DataOption2: = xlSortNormal, _ Datanot3; A2 ")। एंड सब का चयन करें