Note: The other languages of the website are Google-translated. Back to English
English English

วิธีการค้นหาและลบการแข่งขันหลายรายการพร้อมกันใน Excel?

เมื่อทำงานกับข้อมูลขนาดใหญ่ใน Excel การค้นหาข้อมูลที่คุณต้องการได้อย่างรวดเร็วเป็นสิ่งสำคัญในช่วงเวลาหนึ่งๆ และนั่นคือเมื่อคุณต้องการคุณลักษณะ ค้นหาและแทนที่ ซึ่งช่วยให้คุณสามารถค้นหาและเน้นค่าหรือรูปแบบเฉพาะในแผ่นงานที่ใช้งานอยู่หรือในสมุดงานทั้งหมด จากนั้นทำสิ่งที่คุณต้องการด้วยผลลัพธ์ พูด ลบ หรือแทนที่ อย่างไรก็ตาม ด้วยการค้นหาและแทนที่ของ Excel คุณสามารถค้นหาค่าได้ครั้งละหนึ่งค่าเท่านั้น ในบทช่วยสอนนี้ ฉันจะแนะนำวิธีที่รวดเร็วในการค้นหาค่าต่างๆ ที่หลากหลายและลบออกพร้อมกันใน Excel


ค้นหาและลบการแข่งขันหลายรายการพร้อมกันด้วย VBA

เราได้สร้างโค้ด VBA สองโค้ดเพื่อช่วยคุณค้นหาค่าต่างๆ ในช่วงที่เลือกหรือในหลายเวิร์กชีต แล้วลบออกทันที โปรดทำตามขั้นตอนด้านล่างและรันโค้ดตามความต้องการของคุณ

1. ใน Excel ของคุณ ให้กด อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 คลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกรหัส VBA ต่อไปนี้ไปที่ โมดูล หน้าต่าง

รหัส VBA 1: ค้นหาและลบการแข่งขันหลายรายการในช่วงที่เลือกพร้อมกัน

Sub FindAndDeleteDifferentValues_Range()
'Updated by ExtendOffice 20220823
Dim xRg As Range
Dim xFindStr As String
Dim xFindRg As Range
Dim xARg As Range
Dim xURg As Range
Dim xFindRgs As Range
Dim xFAddress As String
Dim xBol As Boolean
Dim xJ

xArrFinStr = Array("sales", "9", "@") 'Enter the values to delete, enclose each with double quotes and separate them with commas

On Error Resume Next
Set xRg = Application.InputBox("Please select the search scope:", "Kutools for Excel", , Type:=8)
If xRg Is Nothing Then Exit Sub

xBol = False
For Each xARg In xRg.Areas
    Set xFindRg = Nothing
    Set xFindRgs = Nothing
    Set xURg = Application.Intersect(xARg, xARg.Worksheet.UsedRange)
    For Each xFindRg In xURg
        For xJ = LBound(xArrFinStr) To UBound(xArrFinStr)
            If xFindRg.Text = xArrFinStr(xJ) Then
                xBol = True
                If xFindRgs Is Nothing Then
                    Set xFindRgs = xFindRg
                Else
                    Set xFindRgs = Application.Union(xFindRgs, xFindRg)
                End If
            End If
        Next
    Next
    If Not xFindRgs Is Nothing Then
        xFindRgs.ClearContents
    End If
Next
If xBol Then
    MsgBox "Successfully deleted."
Else
     MsgBox "No results found."
End If
End Sub

หมายเหตุ ในตัวอย่าง xArrFinStr = Array("ยอดขาย", "9", "@") ในแถวที่ 13 คุณควรแทนที่ "ยอดขาย", "9", "@" ด้วยค่าจริงที่คุณต้องการค้นหาและลบ อย่าลืมใส่เครื่องหมายคำพูดคู่และคั่นแต่ละค่าด้วยเครื่องหมายจุลภาค


รหัส VBA 2: ค้นหาและลบรายการที่ตรงกันในหลายแผ่นพร้อมกัน

