จะลบแถวที่มีค่าลบใน Excel ได้อย่างไร?
สมมติว่าคุณมีช่วงข้อมูลต่อไปนี้และต้องการลบทั้งแถวหากตัวเลขเป็นค่าลบในคอลัมน์ B มีวิธีใดที่ดีในการแก้ปัญหานี้ใน Excel หรือไม่?
 |
 |
 |
ลบแถวที่มีตัวเลขติดลบโดยใช้รหัส VBA
รหัส VBA ต่อไปนี้อาจช่วยให้คุณลบทั้งแถวได้หากมีตัวเลขติดลบในคอลัมน์ใดคอลัมน์หนึ่งโปรดทำดังนี้:
1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ หน้าต่างโมดูล.
รหัส VBA: ลบแถวที่มีตัวเลขติดลบ
Sub Deleter()
'updatebyExtendoffice
Dim xRg As Range
Dim xCell As Range
Dim xTxt As String
Dim I As Long
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Sel:
Set xRg = Nothing
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "does not support multiple selections, please select again", vbInformation, "Kutools for Excel"
GoTo Sel
End If
If xRg.Columns.Count > 1 Then
MsgBox "does not support multiple columns, please select again", vbInformation, "Kutools for Excel"
GoTo Sel
End If
For I = xRg.Rows.Count To 1 Step -1
If xRg.Cells(I) < 0 Then xRg.Cells(I).EntireRow.Delete
Next
End Sub
3. จากนั้นกด F5 คีย์เพื่อรันรหัสนี้ในกล่องพร้อมต์โปรดเลือกคอลัมน์ตัวเลขที่คุณต้องการค้นหาตัวเลขเชิงลบดูภาพหน้าจอ:
4. จากนั้นคลิก OK ปุ่มแถวที่มีตัวเลขติดลบถูกลบพร้อมกัน
ลบแถวที่มีตัวเลขติดลบโดยใช้ Kutools for Excel
สำหรับการจัดการงานนี้ Kutools สำหรับ Excel's เลือกเซลล์เฉพาะ คุณลักษณะนี้ยังสามารถช่วยคุณได้ด้วยยูทิลิตี้นี้คุณสามารถเลือกแถวทั้งหมดที่มีค่าลบก่อนจากนั้นจึงลบทั้งแถวตามที่คุณต้องการ
| Kutools สำหรับ Excel : ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน. |
หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดดำเนินการดังนี้:
1. เลือกคอลัมน์ที่มีตัวเลขติดลบที่คุณต้องการลบ
2. จากนั้นคลิก Kutools > เลือก > เลือกเซลล์เฉพาะดูภาพหน้าจอ:
3. ใน เลือกเซลล์เฉพาะ ใหเลือก ทั้งแถว ตัวเลือกใน ประเภทการเลือกแล้วเลือก น้อยกว่า จาก ประเภทเฉพาะ และป้อน 0 ลงในกล่องข้อความข้างเกณฑ์ดูภาพหน้าจอ:
4. จากนั้นคลิก Okแถวที่มีจำนวนลบถูกเลือกพร้อมกันแล้วคลิก หน้าแรก > ลบ > ลบแถวแผ่นงาน เพื่อลบแถวที่เลือกตามที่คุณต้องการดูภาพหน้าจอ:
 |
|
 |
เคล็ดลับ： คุณสามารถคลิกขวาเพื่อเลือก ลบ จากเมนูบริบทเพื่อลบแถวที่เลือก
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
