সারির উপর ভিত্তি করে এক্সেল শীটকে একাধিক শীটে বিভক্ত করুন

কখনও কখনও সহজ গণনার জন্য, আমাদের সারির উপর ভিত্তি করে একটি এক্সেল শীটকে একাধিক শীটে বিভক্ত করতে হবে . এই নিবন্ধে, আমরা Microsoft Excel VBA-এর মাধ্যমে এটি কীভাবে করতে হয় তা শিখতে যাচ্ছি একটি সুন্দর উদাহরণ এবং ব্যাখ্যা সহ কোড।

অভ্যাস ওয়ার্কবুক

নিচের ওয়ার্কবুক এবং ব্যায়াম ডাউনলোড করুন।

সারির উপর ভিত্তি করে এক্সেল শীটকে একাধিক শীটে বিভক্ত করতে এক্সেল VBA

VBA (অ্যাপ্লিকেশনের জন্য ভিজ্যুয়াল বেসিক) মাইক্রোসফ্ট এক্সেলের জন্য সবচেয়ে জনপ্রিয় প্রোগ্রামিং ভাষাগুলির মধ্যে একটি। একটি ব্যবহারকারী-সংজ্ঞায়িত ফাংশন বিকাশ করতে, আমরা এক্সেল VBA ব্যবহার করতে পারি। এটি শিখতে খুব সহজ সেইসাথে প্রয়োগ করাও সহজ৷

এক্সেলের একাধিক শীটে বিভক্ত করা শীটের পরিচিতি

ধরে নিচ্ছি আমাদের একটি ডেটাসেট আছে (B4:C10 ) শিট1-এ তাদের কাজের সময় সহ কর্মচারীদের . আমরা এই শীটটিকে একাধিক শীটে বিভক্ত করতে যাচ্ছি . প্রতিটি শীটে দুটি সারি থাকবে৷

ধাপ 1:একটি এক্সেল শীটকে একাধিক পত্রে বিভক্ত করতে VBA উইন্ডো চালু করুন

• প্রথমে, শীট বার থেকে ওয়ার্কশীট নির্বাচন করুন।
• পরবর্তী ডান-ক্লিক করুন শীটে।
• ক্লিক করুন কোড দেখুন-এ .

ধাপ 2:VBA কোড টাইপ করুন এবং চালান

• একটি VBA মডিউল উইন্ডো এখানে খোলে। আমরা কীবোর্ড শর্টকাট ‘ Alt + F11 ব্যবহার করে এটি খুলতে পারি '।
• এখন নিচের কোডটি টাইপ করুন:

Sub SplitSheet()
Dim Rng As Range
Dim xRow As Range
Dim SplitRow As Integer
Dim xSheet As Worksheet
On Error Resume Next
xTitleId = "ExcelSplit"
Set Rng = Application.Selection
Set Rng = Application.InputBox("Range", xTitleId, Rng.Address, Type:=8)
SplitRow = Application.InputBox("Row Number Split", xTitleId, 5, Type:=1)
Set xSheet = Rng.Parent
Set xRow = Rng.Rows(1)
Application.ScreenUpdating = False
For i = 1 To Rng.Rows.Count Step SplitRow
resizeCount = SplitRow
If (Rng.Rows.Count - xRow.Row + 1) < SplitRow Then resizeCount = Rng.Rows.Count - xRow.Row + 1
xRow.Resize(resizeCount).Copy
Application.Worksheets.Add after:=Application.Worksheets(Application.Worksheets.Count)
Application.ActiveSheet.Range("A1").PasteSpecial
Set xRow = xRow.Offset(SplitRow)
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

• তারপর ক্লিক করুন চালাতে বিকল্প বা আমরা কেবল F5 টিপতে পারি কোড চালানোর জন্য কী।

ধাপ 3:সারির উপর ভিত্তি করে একটি শীটকে একাধিক ভাগে বিভক্ত করতে ম্যাক্রো নাম দিন এবং চালান

• একটি নিশ্চিতকরণ ম্যাক্রো উইন্ডো পপ আপ।
• এর পর, শীটের নাম নির্বাচন করুন এবং ক্লিক করুন চালাতে .

ধাপ 4:ডেটা রেঞ্জ নির্বাচন করুন

• ExcelSplit পরিসরে ডেটার পরিসীমা নির্দিষ্ট করুন ডায়ালগ বক্স এবং ঠিক আছে নির্বাচন করুন .

ধাপ 5:প্রতিটি শীটে প্রদর্শিত সারিগুলির সংখ্যা নির্দিষ্ট করুন

• আবার আমরা ExcelSplit রো নম্বর স্প্লিট-এ বিভক্ত করতে চাই সারি নম্বরটি লিখুন ডায়ালগ বক্স এবং ঠিক আছে নির্বাচন করুন . এখানে আমরা লিখি '2 '।

সারির উপর ভিত্তি করে একাধিক এক্সেল শীট সহ চূড়ান্ত আউটপুট

• অবশেষে, আমরা দেখতে পাচ্ছি যে মূল শীটটি একাধিক শীটে বিভক্ত। প্রতিটি শীটে দুটি সারি রয়েছে৷

আরো পড়ুন: কলাম মানের উপর ভিত্তি করে এক্সেল শীটকে একাধিক শীটে কীভাবে বিভক্ত করবেন

উপসংহার

এই মাইক্রোসফ্ট এক্সেল VBA কোড ব্যবহার করে, আমরা সারিগুলির উপর ভিত্তি করে এক্সেল শীটটিকে একাধিক শীটে বিভক্ত করতে পারি। একটি অনুশীলন ওয়ার্কবুক যোগ করা হয়. এগিয়ে যান এবং এটি চেষ্টা করুন. নির্দ্বিধায় কিছু জিজ্ঞাসা করুন বা নতুন পদ্ধতির পরামর্শ দিন৷

সম্পর্কিত পড়া

• এক্সেলে কীভাবে স্ক্রীন বিভক্ত করবেন (৩টি উপায়)
• Excel এ পৃথক পত্রক (6 কার্যকরী উপায়)
• এক্সেল শীটকে একাধিক ফাইলে কীভাবে বিভক্ত করবেন (৩টি দ্রুত পদ্ধতি)
• Excel এ পৃথক ওয়ার্কবুকগুলিতে শীটগুলি বিভক্ত করুন (4 পদ্ধতি)
• ভিবিএ কোড সহ এক্সেল ফাইলগুলিকে আলাদা করতে একটি ওয়ার্কবুক কীভাবে বিভক্ত করবেন