EXCEL VBA to find duplicate rows and sum rows -

-

छवि दर्ज करें यहाँ विवरण

यहां छवि विवरण दर्ज करें

विक्रेता और विक्रेता भुगतान जानकारी के साथ 10,000+ पंक्तियाँ यदि स्तंभ, ए, सी, डी, एफ, जी, एच में फ़ील्ड के आधार पर डुप्लिकेट हैं, तो मैं कॉलम के और एल में राशि की राशि जोड़ना चाहता हूं और इसके लिए 1 एंट्री / पंक्ति रखना है।

नीचे की तस्वीर का नतीजा है।

मैं यदि संभव हो तो शब्दकोश स्क्रिप्ट का उपयोग करना चाहता हूं लेकिन मैं इसका उपयोग कैसे नहीं कर पाता यह सिर्फ कुशल लगता है, यदि नहीं, तो अलग विधि भी ठीक है। कोई भी सहायता कर सकता है ????? मैं बहुत सराहना करता हूं !!

यह एक मजेदार है, इसलिए मैंने इसे लिखा है। मूलतः यह स्क्रिप्ट आपके wsFROM का इलाज करती है जैसे कि यह एक डेटाबेस तालिका थी, तो यह आपके लिए क्या आवश्यक करने के लिए एसक्यूएल कथन पर लागू होगा और परिणाम वसूली के लिए निकाल देगा यह बहुत जल्दी चलना चाहिए, हालांकि यह 20000 रिकॉर्ड है विकल्प चादर में हर पंक्ति के माध्यम से पाश के लिए होगा और फिर यह देखना है कि क्या ऐसा दूसरों है और परिणाम जोड़ें। यह उन 20 मिनटों में से एक होगा जो दुःस्वप्न वाले वीबीए कार्यक्रमों में से एक है, जहां यह कुछ दर्जन सेकंड में चलना चाहिए।

