วิธีย้ายทั้งแถวไปที่ด้านล่างของแผ่นงานที่ใช้งานตามค่าของเซลล์ใน Excel

สำหรับการย้ายทั้งแถวไปที่ด้านล่างของแผ่นงานที่ใช้งานอยู่ตามค่าของเซลล์ใน Excel โปรดลองใช้รหัส VBA ในบทความนี้

ย้ายทั้งแถวไปที่ด้านล่างของแผ่นงานที่ใช้งานตามค่าของเซลล์ด้วยรหัส VBA

ย้ายทั้งแถวไปที่ด้านล่างของแผ่นงานที่ใช้งานตามค่าของเซลล์ด้วยรหัส VBA

ตัวอย่างเช่นภาพหน้าจอด้านล่างที่แสดงหากเซลล์ในคอลัมน์ C มีค่าหนึ่ง "เสร็จสิ้น" ให้ย้ายทั้งแถวไปที่ด้านล่างของแผ่นงานปัจจุบัน กรุณาดำเนินการดังนี้

1 กด อื่น ๆ+ F11 พร้อมกันเพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกและวางโค้ด VBA ด้านล่างลงในหน้าต่าง

รหัส VBA: ย้ายทั้งแถวไปที่ด้านล่างของแผ่นงานที่ใช้งานอยู่ตามค่าของเซลล์

Sub MoveToEnd()
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xEndRow As Long
    Dim I As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
lOne:
    Set xRg = Application.InputBox("Select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count > 1 Or xRg.Areas.Count > 1 Then
        MsgBox " Multiple ranges or columns have been selected ", vbInformation, "Kutools for Excel"
        GoTo lOne
    End If
    xEndRow = xRg.Rows.Count + xRg.Row
    Application.ScreenUpdating = False
    For I = xRg.Rows.Count To 1 Step -1
        If xRg.Cells(I) = "Done" Then
           xRg.Cells(I).EntireRow.Cut
           Rows(xEndRow).Insert Shift:=xlDown
        End If
    Next
    Application.ScreenUpdating = True
End Sub

หมายเหตุ: ในรหัส VBA“เสร็จสิ้น” คือค่าเซลล์ที่คุณจะย้ายทั้งแถวตาม คุณสามารถเปลี่ยนได้ตามต้องการ

3 กด F5 เพื่อเรียกใช้รหัสจากนั้นในป๊อปอัป Kutools สำหรับ Excel กล่องโต้ตอบเลือกช่วงคอลัมน์ที่มีค่าบางอย่างจากนั้นคลิก OK ปุ่ม

หลังจากคลิก OK ทั้งแถวที่มีค่า“ เสร็จสิ้น” ในคอลัมน์ที่ระบุจะถูกย้ายไปที่ด้านล่างของช่วงข้อมูลโดยอัตโนมัติ

ปลดล็อก Excel Magic ด้วย Kutools AI

• การดำเนินการอย่างชาญฉลาด: ดำเนินการกับเซลล์ วิเคราะห์ข้อมูล และสร้างแผนภูมิ ทั้งหมดนี้ขับเคลื่อนด้วยคำสั่งง่ายๆ
• สูตรที่กำหนดเอง: สร้างสูตรที่ปรับแต่งโดยเฉพาะเพื่อปรับปรุงขั้นตอนการทำงานของคุณ
• การเข้ารหัส VBA: เขียนและใช้งานโค้ด VBA ได้อย่างง่ายดาย
• การตีความสูตร: เข้าใจสูตรที่ซับซ้อนได้อย่างง่ายดาย
• การแปลข้อความ: ทลายกำแพงด้านภาษาภายในสเปรดชีตของคุณ

ปรับปรุงความสามารถ Excel ของคุณด้วยเครื่องมือที่ขับเคลื่อนด้วย AI ดาวน์โหลดเดี๋ยวนี้ และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน!

บทความที่เกี่ยวข้อง:

• วิธีย้ายทั้งแถวไปยังแผ่นงานอื่นตามค่าเซลล์ใน Excel