Sub FindAndDeleteDifferentValues_WorkSheets()
'Updated by ExtendOffice 20220823
Dim xRg As Range
Dim xFindStr As String
Dim xFindRg As Range
Dim xARg, xFindRgs As Range
Dim xWShs As Worksheets
Dim xWSh As Worksheet
Dim xWb As Workbook
Dim xURg As Range
Dim xFAddress As String
Dim xArr, xArrFinStr
Dim xI, xJ
Dim xBol As Boolean
xArr = Array("Sheet1", "Sheet2") 'Names of the sheets where to find and delete the values. Enclose each with double quotes and separate them with commas
xArrFinStr = Array("sales", "9", "@") 'Enter the values to delete, enclose each with double quotes and separate them with commas
'On Error Resume Next
Set xWb = Application.ActiveWorkbook
xBol = False
For xI = LBound(xArr) To UBound(xArr)
    Set xWSh = xWb.Worksheets(xArr(xI))
    Set xFindRg = Nothing
    xWSh.Activate
    Set xFindRgs = Nothing

    Set xURg = xWSh.UsedRange
    Set xFindRgs = Nothing
    For Each xFindRg In xURg
        For xJ = LBound(xArrFinStr) To UBound(xArrFinStr)
            If xFindRg.Text = xArrFinStr(xJ) Then
                xBol = True
                If xFindRgs Is Nothing Then
                    Set xFindRgs = xFindRg
                Else
                    Set xFindRgs = Application.Union(xFindRgs, xFindRg)
                End If
            End If
        Next
    Next
    If Not xFindRgs Is Nothing Then
        xFindRgs.ClearContents
    End If
Next

If xBol Then
    MsgBox "Successfully deleted."
Else
     MsgBox "No results found."
End If
End Sub
หมายเหตุ
  • ในตัวอย่าง xArr = Array("Sheet1", "Sheet2") ในแถวที่ 15 คุณควรแทนที่ "แผ่นที่1", "แผ่นที่2" ด้วยชื่อจริงของชีตที่คุณต้องการค้นหาและลบค่า อย่าลืมใส่ชื่อแผ่นงานแต่ละแผ่นด้วยเครื่องหมายคำพูดคู่ และคั่นด้วยเครื่องหมายจุลภาค
  • ในตัวอย่าง xArrFinStr = Array("ยอดขาย", "9", "@") ในแถวที่ 16 คุณควรแทนที่ "ยอดขาย", "9", "@" ด้วยค่าจริงที่คุณต้องการค้นหาและลบ อย่าลืมใส่เครื่องหมายคำพูดคู่และคั่นแต่ละค่าด้วยเครื่องหมายจุลภาค

3 กด F5 เพื่อเรียกใช้โค้ด VBA หมายเหตุ ถ้าคุณใช้ รหัส VBA 1กล่องโต้ตอบจะปรากฏขึ้นเพื่อขอให้คุณเลือกช่วงที่จะค้นหาและลบค่า คุณยังสามารถคลิกที่แท็บแผ่นงานเพื่อเลือกทั้งแผ่น

4. กล่องโต้ตอบดังที่แสดงด้านล่างปรากฏขึ้นเพื่อแจ้งให้คุณทราบว่ารหัสได้ลบการแข่งขันที่ระบุ คลิก OK เพื่อปิดกล่องโต้ตอบ

5. ค่าที่ระบุถูกลบในครั้งเดียว


ค้นหาและลบการแข่งขันหลายรายการพร้อมกันด้วยคุณสมบัติ Select Specific Cells

Kutools สำหรับ Excel เสนอ เลือกเซลล์เฉพาะ เพื่อค้นหาค่าที่ตรงตามเงื่อนไขหนึ่งหรือสองค่าที่คุณตั้งไว้พร้อมกัน โปรดอ่านต่อเพื่อค้นหาวิธีค้นหาและลบค่าหลายค่าอย่างรวดเร็วในคราวเดียว

1 เมื่อ Kutools ในแท็บ การตัดต่อ กลุ่มคลิก เลือก > เลือกเซลล์เฉพาะ.

