এক্সেল - প্রতিটি কলামে চতুর্থ শব্দটি মুছুন

0

আমি কীভাবে একটি এক্সেল স্প্রেডশিটে প্রতিটি কলামে চতুর্থ শব্দটি মুছতে পারি? উদাহরণস্বরূপ, আমার কাছে "মিস্টার এবং মিসেস স্মিথ" আছে। আমি মিঃ এবং মিসেস রাখতে চাই তবে স্মিথকে মুছে ফেলতে চাই। চতুর্থ শব্দটি খুঁজে বের করার কোনও উপায় নেই? যেকোন সাহায্যের জন্য ধন্যবাদ...

microsoft-excel-2007 
— সিন্ডি পল
সূত্র
শুরুটি সর্বদা "মিঃ এবং মিসেস" হবে ঠিক এমন বানান?
— Xantec
@ জ্যানটেক - যদি তা হয় তবে তার কেন শব্দটি একেবারেই মুছতে হবে? "মিস্টার ও মিসেস" এর অনেকগুলি অনুলিপি দিয়ে কেবল এটি ওভাররাইট করুন তোমার হা হা দরকার!
— শিনরাই

উত্তর:

2

এটি একধরনের কাজ, তবে আপনি যদি নিয়মিত পাঠ্য (সূত্র নয়) নিয়ে কাজ করছেন তবে এটি কার্যকর হবে।

আসুন এটির ডেটা সহ আপনার শীটটিকে বলা হয় "শীট 1"। আপনার স্প্রেডশিটে একটি নতুন ওয়ার্কশিট তৈরি করুন (আসুন ধরে নেওয়া যাক একে "শীট 2" বলা হয়) এবং এ 1 তে টাইপ করুন:

=IFERROR(LEFT(Sheet1!A1,FIND(" ",Sheet1!A1,FIND(" ",Sheet1!A1,FIND(" ",Sheet1!A1)+1)+1)-1),"")

আপনি যদি কেবল চতুর্থ শব্দটি মুছতে চান তবে টাইপ করুন:

=IFERROR(LEFT(Sheet1!A1,FIND(" ",Sheet1!A1,FIND(" ",Sheet1!A1,FIND(" ",Sheet1!A1)+1)+1))&RIGHT(Sheet1!A1,LEN(Sheet1!A1)-FIND(" ",Sheet1!A1,FIND(" ",Sheet1!A1,FIND(" ",Sheet1!A1,FIND(" ",Sheet1!A1)+1)+1)+1)),IFERROR(LEFT(Sheet1!A1,FIND(" ",Sheet1!A1,FIND(" ",Sheet1!A1,FIND(" ",Sheet1!A1)+1)+1)-1),""))

সেল এ 1 টি অনুলিপি করুন এবং আপনার যে ডেটা দিয়ে কাজ করতে চান তার সাথে শীট 1-এ কোষগুলির সাথে মেলে এমন শিট 2-এ এমন কক্ষগুলিতে এটি আটকান। (সুতরাং আপনার কাছে যদি ডি 5 এর মাধ্যমে সেল 1 এ শীট 1 এ ডেটা থাকে, এটি ডি 5 এর মাধ্যমে সেল 1 এ শীট 2 এ আটকান)) আপনার আটকানো সমস্ত কপি অনুলিপি করুন, শিট 1 এ স্যুইচ করুন এবং ম্যাচিং স্পটগুলিতে মানগুলি পেস্ট করুন । আপনি এখন পত্রক 2 মুছতে পারেন।

— Firefeather
সূত্র
2

এটি প্রাচীরের ধারণা থেকে দূরে থাকতে পারে, তবে ফাইলটিকে একটি স্পেস সীমিত ফাইল হিসাবে তৈরি করার চেষ্টা করুন, তারপরে এটি এক্সেল দিয়ে খুলুন open এখন চতুর্থ কলামটি মুছুন। এটি কাগজে ভাল লাগছে ... এগুলি ছাড়া আমি জানি না।

