วิธีแทรกช่องว่างระหว่างแต่ละแถวใน Excel อย่างรวดเร็ว
ใน Excel, คุณสามารถใช้เมนูคลิกขวาเพื่อเลือกแถวด้านบนแถวที่ใช้งานได้ แต่คุณรู้วิธีแทรกแถวว่างในแต่ละแถวตามภาพด้านล่างนี้หรือไม่? ฉันแนะนำเทคนิคบางอย่างในการแก้ปัญหานี้อย่างรวดเร็ว
แทรกแถวว่างระหว่างแต่ละแถวตามฟังก์ชันเรียงลำดับ
แทรกแถวว่างระหว่างแต่ละแถวด้วยรหัส VBA
แทรกแถว / คอลัมน์ว่างระหว่างแต่ละแถว / คอลัมน์โดย Kutools for Excel
แทรกแถวว่างระหว่างแต่ละแถวตามฟังก์ชันเรียงลำดับ
ในการแทรกแถวว่างระหว่างแต่ละแถวคุณสามารถเติมชุดตัวเลขได้สองครั้งในขั้นแรกจากนั้นเรียงลำดับตัวเลข
1. ในหมายเลขที่อยู่ติดกันให้กรอกชุดตัวเลขเพื่อให้ตรงกับหมายเลขแถว
2. คัดลอกหมายเลขชุดข้อมูลและวางลงในเซลล์ที่อยู่ถัดจากหมายเลขสุดท้าย
2. เลือกหมายเลขซีรีส์ทั้งหมดคลิก ข้อมูล > เรียงลำดับจากน้อยที่สุดไปหามากที่สุด.
3. ใน popping คำเตือนการเรียงลำดับ โต้ตอบเก็บไว้ ขยายตัวเลือกการเลือก เลือกแล้วคลิก ประเภท.
ตอนนี้ช่องว่างถูกแทรกระหว่างแต่ละแถว คุณสามารถลบคอลัมน์หมายเลขซีรี่ส์ได้ในภายหลัง
แทรกแถวว่างระหว่างแต่ละแถวด้วยรหัส VBA
หากคุณคุ้นเคยกับโค้ดมาโครนี่คือโค้ดที่สามารถช่วยคุณได้
1 กด Alt + F11 คีย์เพื่อเปิดใช้งาน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2 คลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นคัดลอกและวางโค้ดด้านล่างลงในโมดูล
VAB: แทรกช่องว่างระหว่างแถวs
Sub RowsInsertInSelectCells()
'UpdatebyExtendoffice20180801
Dim xWS As Worksheet
Dim xCR, xR, xCC, xC, xFC, xFR As Long
Dim xFNum As Integer
Dim xRg, xCRg As Range
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 0 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xWS = ActiveWorkbook.ActiveSheet
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Count > 0 Then
xCR = xRg.Rows.Count
xCC = xRg.Columns.Count
xR = xRg.Row
xC = xRg.Column
Application.ScreenUpdating = False
For xFC = 0 To xCC - 1
For xFR = xCR To 1 Step -1
xWS.Cells(xR + xFR, xC + xFC).Insert
Next
Next xFC
Application.ScreenUpdating = True
End If
End Sub
3 กด F5 กุญแจสำคัญในการเรียกใช้รหัสกล่องโต้ตอบจะปรากฏขึ้นเพื่อเตือนให้คุณเลือกข้อมูลที่ใช้งานได้
4 คลิก OK. ตอนนี้ช่องว่างถูกแทรกระหว่างแถวที่เลือกแล้ว
แทรกแถว / คอลัมน์ว่างระหว่างแต่ละแถว / คอลัมน์โดย Kutools for Excel
หากคุณต้องการแทรกแถวหรือคอลัมน์ว่างระหว่างแต่ละแถวหรือคอลัมน์อย่างรวดเร็วและง่ายดายคุณสามารถใช้ Kutools สำหรับ Excel's Insert Blank Rows & Columns ยูทิลิตี้ซึ่งคุณสามารถระบุช่วงเวลาของแถวและจำนวนแถวว่างได้ตามที่คุณต้องการ
Kutools สำหรับ Excel, ที่มีมากกว่า 300 ฟังก์ชั่นที่มีประโยชน์ทำให้งานของคุณง่ายขึ้น |
หลังจากการติดตั้ง Kutools สำหรับ Excel โปรดทำดังนี้:(ดาวน์โหลด Kutools for Excel ฟรีทันที!)
1. เลือกช่วงข้อมูลที่คุณต้องการแทรกแถวหรือคอลัมน์ว่างคลิก Kutools > Insert > Insert Blank Rows & Columns.
2 ใน Insert Blank Rows & Columns โต้ตอบตรวจสอบ Blank rows or Blank columns ตามที่คุณต้องการและระบุตัวเลือกของ Interval of และ Rows.
3 คลิก Ok.
แทรกแถวว่างระหว่างแต่ละแถว | แทรกคอลัมน์ว่างระหว่างแต่ละคอลัมน์ |
ปลาย: ยูทิลิตี้นี้รองรับการเลิกทำ Ctrl + Z.
แทรกแถวหรือคอลัมน์ว่างโดยมีช่วงเวลาที่กำหนด
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!