วิธีแทรกแถวว่างตามค่าเซลล์ด้านบนใน Excel
ใน Excel การแทรกแถวว่างเป็นหนึ่งในฟังก์ชันที่ใช้บ่อยที่สุดในงานประจำวันของเรา อย่างไรก็ตามมีวิธีใดในการแทรกแถวว่างอย่างรวดเร็วตามค่าเซลล์ด้านบนตามภาพด้านล่างที่แสดง ตอนนี้บทความนี้พูดถึงวิธีการแทรกแถวว่างอย่างรวดเร็วตามค่าเซลล์ด้านบนใน Excel
แทรกแถวตามค่าด้านบน
หากคุณต้องการแทรกแถวว่างตามตัวเลขด้านบนคุณสามารถใช้รหัสมาโคร
1. เปิดใช้งานแผ่นงานที่คุณใช้และกด Alt + F11 กุญแจเพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2 คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางโค้ดด้านล่างลงในสคริปต์
VBA: แทรกโค้ดเปล่าตามเซลล์ด้านบน
แทรกย่อย () 'UpdatebyExtendoffice20170926 Dim xRg As Range Dim xAddress As String Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long On Error Resume Next xAddress = ActiveWindow.RangeSelection.Address Set xRg = Application.InputBox ("Select a range to use (single column ): "," KuTools For Excel ", xAddress,,,,, 8) ถ้า xRg ไม่มีอะไรให้ออกจาก Sub Application.ScreenUpdating = False xLastRow = xRg (1) .End (xlDown) .Row xFstRow = xRg.Row xCol = xRg.Column xCount = xRg.Count Set xRg = xRg (1) สำหรับ I = xLastRow ถึง xFstRow ขั้นตอนที่ -1 xNum = Cells (I, xCol) ถ้า IsNumeric (xNum) และ xNum> 0 จากนั้น Rows (I + 1) (xNum) ใส่ xCount = xCount + xNum End ถ้า xRg.Resize ถัดไป (xCount, 1) เลือก Application.ScreenUpdating = True End Sub
3 กด F5 กุญแจสำคัญในการรันโค้ดและกล่องโต้ตอบจะปรากฏขึ้นเพื่อเตือนให้คุณเลือกรายการที่จะทำงาน ดูภาพหน้าจอ:
4 คลิก OKแทรกแถวว่างแล้ว
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!