एक्सेल - पंक्तियों से स्तंभों तक डेटा ले जाने के लिए एक मैक्रो

मुद्दा

मेरे पास एक ही कॉलम में डेटा है और वह इसे हर तीन पंक्तियों के लिए एक स्थान के सीमांकक के साथ एक पंक्ति में स्थानांतरित करना चाहेगा; डेटा का कॉलम हर बार डेटा की मात्रा में भिन्न होता है।

 ABCDEFGHIJ आदि 

में

 ABCDEFGHIJ आदि 

उपाय

मान लीजिए कि डेटा ए 2 में ए 1 डाउन कॉलम हेडिंग के साथ है।

इस मैक्रो को आज़माएं

• परिणाम कॉलम C से E तक होंगे

 सब टेस्ट () डिम रींग एज़ रेंज, एम अस इंटेगर, सी अस रेंज कॉलम ("c: ई")। डिलीट m = ३ सेट rng = रेंज (रेंज ("a2"), रेंज ("a2")। xlDown)) सेट c = रेंज ("a2") Do c "" "MsgBox c.Address Range (c, c.Offset (m - 1, 0))। कॉपी सेल (Rows.Count, " c ")। अंत (xlUp)। ऑफ़सेट (1, 0) .PasteSpecial Transpose: = True Set c = c.Offset (m, 0) लूप एंड सब 

इस टिप के लिए वेंकट 1926 को धन्यवाद।