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

วิธีการล้างเนื้อหาของเซลล์ตามเงื่อนไขใน Excel?

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

ล้างเนื้อหาของเซลล์ตามค่าของเซลล์ด้วยรหัส VBA

ล้างทั้งแถวถ้าค่ามากกว่าหรือน้อยกว่าค่าที่ระบุด้วยรหัส VBA

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

ล้างแถวทั้งหมดถ้าเซลล์อื่นว่างด้วยรหัส VBA

ล้างเนื้อหาเซลล์ตามสีพื้นหลังด้วยรหัส VBA


ล้างเนื้อหาของเซลล์ตามค่าของเซลล์ด้วยรหัส VBA

ตัวอย่างเช่น คุณมีช่วงข้อมูลต่อไปนี้ ตอนนี้คุณต้องการล้างเนื้อหาในเซลล์ที่เป็น "Hoodie" โค้ด VBA ด้านล่างสามารถช่วยคุณได้

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

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

รหัส VBA: ล้างเนื้อหาในเซลล์หากเซลล์มีค่าเท่ากับค่าที่ระบุ

Sub ClearContents()
'Updateby ExtendOffice
 Dim xRng As Range
 Dim xCell As Range
 Dim xText As String
 Set xRng = Application.Range("A2:A12")
 xText = "Hoodie" 'Change this text to your own
 For Each xCell In xRng
 If xCell.Value = xText Then
 xCell.clearContents
 End If
 Next xCell
End Sub
หมายเหตุ: ในโค้ดด้านบน A2: A12 คือช่วงข้อมูลที่คุณต้องการล้างเนื้อหาเซลล์จากข้อความ "หมวก” คือค่าเฉพาะที่คุณต้องการล้าง โปรดเปลี่ยนเป็นของคุณเอง

3. จากนั้นกด F5 เพื่อเรียกใช้โค้ดนี้ และล้างเซลล์ทั้งหมดที่มีข้อความ "Hoodie" ในครั้งเดียว ดูภาพหน้าจอ:


ล้างทั้งแถวถ้าค่ามากกว่าหรือน้อยกว่าค่าที่ระบุด้วยรหัส VBA

สมมติว่า คุณมีช่วงข้อมูลด้านล่าง เพื่อล้างเนื้อหาแถวทั้งหมดหากค่าในคอลัมน์ D มากกว่าหรือน้อยกว่า 300 ที่นี่ ฉันจะสร้างโค้ด VBA เพื่อให้เสร็จสมบูรณ์

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

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

รหัส VBA: ล้างทั้งแถวหากค่าของเซลล์มากกว่าหรือน้อยกว่าค่าที่ระบุ

Sub ClearRowInValue()
'Updateby ExtendOffice
Dim xRg As Range
Dim xStrAddress As String
Dim xStrValue As Integer
Dim xCell As Range
Dim xRowRg As Range
Dim xF As Integer
Dim xBol As Boolean
xStrAddress = "D2:D12" 'Change cell range
xStrValue = 300 'change the value
Set xRg = Range(xStrAddress)
For xF = xRg.Rows.Count To 1 Step -1
    Set xRowRg = xRg.Rows.Item(xF)
    xBol = False
    For Each xCell In xRowRg.Cells
        If Application.IsNumber(xCell.Value) Then
        If xCell.Value > xStrValue Then
        xBol = True
        Exit For
        End If
        End If
    Next
    If xBol Then
        xRowRg.EntireRow.clearContents
    End If
Next
End Sub
หมายเหตุ: ในโค้ดด้านบน D2: D12 คือช่วงข้อมูลมีค่าเฉพาะที่คุณต้องการล้างแถวตาม; 300 เป็นค่าเฉพาะ ที่ > ตัวละครในบท ถ้า xCell.Value > xStrValue แล้ว หมายถึง มากกว่า ใช้น้อยกว่า เปลี่ยนเป็น < ตัวอักษรตามที่คุณต้องการ

3. จากนั้นกด F5 เพื่อเรียกใช้รหัสนี้ และเนื้อหาในแถวทั้งหมดจะถูกล้างหากค่าในคอลัมน์ D มากกว่า 300 ดูภาพหน้าจอ:


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

ถ้าคุณมี Kutools สำหรับ Excelเดียวกันกับที่ เลือกเซลล์เฉพาะ คุณสามารถเลือกเซลล์หรือแถวตามค่าที่ระบุ จากนั้นลบเนื้อหาในเซลล์ในครั้งเดียว

หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดทำตามนี้:

