Excel - एक सेल के बगल में डेटा कॉपी करें और इसे नीचे पेस्ट करें

मुद्दा

मेरे पास नीचे दिए अनुसार डेटा की व्यवस्था है:

 सेल | ए | B | सी ------------------------------------------------- --- 1 | हाय | नमस्कार | सुबह 2 | मदद | कृपया | 3 | धन्यवाद | मिलते हैं | अलविदा 

मुझे यह प्रारूप बनने के लिए डेटा बनाने की आवश्यकता है

 सेल | ए | B | सी ------------------------------------------------- - 1 | हाय | नमस्कार | सुबह 2 | | सुबह | ---------------------------------------------- ३ | मदद | कृपया | ---------------------------------------------- ४ | धन्यवाद | मिलते हैं | अलविदा 5 | | बाय | ---------------------------------------------- 

मुझे एहसास है कि कुछ शर्तों को ध्यान में रखना चाहिए:

यह जांचने के लिए कि C1 में डेटा है या नहीं,

  • 1) यदि हाँ, सेल बी 2 में डेटा कॉपी करें (सेल अपेक्षाकृत छोटा और C1 के नीचे)

फिर सेल बी 2 के नीचे लगातार रेखांकित करें

  • 2) यदि नहीं, तो अगली पंक्ति के साथ रेखांकन और जारी रखें
  • 3) अंतिम सेल तक जारी रहता है जिसमें डेटा होता है

उपाय

  • पहले शीट 2 में डेटा कॉपी करें।
  • फिर मैक्रो "परीक्षण" का प्रयास करें

 सब टेस्ट () डिम जे अस इंटेगर, के अस इंटेगर वर्क्सशीट्स ("शीट 1")। एक्टिवेट जे = रेंज ("ए 1")। एंड (xlDown) .Row के लिए k = j से 1 स्टेप -1 यदि सेल्स (k, " C ")" "उसके बाद यदि k = 1 तब कक्ष (k + 1, " A ")। EntireRow.Insert Cells (k, " c ")। कट कक्ष (k + 1, " B ") कक्ष (k" 2), "A")। EntireRow.FormulaArray = "'-----------------" Exit Sub End if Cells (k, "A")। EntireRow.Insert Cells (k +) 1, "C")। कट सेल (k + 2, "B") कक्ष (k + 3, "A")। EntireRow.FormulaArray = "'--------------- - "एल्स सेल्स (k, " ए ")। EntireRow.Insert Cells (k + 2, " a ")। EntireRow.FormulaArray =" '----------------- "एंड इफ नेक्स्ट एंड एंड सब सब () शीटशीट (" शीट 1))। सेल्स। क्लियर वर्कशीट ("शीट 2")। सेलसी। कोपी वर्क्सशीट ("शीट 1")। रेंज ("ए 1") एंड सब उप। 

ध्यान दें कि

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

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

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