2. ในป๊อปอัป เลือกเซลล์เฉพาะ โปรดทำดังนี้:
  • ตัว Vortex Indicator ได้ถูกนำเสนอลงในนิตยสาร เลือกเซลล์ในช่วงนี้ ให้คลิกปุ่มเลือกช่วง ที่ด้านขวาเพื่อระบุช่วงจาก จะหาและลบค่าได้ที่ไหน. หมายเหตุ หากต้องการค้นหาทั่วทั้งแผ่นงาน ให้คลิกที่แท็บแผ่นงาน
  • ตัว Vortex Indicator ได้ถูกนำเสนอลงในนิตยสาร ประเภทการเลือก เลือก เซลล์ ตัวเลือก
  • ตัว Vortex Indicator ได้ถูกนำเสนอลงในนิตยสาร ประเภทเฉพาะ ให้ตั้งเงื่อนไขได้ไม่เกินสองเงื่อนไข:
    • คลิกลูกศรแบบเลื่อนลงทางด้านซ้ายเพื่อเลือกความสัมพันธ์ที่คุณต้องการ เช่น ประกอบด้วย, เท่ากับ, น้อยกว่า, เริ่มต้นด้วยการฯลฯ
    • พิมพ์ค่าในกล่องที่เกี่ยวข้องตามความต้องการของคุณ
    • ระบุความสัมพันธ์ระหว่างสองเงื่อนไข (ถ้ามี): และ or Or.

3 คลิก Ok เพื่อเลือกเซลล์ที่ตรงตามเงื่อนไขที่คุณกำหนด กล่องโต้ตอบจะปรากฏขึ้นเพื่อบอกคุณว่าพบและเลือกเซลล์จำนวนเท่าใด

4 คลิก OK. ตอนนี้ให้กด ลบ คีย์เพื่อลบค่าที่เลือกพร้อมกัน

หมายเหตุ ในการใช้งาน เลือกเซลล์เฉพาะ คุณควรมี Kutools for Excel ติดตั้งอยู่ในคอมพิวเตอร์ของคุณ หากคุณไม่ได้ติดตั้ง Kutools คลิกที่นี่เพื่อดาวน์โหลดและติดตั้ง. โปรแกรมเสริม Excel ระดับมืออาชีพเสนอการทดลองใช้ฟรี 30 วันโดยไม่มีข้อจำกัด


ค้นหาและลบการแข่งขันหลายรายการพร้อมกันใน Excel


บทความที่เกี่ยวข้อง

ค้นหา, เน้น, กรอง, นับ, ลบรายการที่ซ้ำกันใน Excel

ใน Excel ข้อมูลที่ซ้ำกันจะเกิดขึ้นครั้งแล้วครั้งเล่าเมื่อเราบันทึกข้อมูลด้วยตนเองคัดลอกข้อมูลจากแหล่งอื่นหรือด้วยเหตุผลอื่น ๆ บางครั้งรายการที่ซ้ำกันมีความจำเป็นและมีประโยชน์ อย่างไรก็ตามบางครั้งค่าที่ซ้ำกันทำให้เกิดข้อผิดพลาดหรือความเข้าใจผิด บทความนี้จะแนะนำวิธีการในการระบุไฮไลต์กรองนับลบรายการที่ซ้ำกันอย่างรวดเร็วโดยใช้สูตรกฎการจัดรูปแบบตามเงื่อนไข Add-in ของบุคคลที่สาม ฯลฯ ใน Excel

วิธีเปรียบเทียบสองคอลัมน์และลบการจับคู่ใน Excel?

หากคุณมีสองคอลัมน์ / รายการรวมถึงรายการที่ซ้ำกันตอนนี้คุณต้องการเปรียบเทียบและค้นหารายการที่ตรงกันลบออกคุณจะแก้ปัญหาได้อย่างไร? ในบทความนี้ฉันแนะนำวิธีต่างๆเพื่อช่วยคุณจัดการกับ Excel

วิธีการลบทั้งหมดยกเว้นช่วงที่เลือกใน Excel?

ใน Excel เราสามารถลบช่วงที่เลือกได้อย่างรวดเร็วและโดยตรง แต่คุณเคยพยายามลบเนื้อหาของเซลล์อื่น ๆ ยกเว้นช่วงที่เลือกหรือไม่? บทความนี้ฉันจะแนะนำเทคนิคบางอย่างเพื่อให้คุณแก้ปัญหานี้ใน Excel ได้อย่างรวดเร็วและง่ายดาย

วิธีการลบรูปภาพทั้งหมดในช่วงของเซลล์?

หากมีรูปภาพหลายภาพในแผ่นงานของคุณตอนนี้คุณต้องการลบบางภาพในช่วงที่กำหนดคุณจะจัดการกับมันได้อย่างไร?


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (0)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