একটি সারণীতে 'সেলগুলি মার্জ করা'

Question

আমার কাছে একটি এক্সেল শিট রয়েছে যাতে বেশ কয়েকটি সত্তা রয়েছে যা তাদের 'কাজের নম্বর' দ্বারা সংজ্ঞায়িত করা হয়। যাইহোক, আমার প্রতি চাকরীতে একাধিক সারি প্রয়োজন যার অর্থ কলামটি ডুপ্লিকেটগুলি সমাপ্ত করে, যেমন

প্রতিটি গ্রুপকে অভিন্ন কাজের সংখ্যার একত্র করার কোনও উপায় আছে যাতে তারা একটি 'একক' সারি হয়? পছন্দসই লেআউটটি কী।

দ্রষ্টব্য: প্রতিটি কাজ 3 টি সারি হওয়ার গ্যারান্টিযুক্ত, তাই এটি সর্বদা একই প্যাটার্নটি অনুসরণ করবে। এই কাজ করতে একটি উপায় আছে কি?

Comments

আপনি ঘরগুলি মার্জ করতে এবং বিষয়বস্তুগুলিকে কেন্দ্র করতে ভিবিএ ব্যবহার করতে পারেন।

— রন রোজেনফিল্ড

ভাল কারণ আমি এর জন্য একটি টেবিল ব্যবহার করতে চাইছি যাতে অন্য কলামগুলির সূত্রগুলি বন্যার মধ্যে দিয়ে যায়। আমি 100% নিশ্চিত নই যে আমি কীভাবে

— ভিবিএতে

আপনি কোনও সারণীতে ঘরগুলি মার্জ করতে পারবেন না । এটি এক হতে হবে?

— ড্যানিয়েল বি

আপনি কি আলাদা ট্যাবুলার পিভট টেবিলে পছন্দসই দৃশ্য উপস্থাপন করতে পারেন?

— মার্ক ফিৎসগেরাল্ড

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

— ম্যাক্সিম শ্রুর

Answer 1

এই কোড ব্যবহার করে দেখুন:

Sub Test() TitleRow = 1 'if title contain more than one row, change the value 1 to the actual number of rows i = 0 Application.DisplayAlerts = False Do Set StartCell = ActiveSheet.Range("A" & (TitleRow + 3 * i + 1)) Set EndCell = ActiveSheet.Range("A" & (TitleRow + 3 * i + 3)) With ActiveSheet.Range(StartCell, EndCell) .Merge .VerticalAlignment = xlCenter .HorizontalAlignment = xlCenter End With i = i + 1 Loop Until Range("A" & (TitleRow + 3 * i) + 1) = "" Application.DisplayAlerts = True End Sub

Answer 2

এটি আপনার প্রয়োজন অনুযায়ী ম্যাক্রো বা ভিবিএ, ভিবিএতে নীচের কোডটি সম্পাদনা করে সহজেই করা যায়।

ব্যাপ্তি ("A1: A3")। নির্বাচনের সাথে নির্বাচন করুন .আরক্ষীয় এলিমনমেন্ট = xlCenter। ভার্টিকাল অলাইনমেন্ট = xlBottom। র্যাপটেক্সট = মিথ্যা। ওরিয়েন্টেশন = 0। অ্যাডডেন্ডেন্ট = মিথ্যা .আরডেন্টলভেল = 0 .আরঙ্ক ট্রটফিট = মিথ্যা .আলিজের সাথে তালিকাম .আলিজ। নির্বাচন। নির্বাচনের সাথে সংহত করুন। হরিজন্টালাইগমেন্ট = এক্সএল সেন্টার

Comments

Range("A1:A3")পরিসীমাটিকে পরম হিসাবে সংজ্ঞায়িত করছে। যেহেতু প্রতিটি একক সারি সারিটির জন্য আমার এটি করা দরকার, আমি কীভাবে এটি করব?

— ম্যাক্সিম স্যুর