วิธีย้ายทั้งแถวไปยังแผ่นงานอื่นตามค่าเซลล์ใน Excel
สำหรับการย้ายทั้งแถวไปยังแผ่นงานอื่นตามค่าของเซลล์บทความนี้จะช่วยคุณได้
ย้ายทั้งแถวไปยังแผ่นงานอื่นตามค่าเซลล์ด้วยรหัส VBA
ย้ายทั้งแถวไปยังแผ่นงานอื่นตามค่าของเซลล์ด้วย Kutools for Excel
ย้ายทั้งแถวไปยังแผ่นงานอื่นตามค่าเซลล์ด้วยรหัส VBA
ตามที่แสดงภาพหน้าจอด้านล่างคุณต้องย้ายทั้งแถวจาก Sheet1 ไปยัง Sheet2 หากมีคำเฉพาะ "Done" อยู่ในคอลัมน์ C คุณสามารถลองใช้รหัส VBA ต่อไปนี้
1 กด อื่น ๆ+ F11 พร้อมกันเพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2. ในหน้าต่าง Microsoft Visual Basic for Applications คลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกและวางโค้ด VBA ด้านล่างลงในหน้าต่าง
VBA code 1: Move entire row to another sheet based on cell value
Sub Cheezy()
'Updated by Kutools for Excel 2017/8/28
Dim xRg As Range
Dim xCell As Range
Dim I As Long
Dim J As Long
Dim K As Long
I = Worksheets("Sheet1").UsedRange.Rows.Count
J = Worksheets("Sheet2").UsedRange.Rows.Count
If J = 1 Then
If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then J = 0
End If
Set xRg = Worksheets("Sheet1").Range("C1:C" & I)
On Error Resume Next
Application.ScreenUpdating = False
For K = 1 To xRg.Count
If CStr(xRg(K).Value) = "Done" Then
xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & J + 1)
xRg(K).EntireRow.Delete
If CStr(xRg(K).Value) = "Done" Then
K = K - 1
End If
J = J + 1
End If
Next
Application.ScreenUpdating = True
End Sub
หมายเหตุ: ในรหัส Sheet1 คือแผ่นงานมีแถวที่คุณต้องการย้าย และ Sheet2 คือแผ่นงานปลายทางที่คุณจะค้นหาแถว “ค: ค” คือคอลัมน์มีค่าที่แน่นอนและคำว่า“เสร็จสิ้น” คือค่าบางอย่างที่คุณจะย้ายแถวตาม โปรดเปลี่ยนตามความต้องการของคุณ
3 กด F5 เพื่อรันโค้ดจากนั้นแถวที่ตรงตามเกณฑ์ใน Sheet1 จะถูกย้ายไปที่ Sheet2 ทันที
หมายเหตุ: โค้ด VBA ด้านบนจะลบแถวจากข้อมูลต้นฉบับหลังจากย้ายไปยังแผ่นงานที่ระบุ หากคุณต้องการคัดลอกเฉพาะแถวตามค่าของเซลล์แทนที่จะลบออก กรุณาใช้รหัส VBA ด้านล่าง 2
VBA code 2: Copy entire row to another sheet based on cell value
Sub MoveRowBasedOnCellValue()
'Updated by Extendoffice 2017/11/10
Dim xRg As Range
Dim xCell As Range
Dim I As Long
Dim J As Long
Dim K As Long
I = Worksheets("Sheet1").UsedRange.Rows.Count
J = Worksheets("Sheet2").UsedRange.Rows.Count
If J = 1 Then
If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then J = 0
End If
Set xRg = Worksheets("Sheet1").Range("C1:C" & I)
On Error Resume Next
Application.ScreenUpdating = False
For K = 1 To xRg.Count
If CStr(xRg(K).Value) = "Done" Then
xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & J + 1)
J = J + 1
End If
Next
Application.ScreenUpdating = True
End Sub
ย้ายทั้งแถวไปยังแผ่นงานอื่นตามค่าของเซลล์ด้วย Kutools for Excel
หากคุณเป็นมือใหม่ในรหัส VBA ที่นี่ฉันขอแนะนำ เลือกเซลล์เฉพาะ ประโยชน์ของ Kutools สำหรับ Excel. ด้วยยูทิลิตี้นี้คุณสามารถเลือกแถวทั้งหมดตามค่าของเซลล์บางค่าหรือค่าของเซลล์ที่แตกต่างกันในแผ่นงานและคัดลอกแถวที่เลือกไปยังแผ่นงานปลายทางได้ตามที่คุณต้องการ กรุณาดำเนินการดังนี้
ก่อนที่จะใช้ Kutools สำหรับ Excelโปรด ดาวน์โหลดและติดตั้งในตอนแรก.
1. เลือกรายการคอลัมน์ที่มีค่าเซลล์ที่คุณจะย้ายแถวตามจากนั้นคลิก Kutools > เลือก > เลือกเซลล์เฉพาะ. ดูภาพหน้าจอ:
2. ในการเปิด เลือกเซลล์เฉพาะ ให้เลือก ทั้งแถว ใน ประเภทการเลือก เลือก เท่ากับ ใน ประเภทเฉพาะ รายการแบบหล่นลงป้อนค่าเซลล์ลงในกล่องข้อความแล้วคลิกไฟล์ OK ปุ่ม
อื่น เลือกเซลล์เฉพาะ กล่องโต้ตอบจะปรากฏขึ้นเพื่อแสดงจำนวนแถวที่เลือกและในขณะเดียวกันแถวทั้งหมดมีค่าที่ระบุในคอลัมน์ที่เลือกได้ถูกเลือก ดูภาพหน้าจอ:
3 กด Ctrl + C เพื่อคัดลอกแถวที่เลือกแล้ววางลงในแผ่นงานปลายทางที่คุณต้องการ
หมายเหตุ: ถ้าคุณต้องการย้ายแถวไปยังแผ่นงานอื่นโดยยึดตามค่าเซลล์ที่ต่างกันสองค่า ตัวอย่างเช่นย้ายแถวตามค่าของเซลล์ "เสร็จสิ้น" หรือ "กำลังประมวลผล" คุณสามารถเปิดใช้งานไฟล์ Or เงื่อนไขใน เลือกเซลล์เฉพาะ กล่องโต้ตอบด้านล่างภาพหน้าจอที่แสดง:
หากคุณต้องการทดลองใช้ยูทิลิตีนี้ฟรี (30 วัน) กรุณาคลิกเพื่อดาวน์โหลดแล้วไปใช้การดำเนินการตามขั้นตอนข้างต้น
บทความที่เกี่ยวข้อง:
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!