एक्सेल - कुल पंक्तियों को कॉपी करें

मुद्दा

मेरे पास 13 कार्यपत्रकों के साथ एक एक्सेल स्प्रेडशीट है। पहले 12 वर्कशीट जनवरी से दिसंबर तक हैं। 13 वीं वर्कशीट कुल है। प्रत्येक वर्कशीट में समान कॉलम और रो होते हैं।

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

मैं जो करने की कोशिश कर रहा हूं वह प्रत्येक मासिक कार्यपत्रक में जानकारी दर्ज करना है और मेरे पास कुल कार्यपत्रक में स्वचालित रूप से कॉपी किया गया डेटा है। कुल वर्कशीट में दर्ज सभी डेटा शामिल होंगे। मेरे पास एक मासिक ब्रेकडाउन होगा, लेकिन कुल पृष्ठ में सभी लेनदेन शामिल हैं।

मेरे पास सभी कार्यपत्रक सेट हैं, लेकिन कॉपी करने के लिए कोड के साथ नहीं आ सकते हैं। कोई सुझाव कृपया?

उपाय

इसे इस्तेमाल करे। निश्चित रूप से सुनिश्चित करें कि आप परीक्षण से पहले मूल फ़ाइल का बैकअप बनाते हैं

मान्यताओं।

1. चादरें नाम हैं जनवरी, फ़रवरी, …।
2. मास्टर शीट को मास्टर कहा जाता है
3. कॉलम 1 में रिक्त मान नहीं है (इसका उपयोग पंक्तियों की अधिकतम संख्या को खोजने के लिए किया जाता है)
4. 11 से अधिक कॉलम नहीं हैं
5. मास्टर शीट में पहले से हेडर पंक्ति है।

 सब कॉपीडेटा () डिम मैक्सिमोल्स जितने लंबे डिम मैक्सकोल्स के रूप में इंटीजर डिम कॉनशीट के रूप में स्ट्रिंग 'समेकित शीट के नाम के रूप में डिम lConRow के रूप में लॉन्ग डिम मैक्स रोकोकॉल के रूप में इंटीजर' अधिकतम संख्या पंक्तियों को खोजने के लिए इस्तेमाल किया जाता है = 11 महीने = सरणी ("जन", "फ़रवरी", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec") maxRowCol = 1 conSheet = "मास्टर" शीट्स (conSheet)। सेलेक्ट रेंज ("A2")। Select सेल (65536, 256) .Select Selection.End (xlDown) .Select maxRows = Selection.Row Range ("A2", Selection)। चयन करें। चयन करें। हटाएं lConRow = 2 X = 0 के लिए शीट्स.काउंट - 2 शीट्स (महीने (x)) का चयन करें। यदि ActiveSheet.AutoFilterMode का चयन करें तो सेल। चयन का चयन करें। ऑटो का चयन करें यदि सेल समाप्त हो जाता है। डिम अंतिम lastRow = Cells (maxRows, maxRowCol) ।End (.End) का चयन करें। xlUp) .Row (lastRow> 1) उसके बाद रेंज (कक्ष (2, 1), कक्ष (lastRow, maxCols)) चयन का चयन करें। कोपी शीट (कॉन्सेप्ट)। सेल सेल सेल (lConRow, 1)। चयन का चयन करें। = कोशिकाएं (अधिकतम सीमाएं, अधिकतमरोल)। और (xlUp) .Row lConRow = lSummaryRow + 1 अंत में यदि ActiveSheet.Name = "Dec" “फिर एक्जिट सब नेक्स्ट एंड सब उप