1. เลือกช่วงข้อมูลที่มีค่าที่คุณต้องการล้างเนื้อหาในเซลล์หรือแถวโดยยึดตาม จากนั้นคลิก Kutools > เลือก > เลือกเซลล์เฉพาะดูภาพหน้าจอ:

2. ในการเปิด เลือกเซลล์เฉพาะ ไดอะล็อกบ็อกซ์ให้ดำเนินการดังต่อไปนี้:

  • คลิก เซลล์ or ทั้งแถว ที่คุณต้องการเลือก;
  • ระบุเกณฑ์ภายใต้ ประเภทเฉพาะ ส่วนตามที่คุณต้องการ ที่นี่ ฉันต้องการเลือกแถวที่มีค่าในคอลัมน์ D มากกว่า 300

3. จากนั้นคลิก Ok ปุ่ม และแถวทั้งหมดที่มีค่ามากกว่า 300 จะถูกเลือก ตอนนี้คุณเพียงแค่ต้องกดปุ่ม Delete บนแป้นพิมพ์เพื่อลบเนื้อหาของเซลล์ ดูภาพหน้าจอ:

เคล็ดลับ: มีเกณฑ์อื่น ๆ อีกมากมายที่คุณสามารถใช้ได้ โปรดระบุเงื่อนไขของคุณเองจากกล่องโต้ตอบดังภาพด้านล่างที่แสดง:

ล้างข้อมูลแถวในช่วงหากมีเซลล์ว่างที่มีรหัส VBA

ในกรณีนี้ หากเซลล์ในช่วงข้อมูลมีช่องว่าง ฉันต้องการล้างข้อมูลแถวจากช่วงดังที่แสดงด้านล่าง

เพื่อเสร็จสิ้นงานนี้ โปรดใช้รหัส VBA ต่อไปนี้:

1. ค้างไว้ ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

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

รหัส VBA: ล้างข้อมูลแถวหากมีเซลล์ว่าง

Sub ClearContents()
'Updateby ExtendOffice
Dim xcell As Range
Set xrng = Application.Range("A2:D12")
For Each xcell In xrng
If xcell.Value = "" Then
Intersect(xcell.EntireRow, xrng).ClearContents
End If
Next
End Sub
หมายเหตุ: ในโค้ดด้านบน A2: D12 คือช่วงข้อมูลที่มีเซลล์ว่างที่คุณต้องการล้างเนื้อหาในเซลล์

3. จากนั้นกด F5 เพื่อเรียกใช้รหัสนี้ และข้อมูลแถวที่มีเซลล์ว่างจะถูกล้างพร้อมกันในช่วงที่กำหนดตามที่คุณต้องการ


ล้างเนื้อหาเซลล์ตามสีพื้นหลังด้วยรหัส VBA

หากต้องการล้างเซลล์ที่มีสีพื้นหลังที่ระบุ คุณสามารถใช้โค้ด VBA ต่อไปนี้

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

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

รหัส VBA: ล้างเนื้อหาในเซลล์ตามสีพื้นหลัง

Sub Clearcontents()
'Updateby ExtendOffice
Dim xcell As Range
Dim xrng As Range
Set xrng = Application.Range("A2:D12")
    For Each xcell In xrng
        If xcell.Interior.Color = RGB(252, 228, 214) Then
            xcell.Clearcontents
        End If
    Next
End Sub
หมายเหตุ: ในโค้ดด้านบน A2: D12 คือช่วงข้อมูลที่คุณต้องการใช้ RGB (252, 228, 214) เป็นสีเฉพาะที่คุณต้องการล้างเซลล์ตาม คุณสามารถแยกโหมด RGB ของสีพื้นหลังได้โดยใช้ปุ่ม สี โปรแกรมบนคอมพิวเตอร์ของคุณ

3. จากนั้นกด F5 เพื่อเรียกใช้รหัสนี้ และเนื้อหาของเซลล์ที่มีสีพื้นหลังที่ระบุจะถูกล้างทันที ดูภาพหน้าจอ:


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

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

  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ และการเก็บรักษาข้อมูล แยกเนื้อหาของเซลล์ รวมแถวที่ซ้ำกันและผลรวม / ค่าเฉลี่ย... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แทรกสูตรที่ชื่นชอบและรวดเร็ว, ช่วงแผนภูมิและรูปภาพ; เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • การจัดกลุ่มตาราง Pivot ตาม จำนวนสัปดาห์วันในสัปดาห์และอื่น ๆ ... แสดงปลดล็อกเซลล์ที่ถูกล็อก ด้วยสีที่ต่างกัน เน้นเซลล์ที่มีสูตร / ชื่อ...
kte แท็บ 201905
  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
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