এক্সেল: নির্দিষ্ট কলামের সেল ফাঁকা থাকলে সারিটি মুছবেন?


23

আমি এক্সেলের সম্পূর্ণ নবাগত, তাই দয়া করে যদি এটি করার কিছু সহজ হয় তবে আমাকে ক্ষমা করুন। আমি প্রচুর অপশন দেখেছি তবে আমার যা প্রয়োজন তা খুঁজে পেলাম না।

মূলত, আমি সমস্ত সারি মুছে ফেলতে চাই যেখানে কলাম সি-তে কোনও মূল্য নেই I আমি কীভাবে এটি করতে যাব?

আমি এখনই 5000+ টি পণ্যের জন্য ম্যানুয়ালি এটি করছি এবং এটি আমাকে উন্মাদ করে চলেছে।


2
স্ট্রিং ওভারফ্লোতে ভিবিএ সমাধানগুলি সুপার ইউজারে স্থানান্তরিত করে কেন একটি প্রশ্ন জিজ্ঞাসা করা হয়েছিল?
brettdj

উত্তর:


31

কোষগুলি সত্যিকার অর্থে ফাঁকা থাকলে আপনি এটি খুব তাড়াতাড়ি করতে পারেন SpecialCells

ম্যানুয়াল

  • কলাম সি নির্বাচন করুন
  • F5তারপর টিপুনSpecial
  • Blanksতারপরে, চেক করুন OK(নীচে পিকের এই পদক্ষেপটি দেখুন)
  • এখন নির্বাচিত সারিগুলি মুছুন (উদাহরণস্বরূপ নির্বাচনের ডান ক্লিক করুন> ঘরগুলি মুছুন ... > পুরো সারি বা ফিতাটির মাধ্যমে (দ্বিতীয় স্ক্রিনশট দেখুন)

VBA

Sub QuickCull()
    On Error Resume Next
    Columns("C").SpecialCells(xlBlanks).EntireRow.Delete
End Sub

স্ক্রিনশটটি বিশেষে যান -> খালি মেনু দেখাচ্ছে স্ক্রিনশটটি নির্বাচনের পুরো সারিগুলি মোছার জন্য ফিতাটি কীভাবে ব্যবহার করবেন তা দেখায়


8

এখানে একটি সহজ ম্যানুয়াল পদ্ধতি

  1. Auto Filterআপনার শীটে একটি প্রয়োগ করুন
  2. Cখালি কলামে ফিল্টার
  3. সমস্ত দৃশ্যমান সারি নির্বাচন করুন
  4. সারি মুছুন
  5. ফিল্টার সরান

প্রয়োজনে এই প্রক্রিয়াটি ভিবিএর সাথে স্বয়ংক্রিয় করা যেতে পারে। একটি সূচনা পেতে ম্যাক্রো রেকর্ডার চালানোর চেষ্টা করুন


সহজ এখনও কার্যকর। কাজ অবাক!
Tiana987642

2

আমি মনে করি আপনার কাছে অন্যান্য কোষগুলিতে অন্যান্য সূত্রগুলির একগুচ্ছ নেই বলে ধরে নেওয়া সবচেয়ে সহজ জিনিসটি হ'ল কলাম সি দ্বারা সমস্ত কিছু সাজানো এবং তারপরে কলাম সি এর জন্য ফাঁকা সমস্ত সারি মুছে ফেলা (সারণি ফাংশনটি ফাঁকা মান রাখবে ফাইলের শীর্ষে কলাম সি এর জন্য)।

সংক্ষেপে:

  • "1" চিহ্নিত ঘরটির উপরে ভাঁজ করা কাগজের ঘরে ক্লিক করুন এবং "এ" চিহ্নিত ঘরটির বাম দিকে (সমস্ত হাইলাইট করার জন্য)
  • ডেটাতে ক্লিক করুন এবং তারপরে বাছাই করুন
  • কলাম সি অনুসারে বাছাই করুন এবং ছোট মানগুলি প্রথমে করুন
  • আপনি কলাম সি এর মান সহ প্রথম সারিতে আঘাত না করা পর্যন্ত আপনি সারিগুলি নীচে হাইলাইট করুন এবং আপনি হাইলাইট করা সমস্ত কিছু মুছুন

0

এই কাজ করা উচিত.

Columns("C:C").Select
Set rngRange = Selection.CurrentRegion
lngNumRows = rngRange.Rows.Count
lngFirstRow = rngRange.Row
lngLastRow = lngFirstRow + lngNumRows - 1
lngCompareColumn = ActiveCell.Column
For lngCurrentRow = lngLastRow To lngFirstRow Step -1
If (Cells(lngCurrentRow, lngCompareColumn).Text = "") Then _
Rows(lngCurrentRow).Delete
Next lngCurrentRow

-1

আপনি এই কোডটি শীট মডিউলটিতে রাখতে পারেন (ডান মাউস শীট ট্যাবে ক্লিক করুন এবং "কোড দেখুন" নির্বাচন করুন):

Sub Delete_Blank_Rows()


'Deletes the entire row within the selection if the ENTIRE row contains no data.

'We use Long in case they have over 32,767 rows selected.

Dim i As Long
Dim LastRow As Integer

'We turn off calculation and screenupdating to speed up the macro.

 With Application
     .Calculation = xlCalculationManual
     .ScreenUpdating = False

     'Reduce the work on the calc and define the range

     LastRow = Range("A" & Rows.Count).End(xlUp).Row
     Range("A2:A" & LastRow).Select

     'We work backwards because we are deleting rows.

     For i = Selection.Rows.Count To 1 Step -1
          If WorksheetFunction.CountA(Selection.Rows(i)) = 0 Then
              Selection.Rows(i).EntireRow.Delete
          End If
     Next i

    .Calculation = xlCalculationAutomatic
    .ScreenUpdating = True
End With

End Sub

1
এটি পুরো সারিটি ফাঁকা যেখানে সারিগুলি মুছে ফেলে? -যে, এটি @ ড্রনেউম্যান উত্তরের অনুরূপ। প্রশ্নটি সুনির্দিষ্টভাবে বলে: নির্দিষ্ট কলামের ঘর ফাঁকা থাকলে সারি মুছুন।
ডেভিডেনকো

সুপার ব্যবহারকারীকে স্বাগতম! প্রশ্নটি আবার মনোযোগ সহকারে পড়ুন। আপনার উত্তরটি মূল প্রশ্নের উত্তর দেয় না
DavidPostill
আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.