सुनिश्चित करें कि आप SET wsFROM ... और सेट करें wsTO ... अपने कार्यपत्रकों के लिए लाइनें इसके अलावा, मेरा मानना ​​है कि यह आपके डेटा के साथ काम करना चाहिए जैसा है। 

  उप एक्सेल एसक्यूएल () 'चर ऑब्जेक्ट डिम आरएस के रूप में ऑब्जेक्ट दीम स्ट्रफाइल के रूप में स्ट्रिंग के रूप में, strsQL स्ट्रिंग के रूप में, strConn as स्ट्रिंग मंद wsFrom वर्कशीट के रूप में, wsTo के रूप में वर्कशीट 'डेटा और वर्कशीट के साथ कार्यपत्रक को सेट करने के लिए सेट करें' सेट करें wsFrom = वर्कशीट्स ("शीट 1") सेट करें wsTo = कार्यपत्रक ("शीट 2") '_tmp' के साथ एक नई फाइल बनाएं यह एक ही फ़ोल्डर में strFileName = ThisWorkbook.Path और amp; "/" & Amp; ThisWorkbook.Name strFileName = बदलें (strFileName, ".xls", "_tmp.xls") ThisWorkbook.SaveCopyAs strFileName 'फैंसी ADODB सामान .. अनिवार्य रूप से उस प्रतिलिपि को खोलें जो हम बस सहेजते हैं जैसे कि यह डेटाबेस सेट किया गया था objConn = CreateObject (" ADODB.Connection ") strConn =" प्रदाता = Microsoft.ACE.OLEDB.12.0; डेटा स्रोत = "& amp; स्ट्रफाइलनाम & amp; "; विस्तारित गुण =" "एक्सेल 12.0 एक्सएमएल; एचडीआर = हाँ," "ओजजॉन। ओपन स्ट्रकॉन 'यह एसक्यूएल स्ट्रिंग है जिसे हम एक्सेल / डेटाबेस से पूछते हैं। फ़ील्ड के नाम, पत्रक के पंक्ति 1 में दिए गए नाम हैं, एसआरएसक्यूएल = "SELECT [संख्या], [NAME], [ऊपर / नीचे], [एफवाईई], [जीएल_एसीएनजीआरजीआर], [जीएल_एसईजीसीडी], [एसीसीटीसी], [CODE] , [क्षेत्र], योग (राशि 1), योग (राशि 2) से ["& amp; wsFrom.Name & amp; "संख्या], [NAME], [ऊपर / नीचे], [एफवाईई], [जीएल_एसीएनजीआरजीआर], [जीएल_एसईजीसीडीडीए], [एसीसीटी #], [CODE], [क्षेत्र];" 'एक्सेल / डाटाबेस सेट एसएसएल कथन को लागू करने के लिए फैंसी एडीडीबी चीज आरएस = ऑब्जेक्ट सेट करें ("एडीओडीबी। रेकॉसेसेट") आर.एस.एस.एस.एस.एस.एस.एस.एल.एस.एल., ओजीसीएन' ऑब्जेक्ट डिम हैडर के रूप में ऑब्जेक्ट डिम हैडरकॉल पूर्णांक हेडरकॉल = 1 'फ़ील्ड के माध्यम से लूप रिकॉर्ड्स प्रत्येक प्रत्येक हेडर के लिए rs.fields 'उन्हें 1 पंक्ति (1, headerCol) में चिपकाएं। मूल्य = header.name' अगला कॉलम हैडरसीएल = हैदरकॉल + 1 अगला हेडर 'एसक्यूएल स्टेटमेंट के परिणाम कॉपी करें, रिकॉर्डसेट में संग्रहीत , करने के लिए शीट wsTo.Range ("ए 2") में। CopyFromRecordset रु 'इसे बंद करो। बंद करो objConn.Close' कि टीएमपी कार्यपुस्तिका को निकालें strfileName अंत उप

Comments

Post a Comment

Popular posts from this blog

php - PDO bindParam() fatal error -

-
I am trying to learn PDO, now I have written this small code, but it gives me a serious error: Fatal error: Call a member function at a non-object dot () ... $ con = new mysqli ("127.0.0.1", "root", "", "csvdangercheck"); $ Query = $ con- & gt; ("Id,` var1`, `var2`) values ​​(" id,: var1,: var2) ";); $ query- & gt; bypass pattern (': id', $ id); $ query- & gt; BindParam (': var1', $ VAL1); $ Query- & gt; bindParam (': var2', $ val2); $ Query-> Executed (); I Trying to use print_r ($ con-> errorInfo ()) but Fatal error: Undefined method mysqli :: errorInfo ( ) ... can someone tell me what am I missing? Flaffeh said, you have PDO Missing Mysqy, try it: $ con = new PDO ('mysql: host = 127.0.0.1; dbname = csvdangercheck', 'root', '');
Read more

php - How can I cram 6+31 numeric characters into 22 alphanumeric characters? -

-
I have a 6 digit number and a 31-digit number (such as "234536" and "201103231043330478311223582826") that I The API needs to be crawled in the same 22-character alphanumeric field that uses PHP. I tried to convert each one to 32 (using custom code could not handle the base_convert () large number) and to connect with a single-character delimiter, but It only gives me 26 characters This is a restore API, so the letters should be URI-protected. I would like to do a database table cross with two references without reference to another reference value, if possible, any suggestions? Instead use a radix of 62. This will give you 22 characters for the top, 3.35 for the pre and 17.3 for the next. & gt; & Gt; & Gt; Math.log (10 ** 6) /math.log (62) 3.3474826039165504 & gt; & Gt; & Gt; Math.log (10 ** 31) /math.log (62) 17.295326786902177
Read more

logging - How can I log both the Request.InputStream and Response.OutputStream traffic in my ASP.NET MVC3 Application for specific Actions? -

-
For a specific set of tasks, I need to log in to the incoming request inputstream as well as outgoing response. is. I am using an ActionFilterAttribute for this and overriding the OnActionExecuted and OnResultExecuted methods. So I'm starting with this idea ... Public category ActionLoggerAttribute: ActionFilterArrbit {Public Override Zero On-Offed Execution (ActionActioned Contact Filter Filter) {base.OnActionAxecuted (FilterContext); HttpRequestBase request = filterContext.HttpContext.Request; // TODO: Log the request. InputStream} Public Override Zero OnResultExecuted (ResultExecutedContext FilterContext) {base.OnResultExecuted (filterContext); HTTPRPSPointBase Response = FilterContacts Hpptex response; // TODO: Log on Response.OutputStream}} Ideally I'll hook it up with enterprise library logging because I'm already using it for error logging. Am I reaching the input and output stream at the right time? Can I easily use the Enterprise Library to log i...
Read more