এই পোস্টে আমরা আপনার ওয়ার্ড টেবিল থেকে খালি সারি এবং কলাম মুছে ফেলার ৩টি দ্রুত উপায় ব্যাখ্যা করব।
টেবিলগুলি নথির জন্য বিশেষত বিভিন্ন ধরণের ডেটা ধারণ করার জন্য প্রয়োজনীয়। কখনও কখনও, একটি দীর্ঘ টেবিল একটি পৃষ্ঠাকে অতিক্রম করতে এবং বেশ কয়েকটিতে প্রসারিত করতে পারে। সুতরাং একবার কোনও টেবিল দীর্ঘ এবং জটিল হয়ে ওঠার পরে, এটিকে সহজ করার জন্য আপনি কিছু ব্যবস্থা নিতে পারেন। উদাহরণস্বরূপ, আপনি অপ্রয়োজনীয় ফাঁকা সারি এবং কলামগুলি মুছতে পারেন।
নিম্নলিখিত 3 টি পদ্ধতি আপনি ব্যবহার করতে পারেন।
পদ্ধতি 1: খালি সারি এবং কলামগুলি ম্যানুয়ালি মুছুন
- প্রথমত, ফাঁকাতে একটি সারি বা একটি কলাম নির্বাচন করুন।
- তারপরে প্রাসঙ্গিক মেনু পেতে ডান ক্লিক করুন। মেনুতে, "সারি মুছুন" বা "কলামগুলি মুছুন" সেই অনুযায়ী নির্বাচন করুন।
দুর্ভাগ্যক্রমে, আপনি একাধিক অ-ক্রমাগত সারি বা কলামগুলি নির্বাচন করতে পারবেন না এবং এইভাবে তাদের একসাথে মুছুন। এই দাবির জন্য, আপনি আমাদের পূর্ববর্তী নিবন্ধটি উল্লেখ করতে পারেন: ব্যাচের 5 টি দ্রুত পদ্ধতি আপনার ওয়ার্ড সারণীতে একাধিক সারি বা কলামগুলি মুছুন
পদ্ধতি 2: ব্যাচটি একটি সারণীতে সমস্ত ফাঁকা সারি এবং কলামগুলি মুছুন
পদ্ধতি 1 এর সীমাবদ্ধতা রয়েছে। সুতরাং আমরা আপনাকে ভিবিএ কোডগুলির মাধ্যমে কোনও সারণীতে সারি এবং কলামগুলি সরিয়ে ফেলার ব্যাচ দেওয়ার উপায় সরবরাহ করব।
- শুরুতে, টার্গেট টেবিলের ভিতরে কার্সর রাখুন।
- দ্বিতীয়ত, "Alt + F11" টিপে ভিবিএ সম্পাদককে ট্রিগার করুন।
- সম্পাদকটিতে প্রথমে "সাধারণ" প্রকল্পটি ক্লিক করুন।
- তারপরে মেনু বারের "সন্নিবেশ" ট্যাবে ক্লিক করুন।
- ড্রপ-ডাউন মেনুতে, "মডিউল" নির্বাচন করুন।
- এটি খোলার জন্য মডিউলটিতে ডাবল ক্লিক করুন এবং নীচের কোডগুলি এখানে পেস্ট করুন:
Sub DeleteBlankRowsAndTablesInATable()
Dim objCell As Cell
Dim nRowIndex As Integer, nRows As Integer, nColumns As Integer, nColumnIndex As Integer
Dim varCellEmpty As Boolean
Application.ScreenUpdating = False
If Selection.Information(wdWithInTable) = False Then
MsgBox ("Put cursor inside a table first!")
Exit Sub
Else
With Selection.Tables(1)
nRows = .Rows.Count
For nRowIndex = nRows To 1 Step -1
varCellEmpty = True
For Each objCell In .Rows(nRowIndex).Cells
If Len(objCell.Range.Text) > 2 Then
varCellEmpty = False
Exit For
End If
Next objCell
If varCellEmpty = True Then
.Rows(nRowIndex).Delete
End If
Next nRowIndex
nColumns = .Columns.Count
For nColumnIndex = nColumns To 1 Step -1
varCellEmpty = True
For Each objCell In .Columns(nColumnIndex).Cells
If Len(objCell.Range.Text) > 2 Then
varCellEmpty = False
Exit For
End If
Next objCell
If varCellEmpty = True Then
.Columns(nColumnIndex).Delete
End If
Next nColumnIndex
End With
End If
Set objCell = Nothing
Application.ScreenUpdating = True
End Sub
- অবশেষে, মেনু বারে "রান" বোতামটি ক্লিক করুন বা "F5" টিপুন।
সেকেন্ডে, আপনি সারণীতে সমস্ত ফাঁকা সারি এবং কলামগুলি সরিয়ে ফেলবেন।
পদ্ধতি 3: ব্যাচ একটি নথিতে সমস্ত সারণীতে সমস্ত খালি সারি এবং কলামগুলি মুছুন
- প্রথমে, ম্যাক্রো ইনস্টল এবং চালানোর জন্য পদ্ধতি 2 এর পদক্ষেপগুলি পুনরাবৃত্তি করুন।
- কেবলমাত্র এবারই নিম্নলিখিত ম্যাক্রোর সাথে প্রতিস্থাপন করুন:
Sub DeleteBlankRowsAndColumnsInAllTables()
Dim objCell As Cell
Dim objTable As Table
Dim nRowIndex As Integer, nRows As Integer, nColumns As Integer, nColumnIndex As Integer
Dim varCellEmpty As Boolean
Application.ScreenUpdating = False
With ActiveDocument
For Each objTable In .Tables
nRows = objTable.Rows.Count
For nRowIndex = nRows To 1 Step -1
varCellEmpty = True
For Each objCell In objTable.Rows(nRowIndex).Cells
If Len(objCell.Range.Text) > 2 Then
varCellEmpty = False
Exit For
End If
Next objCell
If varCellEmpty = True Then
objTable.Rows(nRowIndex).Delete
End If
Next nRowIndex
Next objTable
For Each objTable In .Tables
nColumns = objTable.Columns.Count
For nColumnIndex = nColumns To 1 Step -1
varCellEmpty = True
For Each objCell In objTable.Columns(nColumnIndex).Cells
If Len(objCell.Range.Text) > 2 Then
varCellEmpty = False
Exit For
End If
Next objCell
If varCellEmpty = True Then
objTable.Columns(nColumnIndex).Delete
End If
Next nColumnIndex
Next objTable
End With
Set objCell = Nothing
Set objTable = Nothing
Application.ScreenUpdating = True
End Sub
ভাঙা দস্তাবেজ পুনরুদ্ধার করুন
আজকাল হারিয়ে যাওয়া ডেটা পুনরুদ্ধার করার একাধিক উপায় রয়েছে। উদাহরণস্বরূপ, ব্যাকআপ ব্যবহার করা সর্বদা আপনার সর্বোচ্চ অগ্রাধিকার হওয়া উচিত। যদি তাতেও সর্বশেষ তথ্য ফিরে পাওয়ার আপনার প্রয়োজন মেটে না, তবে আপনি অন্য উপায় চেষ্টা করতে পারেন। ডক মেরামত টুল.
লেখকের ভূমিকা:
ভেরা চেন একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় xlsx মেরামতের এবং pdf মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com