— ডেভিড
সূত্র
1
আমি প্রায়শই একটি সংস্করণ পাঠ্যটি ওয়ার্ডে আটকানো, ফাঁকা স্থানগুলি ট্যাবগুলির সাথে প্রতিস্থাপন করে এবং তারপরে হয় ওয়ার্ডের মধ্যে একটি টেবিলে রূপান্তরিত করে, বা এক্সেলের সাথে ফিরে আটকানো এবং এটির সাথে আরও কাজ করে। মুল বক্তব্যটি হ'ল ওয়ার্ড বা এক্সেল উভয়ই নেস্টেড ফাইন্ড () ফাংশনগুলির সাথে লড়াইয়ের পরিবর্তে টোকেনগুলিতে বিভক্ত হওয়ার বিষয়টি বিবেচনা করুন। (বিশেষত যেহেতু সন্ধান করুন () কেবল একটি ০. ফেরার পরিবর্তে এটি কিছু না পেলে ত্রুটি ছুড়ে দেয়)
— মার্থা
0

এটি করার একটি আরও মার্জিত / দক্ষ উপায় এখানে আপনি যদি ভিজ্যুয়াল বেসিক ম্যাক্রোতে পেস্ট করতে ঠিক করেন:

আসুন এটির ডেটা সহ আপনার শীটটিকে বলা হয় "শীট 1"।

  1. উপর বিকাশকারী ট্যাব এ ক্লিক করুন ম্যাক্রো । (যদি কোনও বিকাশকারী ট্যাব না থাকে, উইন্ডোটির উপরের বাম দিকে মাইক্রোসফ্ট অফিসের বড় বোতামটি ক্লিক করুন, এক্সেল বিকল্পগুলি ক্লিক করুন, তারপরে জনপ্রিয় ক্লিক করুন , এবং তারপরে রিবন চেক বাক্সে ডেভেলপার প্রদর্শন করুন ট্যাবে ক্লিক করুন )।
  2. একটি ডায়ালগ বক্স পপ আপ হবে। ইন ম্যাক্রো নাম: পাঠ্যবাক্স, আপনার ম্যাক্রো নাম; ডিলিটফোর্ট ওয়ার্ডের মতো কিছু কাজ করবে।
  3. তৈরি বোতামটি ক্লিক করুন । (যদি তৈরি বোতামটি এখনও অক্ষম থাকে তবে আপনার ম্যাক্রোর নাম থেকে ফাঁকা স্থান এবং যতিচিহ্ন বের করুন))

  4. "সাব ডিলিটফোর্ট ওয়ার্ড ()" এবং "শেষ উপ" এর মধ্যে থাকা স্পষ্টে যে উইন্ডোটি উঠে আসে তাতে নিম্নলিখিতটি আটকে দিন:

     For Each c In ActiveCell.CurrentRegion.Cells
        If c.HasFormula = False Then
            Original_Cell_Text = c.Value
            Text_To_Parse = Original_Cell_Text
            Word1 = Left(Text_To_Parse, InStr(1, Text_To_Parse, " ", vbTextCompare))
            If Len(Word1) = 0 Then
                Word1 = Text_To_Parse
                Text_To_Parse = ""
            Else
                Text_To_Parse = Right(Text_To_Parse, Len(Text_To_Parse) - Len(Word1))
            End If
            Word2 = Left(Text_To_Parse, InStr(1, Text_To_Parse, " ", vbTextCompare))
            If Len(Word2) = 0 Then
                Word2 = Text_To_Parse
                Text_To_Parse = ""
            Else
                Text_To_Parse = Right(Text_To_Parse, Len(Text_To_Parse) - Len(Word2))
            End If
            Word3 = Left(Text_To_Parse, InStr(1, Text_To_Parse, " ", vbTextCompare))
            If Len(Word3) = 0 Then
                Word3 = Text_To_Parse
                Text_To_Parse = ""
            Else
                Text_To_Parse = Right(Text_To_Parse, Len(Text_To_Parse) - Len(Word3))
            End If
            Word4 = Left(Text_To_Parse, InStr(1, Text_To_Parse, " ", vbTextCompare))
            If Len(Word4) = 0 Then
                Word4 = Text_To_Parse
                Text_To_Parse = ""
            Else
                Text_To_Parse = Right(Text_To_Parse, Len(Text_To_Parse) - Len(Word4))
            End If
            Remaining_Text = Text_To_Parse
            If (Len(Word1) > 0 And Len(Word2) > 0 And Len(Word3) > 0 And Len(Word4) > 0) Then
                If Len(Remaining_Text) > 0 Then
                    c.Value = Word1 + Word2 + Word3 + Remaining_Text
                Else
                    c.Value = Word1 + Word2 + Word3
                End If
            End If
        End If
    Next

  5. মাইক্রোসফ্ট ভিজ্যুয়াল বেসিক উইন্ডোটি বন্ধ করুন এবং বিকাশকারী ট্যাবে ম্যাক্রোগুলি ক্লিক করুন ।

  6. আপনি স্রেফ তৈরি ম্যাক্রোটি নির্বাচন করুন এবং বিকল্পগুলি ... বোতামটি ক্লিক করুন।
  7. শর্টকাট কী এর অধীনে , এই ফাংশনটির জন্য ব্যবহার করার জন্য একটি শর্টকাট কী বাছুন (আমি এই উদাহরণে "টি" কী ব্যবহার করব) এবং এটি সেখানে টাইপ করুন।
  8. পুশ ঠিক আছে বোতাম এবং তারপর বন্ধ ম্যাক্রো ডায়ালগ বক্স।
  9. আপনি যে কক্ষগুলি থেকে চতুর্থ শব্দটি সরাতে চান সেগুলি নির্বাচন করুন এবং আপনার শর্টকাট কীটি (যেমন Ctrl + t) টিপুন। আপনি যতবার চান এই পদক্ষেপটি পুনরাবৃত্তি করতে পারেন।

