এক্সেল 2007 একাধিক সারি এক জায়গায় স্থানান্তর / একত্রিত করে

Question

আমার মতো ডেটা আছে:

1001NCCN    3618127
1001NCCN    208478
1001NCCN    207316
1001TEMN    409889
1001TEMN    801651
1001TEMN    273134
1001TEMN    208478
1001TEMN    207316

প্রথম কলামে মিলের মান রয়েছে এমন সারিগুলিকে আমার চূড়ান্ত ফলাফলের সাথে স্থানান্তর / সংহত করতে হবে:

1001NCCN    3618127 208478  207316      
1001TEMN    409889  801651  273134  208478  207316

আমি পিভট টেবিলগুলি এবং ফিল্টারিংয়ের দিকে তাকিয়েছিলাম তবে তারা মনে করেনি যে তারা আমার যা প্রয়োজন তা দিতে পারে। এক্সেলের মধ্যে এটি করার কোনও উপায় আছে?

Comments

আমার কাছে কোনও উত্তর নেই, তবে এটির জন্য এটি গুরুত্বপূর্ণ: তাই প্রথম কলামে ডেটা সাজানো আছে? বিশেষত, আপনি কি জানেন যে 1001NCCN(এবং এর মতো) প্রতিটি ঘটনা সর্বদা একে অপরের সাথে সংযুক্ত থাকে, বা এগুলি বিভক্ত হওয়া কি সম্ভব?

— DMA57361

@ ডিএমএ, হ্যাঁ প্রতিটি ঘটনা একে অপরের সাথে সংলগ্ন। সেগুলি বর্ণমালা অনুসারে বাছাই করা হয় না তবে প্রয়োজনে আমি এটি করতে পারি।

— জেজেডি

Answer 1

এখানে একটি ভিবিএ সমাধান রয়েছে

এটি সারিগুলি গোষ্ঠীভুক্ত করার মতো নির্ভর করে, তাই আপনার প্রয়োজন হলে প্রথমে সাজান

আপনার সীমার মধ্যে প্রথম কক্ষটি কেবল নির্বাচন করুন এবং চালান ...

Sub Mergeitems()
    Dim cl As Range
    Dim rw As Range

    Set rw = ActiveCell

    Do While rw <> ""
        ' for each row in data set
        '   find first empty cell on row
        Set cl = rw.Offset(0, 1)
        Do While cl <> ""
            Set cl = cl.Offset(0, 1)
        Loop

        ' if next row needs to be processed...
        Do While rw = rw.Offset(1, 0)
            cl = rw.Offset(1, 1)       ' move the data
            Set cl = cl.Offset(0, 1)   ' update pointer to next blank cell
            rw.Offset(1, 0).EntireRow.Delete xlShiftUp   ' delete old data
        Loop

        ' next row
        Set rw = rw.Offset(1, 0)
    Loop
End Sub

Comments

21,000 সারি স্প্রেডশিটে দুর্দান্ত কাজ করেছেন!

— jjd

Answer 2

আইএমও এই জাতীয় কোনও কাজ সম্পাদন করার সহজ উপায় হ'ল গুগল ডক্সের মাধ্যমে। খালি গুগল স্প্রেডশিটে আপনার ডেটা অনুলিপি করুন। তারপরে, বলুন, এফ 1 লিখুন:

=UNIQUE(A:A) 

এবং জি 1 এ লিখুন:

=TRANSPOSE(FILTER(B:B,A:A=F1)

এবং কপি ডাউন। তারপরে ফলাফলগুলি অনুলিপি করুন এবং এটিকে আবার এক্সেলে পেস্ট করুন।

Comments

আকর্ষণীয় পদ্ধতির। পরের বারের মতো আমি নিজেকে এই পরিস্থিতিতে দেখতে পাব।

— জেজেডি