এই নিবন্ধে, আমরা আপনাকে আপনার ওয়ার্ড টেবিলের একাধিক সারি বা কলামগুলি মুছতে ব্যাচের 5 টি দ্রুত পদ্ধতি দেখাতে চাই।
দস্তাবেজটি চোখের কাছে সহজ করার জন্য আমরা টেবিলগুলিতে ডেটা রেখেছি। দীর্ঘ টেবিল তৈরি করা অস্বাভাবিক কিছু নয়। তবে, আপনি যখন আবার টেবিলটি পরীক্ষা করেন এবং কয়েকটি সারি এবং কলামগুলি অপ্রয়োজনীয় সন্ধান করেন, সেগুলি সরানোর জন্য আপনার দ্রুত উপায় প্রয়োজন।
প্রথমে একাধিক পরপর সারি বা কলামগুলি মুছে ফেলার উপায়গুলি দেখুন।
পদ্ধতি 1: প্রসঙ্গ মেনুর মাধ্যমে সারি বা কলামগুলি মুছুন
- প্রথমত, সারি বা কলামগুলির একটি সিরিজ নির্বাচন করুন এবং ডান ক্লিক করুন।
- তারপরে "সারি মুছুন" বা "কলামগুলি মুছুন" সেই অনুযায়ী চয়ন করুন।
- অথবা আপনি সারি বা কলাম নির্বাচন করতে পারেন এবং "লেআউট" ক্লিক করতে পারেন।
- তারপরে "মুছুন" নির্বাচন করুন এবং "কলামগুলি মুছুন" বা "সারিগুলি মুছুন" নির্বাচন করুন।
পদ্ধতি 2: শর্টকাট ব্যবহার করুন
- প্রথমত, সারি বা কলাম নির্বাচন করুন।
- দ্বিতীয়ত, "ব্যাকস্পেস" টিপুন।
এখন যদি কলাম বা সারিগুলি অবিচ্ছিন্ন থাকে তবে আমরা উপরের পদ্ধতিগুলি ব্যবহার করে সেগুলি মুছতে পারি না। পরিবর্তে, আপনি নিম্নলিখিত পদ্ধতি মোতায়েন করতে পারেন।
পদ্ধতি 3: অপ্রয়োজনীয় সারি বা কলামগুলি একসাথে রাখুন
- প্রথমে একটি সারি বা কলাম নির্বাচন করুন।
- তারপরে মাউস ক্লিক করুন এবং ধরে রাখুন।
- মাউসটিকে একটি সঠিক অবস্থানে টেনে আনুন এবং ছেড়ে দিন।
- তারপর সমস্ত কাঙ্ক্ষিত সারি বা কলাম নির্বাচন করুন এবং উপরের পদ্ধতিগুলো ব্যবহার করে সেগুলো মুছে ফেলুন।
পদ্ধতি 4: একাধিক অবিচ্ছিন্ন সারিগুলি মুছতে একটি ম্যাক্রো চালান
- সর্বপ্রথম সারিগুলো নির্বাচন করুন।
- ওয়ার্ডে ভিবিএ সম্পাদক খুলতে "Alt + F11" টিপুন।
- তারপরে “সাধারণ '' প্রকল্পে ক্লিক করে একটি মডিউল তৈরি করুন।
- পরবর্তী "সন্নিবেশ" ক্লিক করুন এবং "মডিউল" চয়ন করুন।
- ডাবল ক্লিক দিয়ে মডিউলটি খুলুন এবং নিম্নলিখিত কোডগুলি পেস্ট করুন:
Sub DeleteNonConsecutiveRows()
Dim objCell As Cell
Dim objTable As Table
Dim nIndex As Integer, nRows As Integer
Dim strTable As String
Dim varCellEmpty As Boolean
Application.ScreenUpdating = False
' Delete contents in selected rows.
Selection.Delete
With Selection.Tables(1)
nRows = .Rows.Count
For nIndex = nRows To 1 Step -1
For Each objCell In .Rows(nIndex).Cells
If Len(objCell.Range.Text) > 2 Then
varCellEmpty = False
Exit For
Else
varCellEmpty = True
.Rows(nIndex).Delete
End If
Next objCell
Next nIndex
End With
Set objCell = Nothing
Set objTable = Nothing
Application.ScreenUpdating = True
End Sub
- সর্বশেষে তবে সর্বনিম্ন নয়, "রান" ক্লিক করুন বা "এফ 5" টিপুন।
পদ্ধতি 5: একাধিক অবিচ্ছিন্ন কলামগুলি মুছতে একটি ম্যাক্রো চালান
- প্রথমেই, “Ctrl” কী চেপে কাঙ্ক্ষিত কলামগুলো নির্বাচন করুন।
- পরবর্তী উপরে ঠিক একই ধাপ অনুসরণ করে ম্যাক্রো ইনস্টল করুন এবং চালান run
- তবে এইটির সাথে ম্যাক্রোটি প্রতিস্থাপন করুন:
Sub DeleteNonConsecutiveColumns()
Dim objCell As Cell
Dim objTable As Table
Dim nIndex As Integer, nColumns As Integer
Dim strTable As String
Dim varCellEmpty As Boolean
Application.ScreenUpdating = False
' Delete contents in selected columns.
Selection.Delete
With Selection.Tables(1)
nColumns = .Columns.Count
For nIndex = nColumns To 1 Step -1
For Each objCell In .Columns(nIndex).Cells
If Len(objCell.Range.Text) > 2 Then
varCellEmpty = False
Exit For
Else
varCellEmpty = True
.Columns(nIndex).Delete
End If
Next objCell
Next nIndex
End With
Set objCell = Nothing
Set objTable = Nothing
Application.ScreenUpdating = True
End Sub
ডকুমেন্ট দুর্নীতি দেখুন
ডিজিটাল স্টোরেজ ডিভাইসের ব্যবহার বৃদ্ধির সাথে সাথে ডেটার যত্ন নেওয়া গুরুত্বপূর্ণ। সর্বোত্তম উপায়গুলির মধ্যে একটি হ'ল সেগুলি ব্যাক আপ করা। উদাহরণস্বরূপ, ওয়ার্ড ব্যবহার করার সময় এটি হঠাৎ করে সাড়া দেওয়া বন্ধ করতে পারে। এবং যখন এটি স্বাভাবিক অবস্থায় ফিরে আসে, আপনি কেবলমাত্র আপনার দস্তাবেজটিকে মৃত দেখতে পাবেন। এবং তারপরে আপনাকে সমস্ত হট্টগোলের মধ্য দিয়ে যেতে হবে ডকক্স পুনরুদ্ধার.
লেখকের ভূমিকা:
ভেরা চেন একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় xlsx ফিক্স এবং pdf মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com