দ্রষ্টব্য: আপনি যদি তৃতীয় শব্দের পরে সবকিছু মুছতে চান তবে পরিবর্তে এটি আটকান:

For Each c In ActiveCell.CurrentRegion.Cells
    If c.HasFormula = False Then
        Original_Cell_Text = c.Value
        Text_To_Parse = Original_Cell_Text
        Word1 = Left(Text_To_Parse, InStr(1, Text_To_Parse, " ", vbTextCompare))
        If Len(Word1) = 0 Then
            Word1 = Text_To_Parse
            Text_To_Parse = ""
        Else
            Text_To_Parse = Right(Text_To_Parse, Len(Text_To_Parse) - Len(Word1))
        End If
        Word2 = Left(Text_To_Parse, InStr(1, Text_To_Parse, " ", vbTextCompare))
        If Len(Word2) = 0 Then
            Word2 = Text_To_Parse
            Text_To_Parse = ""
        Else
            Text_To_Parse = Right(Text_To_Parse, Len(Text_To_Parse) - Len(Word2))
        End If
        Word3 = Left(Text_To_Parse, InStr(1, Text_To_Parse, " ", vbTextCompare))
        If Len(Word3) = 0 Then
            Word3 = Text_To_Parse
            Text_To_Parse = ""
        Else
            Text_To_Parse = Right(Text_To_Parse, Len(Text_To_Parse) - Len(Word3))
        End If
        Remaining_Text = Text_To_Parse
        If (Len(Word1) > 0 And Len(Word2) > 0 And Len(Word3) > 0) Then
            c.Value = Word1 + Word2 + Word3
        End If
    End If
Next

(উত্স দ্রষ্টব্য: এক্সেল সহায়তা ফাইল থেকে বিকাশকারী ট্যাব কীভাবে পাবেন সে সম্পর্কে আমি নির্দেশাবলী পরিবর্তন করেছি))

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