วิธีการลบแถวที่ซ้ำกัน แต่เก็บไว้ด้วยวันที่ล่าสุดใน Excel?
ฉันมีช่วงข้อมูลที่มีค่าที่ซ้ำกันบางค่าในคอลัมน์ A และในคอลัมน์ B มีข้อมูลวันที่บางส่วนตอนนี้ฉันจำเป็นต้องลบแถวที่ซ้ำกันในคอลัมน์ A แต่เก็บวันที่ล่าสุดจากคอลัมน์ B ที่เกี่ยวข้องตามภาพหน้าจอต่อไปนี้ คุณมีแนวคิดดีๆในการแก้ปัญหานี้ใน Excel อย่างรวดเร็วและง่ายดายหรือไม่?
ลบค่าที่ซ้ำกันและเก็บวันที่ล่าสุดไว้ในคอลัมน์อื่นด้วยรหัส VBA
ลบค่าที่ซ้ำกันและเก็บวันที่ล่าสุดไว้ในคอลัมน์อื่นด้วย Kutools for Excel
ลบค่าที่ซ้ำกันและเก็บวันที่ล่าสุดไว้ในคอลัมน์อื่นด้วยรหัส VBA
รหัส VBA ต่อไปนี้อาจช่วยให้คุณลบเซลล์ที่ซ้ำกันและเก็บวันที่ล่าสุดจากคอลัมน์อื่นได้โปรดทำดังนี้:
1. กด ALT + F11 และจะเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลแล้ววางมาโครต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.
รหัส VBA: ลบค่าที่ซ้ำกันและเก็บวันที่ล่าสุดไว้
Sub test()
'updateby Extendoffice
Dim xRng As Range
Dim xTxt As String
On Error Resume Next
xTxt = Application.ActiveWindow.RangeSelection.Address
Set xRng = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRng Is Nothing Then Exit Sub
If (xRng.Columns.Count < 2) Or (xRng.Rows.Count < 2) Then
MsgBox "the used range is invalid", , "Kutools for Excel"
Exit Sub
End If
xRng.Sort key1:=xRng.Cells(1, 1), Order1:=xlAscending, key2:=xRng.Cells(1, 2), Order2:=xlDescending, Header:=xlGuess
xRng.RemoveDuplicates Columns:=1, Header:=xlGuess
End Sub
3. จากนั้นกด F5 คีย์เพื่อรันโค้ดนี้และกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนให้คุณเลือกช่วงข้อมูลที่คุณต้องการใช้ดูภาพหน้าจอ:
4. จากนั้นคลิก OKค่าที่ซ้ำกันในคอลัมน์ A ถูกลบออกและวันที่ล่าสุดในคอลัมน์ B จะถูกเก็บไว้ตามที่คุณต้องการ ดูภาพหน้าจอ:
หมายเหตุ: ในการใช้รหัสข้างต้นให้สำเร็จคอลัมน์มีค่าที่ซ้ำกันจะต้องอยู่ทางด้านซ้ายของคอลัมน์วันที่
ลบค่าที่ซ้ำกันและเก็บวันที่ล่าสุดไว้ในคอลัมน์อื่นด้วย Kutools for Excel
หากคุณไม่คุ้นเคยกับรหัสโปรดไม่ต้องกังวลยูทิลิตี้ที่มีประสิทธิภาพ - แถวรวมขั้นสูง of Kutools สำหรับ Excel อาจช่วยให้คุณแก้ปัญหานี้ได้อย่างง่ายดาย
| Kutools สำหรับ Excel : ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน. |
หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดดำเนินการดังนี้:
1. เลือกช่วงข้อมูลที่คุณต้องการลบรายการที่ซ้ำกันและเก็บวันที่ล่าสุดจากคอลัมน์อื่น
2. จากนั้นคลิก Kutools > ผสานและแยก > แถวรวมขั้นสูงดูภาพหน้าจอ:
3. ใน รวมแถวตามคอลัมน์ กล่องโต้ตอบคลิกชื่อคอลัมน์ที่คุณต้องการลบค่าที่ซ้ำกันจากนั้นคลิก คีย์หลักดูภาพหน้าจอ:
4. คลิกชื่อคอลัมน์อื่นที่คุณต้องการเก็บวันที่ล่าสุดจากนั้นคลิก คำนวณ > แม็กซ์ดูภาพหน้าจอ:
5. จากนั้นคลิก Ok เพื่อปิดกล่องโต้ตอบนี้และตอนนี้คุณสามารถเห็นชื่อที่ซ้ำกันในคอลัมน์ A ถูกลบออกแล้วและเก็บเฉพาะวันที่ล่าสุดในคอลัมน์ B ที่เกี่ยวข้องดูภาพหน้าจอ:
ดาวน์โหลดและทดลองใช้ Kutools for Excel ฟรีทันที!
Demo: ลบค่าที่ซ้ำกันและเก็บวันที่ล่าสุดไว้ในคอลัมน์อื่นด้วย Kutools for Excel
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
