Note: The other languages of the website are Google-translated. Back to English
English English

วิธีแทรกช่องว่างระหว่างแต่ละแถวใน Excel อย่างรวดเร็ว

ใน Excel, คุณสามารถใช้เมนูคลิกขวาเพื่อเลือกแถวด้านบนแถวที่ใช้งานได้ แต่คุณรู้วิธีแทรกแถวว่างในแต่ละแถวตามภาพด้านล่างนี้หรือไม่? ฉันแนะนำเทคนิคบางอย่างในการแก้ปัญหานี้อย่างรวดเร็ว
doc แทรกช่องว่างแต่ละแถว 1

แทรกแถวว่างระหว่างแต่ละแถวตามฟังก์ชันเรียงลำดับ

แทรกแถวว่างระหว่างแต่ละแถวด้วยรหัส VBA

แทรกแถว / คอลัมน์ว่างระหว่างแต่ละแถว / คอลัมน์โดย Kutools for Excelความคิดที่ดี 3


แทรกแถวว่างระหว่างแต่ละแถวตามฟังก์ชันเรียงลำดับ

ในการแทรกแถวว่างระหว่างแต่ละแถวคุณสามารถเติมชุดตัวเลขได้สองครั้งในขั้นแรกจากนั้นเรียงลำดับตัวเลข

1. ในหมายเลขที่อยู่ติดกันให้กรอกชุดตัวเลขเพื่อให้ตรงกับหมายเลขแถว
doc แทรกช่องว่างแต่ละแถว 2

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

2. เลือกหมายเลขซีรีส์ทั้งหมดคลิก ข้อมูล > เรียงลำดับจากน้อยที่สุดไปหามากที่สุด.
doc แทรกช่องว่างแต่ละแถว 4

3. ใน popping คำเตือนการเรียงลำดับ โต้ตอบเก็บไว้ ขยายตัวเลือกการเลือก เลือกแล้วคลิก ประเภท.
doc แทรกช่องว่างแต่ละแถว 5

ตอนนี้ช่องว่างถูกแทรกระหว่างแต่ละแถว คุณสามารถลบคอลัมน์หมายเลขซีรี่ส์ได้ในภายหลัง
doc แทรกช่องว่างแต่ละแถว 6


แทรกแถวว่างระหว่างแต่ละแถวด้วยรหัส 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 กุญแจสำคัญในการเรียกใช้รหัสกล่องโต้ตอบจะปรากฏขึ้นเพื่อเตือนให้คุณเลือกข้อมูลที่ใช้งานได้
doc แทรกช่องว่างแต่ละแถว 8

4 คลิก OK. ตอนนี้ช่องว่างถูกแทรกระหว่างแถวที่เลือกแล้ว
doc แทรกช่องว่างแต่ละแถว 9


แทรกแถว / คอลัมน์ว่างระหว่างแต่ละแถว / คอลัมน์โดย 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.
doc แทรกช่องว่างแต่ละแถว 10

2 ใน Insert Blank Rows & Columns โต้ตอบตรวจสอบ Blank rows or Blank columns ตามที่คุณต้องการและระบุตัวเลือกของ Interval of และ Rows.
doc แทรกช่องว่างแต่ละแถว 11

3 คลิก Ok.

แทรกแถวว่างระหว่างแต่ละแถว  แทรกคอลัมน์ว่างระหว่างแต่ละคอลัมน์
doc แทรกช่องว่างแต่ละแถว 12 doc แทรกช่องว่างแต่ละแถว 13

ปลาย: ยูทิลิตี้นี้รองรับการเลิกทำ Ctrl + Z.


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

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

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (0)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