วิธีคัดลอกข้อมูลไปยังแผ่นงานอื่นด้วยตัวกรองขั้นสูงใน Excel
ฟีเจอร์ Advanced Filter ใน Excel ช่วยให้คุณแยกและกรองข้อมูลจากชุดข้อมูลได้ แม้ว่าจะทำงานได้ราบรื่นภายในเวิร์กชีตเดียวกัน แต่คุณอาจพบข้อความเตือนเมื่อพยายามคัดลอกผลลัพธ์ที่กรองแล้วไปยังเวิร์กชีตอื่น ในคู่มือนี้ เราจะแสดงวิธีคัดลอกข้อมูลที่กรองแล้วไปยังเวิร์กชีตอื่นโดยใช้ฟีเจอร์ Advanced Filter และโค้ด VBA ทีละขั้นตอน
คัดลอกข้อมูลไปยังแผ่นงานอื่นด้วยตัวกรองขั้นสูงโดยใช้คุณสมบัติตัวกรองขั้นสูง
คัดลอกข้อมูลไปยังแผ่นงานอื่นด้วยตัวกรองขั้นสูงโดยใช้รหัส VBA
คัดลอกข้อมูลไปยังแผ่นงานอื่นด้วยตัวกรองขั้นสูงโดยใช้คุณสมบัติตัวกรองขั้นสูง
นี่คือวิธีแก้ปัญหาง่ายๆสำหรับคุณในการแก้ปัญหานี้โปรดทำดังนี้:
1. เปิดใช้งานแผ่นงานที่คุณต้องการคัดลอกผลลัพธ์ที่กรองแล้วโดยใช้ฟังก์ชันตัวกรองขั้นสูง
2. จากนั้นคลิก ข้อมูล > ค้นหาระดับสูงดูภาพหน้าจอ:
3. ใน ตัวกรองขั้นสูง ใหเลือก คัดลอกไปยังตำแหน่งอื่น จาก การกระทำ แล้วคลิก เพื่อเลือกช่วงข้อมูลที่คุณต้องการกรองในแผ่นงานอื่นด้านข้าง ช่วงรายการไปที่คลิก
ข้างปุ่ม ช่วงเกณฑ์ เพื่อเลือกเกณฑ์จากแผ่นงานอื่นดูภาพหน้าจอ:
4. จากนั้นคลิก ข้างปุ่ม คัดลอกไปที่ เพื่อเลือกเซลล์ที่คุณต้องการแสดงผลลัพธ์ที่กรองออกจากแผ่นงานที่ใช้งานอยู่จากนั้นคลิก OK ผลลัพธ์ที่กรองแล้วจะถูกแยกไปยังแผ่นงานอื่นตามแผ่นข้อมูลต้นฉบับของคุณ
คัดลอกข้อมูลไปยังแผ่นงานอื่นด้วยตัวกรองขั้นสูงโดยใช้รหัส VBA
หากคุณมีความสามารถด้าน VBA คุณสามารถทำงานนี้ให้สำเร็จได้โดยใช้โค้ด VBA ต่อไปนี้
1. เปิดใช้งานแผ่นงานที่คุณต้องการกรองและคัดลอกผลลัพธ์ไปยังแผ่นงานอื่น
2. กด ALT + F11 ใน Excel และจะเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
3. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.
รหัส VBA: คัดลอกข้อมูลไปยังแผ่นงานอื่นด้วยตัวกรองขั้นสูง:
Sub Advancedfiltertoanothersheet()
'Updateby Extendoffice
Dim xStr As String
Dim xAddress As String
Dim xRg As Range
Dim xCRg As Range
Dim xSRg As Range
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the filter range:", "Kutools for Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xCRg = Application.InputBox("Please select the criteria range:", "Kutools for Excel", "", , , , , 8)
If xCRg Is Nothing Then Exit Sub
Set xSRg = Application.InputBox("Please select the output range:", "Kutools for Excel", "", , , , , 8)
If xSRg Is Nothing Then Exit Sub
xRg.AdvancedFilter xlFilterCopy, xCRg, xSRg, False
xSRg.Worksheet.Activate
xSRg.Worksheet.Columns.AutoFit
End Sub
4. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้และกล่องพร้อมต์จะปรากฏขึ้นเพื่อให้คุณเลือกช่วงข้อมูลที่คุณต้องการกรองดูภาพหน้าจอ:
5. คลิก OKและกล่องโต้ตอบอื่นจะปรากฏขึ้นเพื่อแจ้งให้คุณเลือกช่วงเกณฑ์ในการกรองตามที่แสดงในภาพหน้าจอ:
6. ไปที่การคลิก OKในกล่องโต้ตอบที่โผล่ออกมาโปรดเลือกเซลล์จากแผ่นงานใหม่อื่นที่คุณต้องการส่งออกผลการกรองดูภาพหน้าจอ:
7. ในที่สุดคลิก OK ข้อมูลที่กรองแล้วจะถูกส่งออกไปยังแผ่นงานอื่นตามที่คุณต้องการ
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!