ไปยังเนื้อหาหลัก

วิธีการค้นหาและลบการแข่งขันหลายรายการพร้อมกันใน 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 AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

รายละเอียด


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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations