วิธีลบแถวหรือช่วงเดียวกันในหลายแผ่นใน Excel
บทความนี้แนะนำสองวิธีในการลบแถวหรือช่วงเดียวกันในหลาย ๆ แผ่นพร้อมกันใน Excel กรุณาดำเนินการดังนี้
ลบแถวหรือช่วงเดียวกันในหลายแผ่นพร้อมจัดกลุ่มแผ่นงานทั้งหมด
ลบแถวหรือช่วงเดียวกันในหลายแผ่นด้วยรหัส VBA
ลบแถวหรือช่วงเดียวกันในหลายแผ่นพร้อมจัดกลุ่มแผ่นงานทั้งหมด
เป็นเรื่องง่ายที่จะจัดกลุ่มแผ่นงานทั้งหมดแล้วลบแถวหรือช่วงเดียวกันจากแผ่นงานเหล่านี้พร้อมกัน
1. คลิกขวาที่แท็บแผ่นงานใดก็ได้ในสมุดงานปัจจุบันจากนั้นคลิก เลือกแผ่นงานทั้งหมด จากเมนูคลิกขวา
2. ตอนนี้แผ่นงานทั้งหมดถูกเลือกแล้วถ้าคุณลบบางแถวหรือบางช่วงในแผ่นงานแถวหรือช่วงเดียวกันในแผ่นงานอื่นจะถูกลบพร้อมกัน
3. หลังจากลบแถวหรือช่วงในแผ่นงานทั้งหมดแล้วโปรดคลิกขวาที่แท็บแผ่นงานจากนั้นคลิก ยกเลิกการจัดกลุ่มชีต จากเมนูคลิกขวาเพื่อยกเลิกการจัดกลุ่มแผ่นงานทั้งหมด
ลบแถวหรือช่วงเดียวกันในหลายแผ่นด้วยรหัส VBA
นอกเหนือจากวิธีการข้างต้นคุณสามารถเรียกใช้รหัส VBA ต่อไปนี้เพื่อลบแถวหรือช่วงเดียวกันในหลายแผ่นงาน
ลบแถวเดียวกันในหลายแผ่น
1 กด อื่น ๆ + F11 พร้อมกันเพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกและวางรหัส VBA ต่อไปนี้ลงในหน้าต่างรหัส
รหัส VBA: ลบแถวเดียวกันในหลายแผ่นใน Excel
Sub bleh()
Dim xWs As Worksheet
Set xWs = ActiveSheet
ThisWorkbook.Worksheets.Select
Rows("4:5").Select
Selection.Delete
xWs.Select
End Subหมายเหตุ: ในรหัส VBA 4: 5 หมายความว่าแถวที่ 4 และ 5 จะถูกลบในหลายแผ่นงานในสมุดงานปัจจุบัน คุณสามารถเปลี่ยนเป็นแถวที่ต้องการได้
3 กด F5 เพื่อเรียกใช้รหัสจากนั้นแถวที่ระบุจะถูกลบออกทันทีจากแผ่นงานทั้งหมดในสมุดงานปัจจุบัน
ลบช่วงเดียวกันในหลายแผ่น
สำหรับการลบช่วงเดียวกันในหลายแผ่นคุณสามารถลองใช้รหัส VBA ด้านล่าง
รหัส VBA: ลบช่วงเดียวกันในหลายแผ่น
Private Sub CommandButton2_Click()
Dim xRg As Range
Dim xTxt As String
Dim xWs As Worksheet
On Error Resume Next
Set xWs = ActiveSheet
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select the range you want to delete across multiple sheets:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
xRg.ClearContents
ThisWorkbook.Worksheets.Select
ActiveWindow.SelectedSheets.FillAcrossSheets xRg, xlFillWithContents
xWs.Select
End Subหลังจากคัดลอกและวางโค้ด VBA ลงในโมดูลแล้วให้กด F5 กุญแจสำคัญในการเรียกใช้รหัสและในป๊อปอัป Kutools for Excel กล่องโต้ตอบเลือกช่วงที่คุณจะลบในแผ่นงานหลายแผ่นจากนั้นคลิกไฟล์ OK ปุ่ม
ตอนนี้ค่าของเซลล์ในช่วงเฉพาะนี้จะถูกลบออกจากแผ่นงานทั้งหมดในสมุดงานปัจจุบันทันที
บทความที่เกี่ยวข้อง:
- วิธีลบแถวที่มีค่าหายไป / ว่างในบางคอลัมน์ใน Excel
- จะลบแถวได้อย่างไรหากเซลล์มีค่ามากกว่า / น้อยกว่าค่าที่กำหนดใน Excel
- จะลบแถวทั้งหมดยกเว้นแถวส่วนหัวแรกใน Excel ได้อย่างไร?
- จะลบแถวทั้งหมดด้านล่างแถวหรือเซลล์ที่ใช้งานอยู่ใน Excel ได้อย่างไร
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เสริมทักษะ Excel ของคุณด้วย Kutools for Excelและสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools for Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
Office Tab นำอินเทอร์เฟซแบบแท็บมาสู่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
