অন্য একটি মানের উপর ভিত্তি করে এক কলাম এক্সেল concatenation

Question

এর অনুরূপ: এক্সেল - এক কক্ষে পিভট মান (কমা দ্বারা পৃথক মান হিসাবে)

এটি একটি ভিবিএ সমাধান হতে পারে, এবং আমার কাছে কলাম এ-তে সদৃশ নেই। পরিবর্তে, প্রতিটি মানের নীচে ফাঁকা সারি রয়েছে:

Name1|Fact1
------|Fact2
------|Fact3
------|Fact4
Name2|Fact1
------|Fact2
Name3|Fact1

আমি যেমন উদ্ধৃত করে প্রশ্ন করি, আমি অর্জন করতে চাই:

Name1|Fact1, Fact2, Fact3, Fact4
Name2|Fact1, Fact2
Name3|Fact1

প্রতিটি নামের জন্য তথ্য সংখ্যা অভিন্ন নয়, তাই একটি সহজ সূত্র নিচে টেনে নেয়া কাজ করবে না।

সমস্ত মান স্ট্রিং হয়।

আমি উদ্ধৃত প্রশ্নের মধ্যে প্রদত্ত সমাধানের পরিবর্তে এটি সমাধান করার জন্য একটি ম্যাক্রো ব্যবহার করতে পছন্দ করব।

Comments

@ রাস্তাফারিয়ান আগে উত্তর দেওয়ার জন্য দুঃখিত - সপ্তাহান্তে কাজ সম্পর্কে চিন্তা করতে চাইনি। ম্যাক্রো ডিজাইনে একটি সম্পূর্ণ শিক্ষানবিস এবং শুরু কোথাও জানি না। আমি শেখার বিরোধিতা করছি না, কিন্তু এই কাজ করতে খুব দীর্ঘ ছিল না।

— OfficeLackey

Answer 1

আপনি বলেছেন যে "প্রতিটি নামের জন্য তথ্যগুলির সংখ্যা অভিন্ন নয়, তাই একটি সাধারণ সূত্র টেনে নিল যা কাজ করবে না।"

যাইহোক, আপনি সমস্ত ফাঁকা কোষে একটি সূত্র সন্নিবেশ করতে কি করতে পারেন তা হল:

1. ঘর A2 তে, সূত্র = A1 প্রবেশ করান
2. কোষ A2 মধ্যে সূত্র অনুলিপি করুন
3. কোষ A1: B7 এ সমগ্র পরিসীমা নির্বাচন করুন।
4. CTRL + জি আঘাত।
5. "বিশেষ" চয়ন করুন।
6. "খালি" চয়ন করুন; "ঠিক আছে".
7. নির্বাচিত ফাঁকা কোষগুলিতে সূত্রগুলি পেস্ট করতে CTRL + V টিপুন।
8. আপনি এখন সূত্র মুছে ফেলার জন্য বিশেষ - মান কপি-পেস্ট করতে পারেন।

তারপর আপনি উপরে আপনার লিঙ্ক দেখানো পদ্ধতি সঙ্গে এগিয়ে যেতে পারে।

Answer 2

এই এটা করা উচিত

Sub test()
Dim s As String
Dim i As Integer
For i = 1 To 100
    start:
    If Cells(i, 1) <> "" And Cells(i + 1, 1) = "" And Cells(i + 1, 2) <> "" Then
        s = Cells(i, 2).Value & "," & Cells(i + 1, 2).Value
        Cells(i, 2) = s
        Cells(i + 1, 1).EntireRow.Delete
        GoTo start
    End If

Next

End Sub

Comments

আমি এই রান যখন কিছুই ঘটতে প্রদর্শিত হবে। ম্যাক্রো সক্রিয় করা হয়েছে তাই কিছু করা উচিত?

— OfficeLackey

@ অফিসিস্যাক্যাকি আপনি যে চাদরে কাজ করছেন তার উপর এটি কার্যকর করছেন কিনা তা নিশ্চিত করুন। এছাড়াও সঠিক কাজপুস্তিকায় এটি একটি মডিউল নিশ্চিত করুন।

— Raystafarian